mirror of
https://git.freebsd.org/ports.git
synced 2025-06-28 08:00:31 -04:00
25 lines
931 B
Text
25 lines
931 B
Text
--- ddclient.orig Sun Jul 22 23:23:11 2001
|
|
+++ ddclient Sun Aug 26 14:56:45 2001
|
|
@@ -1,5 +1,4 @@
|
|
-#!/usr/bin/perl -w
|
|
-#!/usr/local/bin/perl -w
|
|
+#!%%PERL%% -w
|
|
######################################################################
|
|
# $Header: /home/paul/src/ddclient/RCS/ddclient,v 1.91 2001/07/22 21:01:33 root Exp $
|
|
#
|
|
@@ -20,12 +19,12 @@
|
|
$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 = '';
|
|
|
|
-$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'};
|