blob: b056bf8db6578f21fa1d341b8bc3ba7f370a81bc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- 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'};
|