d5c5a08f0c
An automated agent for tracing and reporting internet junk mail PR: 30411 Submitted by: Yen-Ming Lee <leeym@utopia.leeym.com>
59 lines
1.7 KiB
Text
59 lines
1.7 KiB
Text
--- install.orig Sat Oct 23 07:22:23 1999
|
|
+++ install Fri Sep 7 09:05:47 2001
|
|
@@ -11,13 +11,13 @@
|
|
|
|
$APP = 'Ricochet';
|
|
$VERSION = '0.92';
|
|
-$DIR = "$ENV{HOME}/.ricochet";
|
|
+$DIR = "%%PREFIX%%/share/ricochet";
|
|
@PACKAGE = qw/TODO CHANGES README ARTISTIC complaint-template ricochet abuse-contacts/;
|
|
|
|
@REQUIRED = qw /Mail::Internet Net::DNS Text::Template Net::XWhois LWP::UserAgent/;
|
|
|
|
-$BINDIR = '/usr/local/bin';
|
|
+$BINDIR = '%%PREFIX%%/bin';
|
|
-$EMAIL = defined $ENV{EMAIL} ? $ENV{EMAIL} : "$ENV{USERNAME}\@$ENV{HOSTNAME}";
|
|
+$EMAIL = defined $ENV{EMAIL} ? $ENV{EMAIL} : "$ENV{USER}\@$ENV{HOST}";
|
|
|
|
## Print an intro message.
|
|
print "\n---== $APP $VERSION Install ==---\n\n";
|
|
@@ -89,25 +89,25 @@
|
|
}
|
|
|
|
## Take config params:
|
|
-&take_input ("Where should I place the Ricochet executable [Default: $BINDIR]?", \$BINDIR);
|
|
-&take_input ("Return email address for complaint mails [Default: $EMAIL]?", \$EMAIL);
|
|
+#&take_input ("Where should I place the Ricochet executable [Default: $BINDIR]?", \$BINDIR);
|
|
+#&take_input ("Return email address for complaint mails [Default: $EMAIL]?", \$EMAIL);
|
|
|
|
## Make $HOME/.ricochet
|
|
unless (-e $DIR) {
|
|
print "\nMaking $DIR...\n";
|
|
- mkdir $DIR, 0700;
|
|
+ mkdir $DIR, 0755;
|
|
}
|
|
print "\n";
|
|
|
|
unless (-e "$DIR/whois") {
|
|
print "\nMaking $DIR/whois ...\n";
|
|
- mkdir "$DIR/whois", 0700;
|
|
+ mkdir "$DIR/whois", 0755;
|
|
}
|
|
print "\n";
|
|
|
|
unless (-e "$DIR/backup") {
|
|
print "\nMaking $DIR/backup ...\n";
|
|
- mkdir "$DIR/backup", 0700;
|
|
+ mkdir "$DIR/backup", 0755;
|
|
}
|
|
print "\n";
|
|
|
|
@@ -119,7 +119,7 @@
|
|
system "mv $DIR/$_ $DIR/backup/$_";
|
|
}
|
|
print "Copying $_ to $DIR ...\n";
|
|
- system "cp $_ $DIR";
|
|
+ system "%%INSTALL_DATA%% $_ $DIR";
|
|
print "\n";
|
|
} @PACKAGE;
|
|
|