29 lines
993 B
Text
29 lines
993 B
Text
--- ddclient.orig Sat Aug 25 17:17:28 2001
|
|
+++ ddclient Sun Aug 26 19:52:01 2001
|
|
@@ -1,5 +1,4 @@
|
|
-#!/usr/bin/perl -w
|
|
-#!/usr/local/bin/perl -w
|
|
+#!%%PERL%% -w
|
|
######################################################################
|
|
# $Header: /home/paul/src/ddclient/RCS/ddclient,v 3.5 2001/08/25 14:22:00 root Exp $
|
|
#
|
|
@@ -20,8 +19,8 @@
|
|
$program =~ s/d$//;
|
|
my $now = time;
|
|
my $hostname = hostname();
|
|
-my $etc = ($program =~ /test/i) ? './' : '/etc/';
|
|
-my $savedir = ($program =~ /test/i) ? 'URL/' : '/tmp/';
|
|
+my $etc = '%%PREFIX%%/etc/';
|
|
+my $savedir = (exists($ENV{TMPDIR}) ? "$ENV{TMPDIR}/" : "/var/tmp/");
|
|
my $msgs = '';
|
|
my $last_msgs = '';
|
|
|
|
@@ -29,7 +28,7 @@
|
|
local $file = '';
|
|
local $lineno = '';
|
|
|
|
-$ENV{'PATH'} = (exists($ENV{PATH}) ? "$ENV{PATH}:" : "") . "/sbin:/usr/sbin:/bin:/usr/bin:/etc:/usr/lib:";
|
|
+$ENV{'PATH'} = (exists($ENV{PATH}) ? "$ENV{PATH}:" : "") . "/sbin:/usr/sbin:/bin:/usr/bin";
|
|
|
|
sub T_ANY {'any'};
|
|
sub T_STRING {'string'};
|