add ricochet

An automated agent for tracing and reporting internet junk mail

PR:		30411
Submitted by:	Yen-Ming Lee <leeym@utopia.leeym.com>

2 files changed, 71 insertions, 0 deletions

diff --git a/mail/ricochet/files/patch-install b/mail/ricochet/files/patch-install
new file mode 100644
index 0000000..8808097
--- /dev/null
+++ b/mail/ricochet/files/patch-install
@@ -0,0 +1,59 @@
+--- 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; 
+ 
diff --git a/mail/ricochet/files/patch-ricochet b/mail/ricochet/files/patch-ricochet
new file mode 100644
index 0000000..267113b
--- /dev/null
+++ b/mail/ricochet/files/patch-ricochet
@@ -0,0 +1,12 @@
+--- ricochet.orig	Fri Feb  9 03:23:19 2001
++++ ricochet	Fri Sep  7 09:03:59 2001
+@@ -574,7 +574,8 @@
+ 
+ sub initialize { 
+     my $self = shift; 
+-    my $rc = "$ENV{RICOCHET}" || "$ENV{HOME}/.ricochet"; $rc .= "/ricochetrc"; 
++    my $rc = "$ENV{RICOCHET}" || -f "$ENV{HOME}/.ricochet" ? "$ENV{HOME}/.ricochet" : "%%PREFIX%%/share/ricochet";
++    $rc .= "/ricochetrc"; 
+     Carp::croak "** Ricochet configuration file $rc doesn't exist. Aborting.\n" unless -e $rc; 
+     open (RC, $rc); 
+     grep {