diff options
author | Andrey A. Chernov <ache@FreeBSD.org> | 1997-09-13 14:04:22 +0000 |
---|---|---|
committer | Andrey A. Chernov <ache@FreeBSD.org> | 1997-09-13 14:04:22 +0000 |
commit | d33e4a090c9deb7323b940eedf305c813119e90a (patch) | |
tree | d58e352c51263af768d7b9bc12fcd830092966bb /mail/adcomplain/files | |
parent | 81daf61a7ea37c0638e4d5b61123f1d149f14c46 (diff) | |
download | ports-d33e4a090c9deb7323b940eedf305c813119e90a.tar.gz ports-d33e4a090c9deb7323b940eedf305c813119e90a.zip |
Notes
Diffstat (limited to 'mail/adcomplain/files')
-rw-r--r-- | mail/adcomplain/files/patch-aa | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/mail/adcomplain/files/patch-aa b/mail/adcomplain/files/patch-aa new file mode 100644 index 000000000000..e297b474f0ac --- /dev/null +++ b/mail/adcomplain/files/patch-aa @@ -0,0 +1,101 @@ +*** adcomplain.pl.orig Sat Sep 13 17:48:01 1997 +--- adcomplain.pl Sat Sep 13 17:59:23 1997 +*************** +*** 1,6 **** +! #! /bin/sh -- # -*- perl -*- +! eval 'exec perl $0 ${1+"$@"}' +! if 0; + + # $Id: adcomplain.pl,v 1.6 1997/08/01 19:38:06 jason Exp $ + +--- 1,4 ---- +! #!/usr/bin/perl + + # $Id: adcomplain.pl,v 1.6 1997/08/01 19:38:06 jason Exp $ + +*************** +*** 230,236 **** + $noinclude = 1; + + # comment this if your mailer automatically adds your .signature +! $addsig = 1; + + # this is the default name of the file to use for the complaint text + # if the file name is empty, the default text will be used +--- 228,234 ---- + $noinclude = 1; + + # comment this if your mailer automatically adds your .signature +! $addsig = 0; + + # this is the default name of the file to use for the complaint text + # if the file name is empty, the default text will be used +*************** +*** 238,244 **** + + # this is the name of the mail utility (see sendmail(8) man page) + # type "which sendmail" to find out where sendmail is on your system +! $mailcmd = "/usr/lib/sendmail -t"; + + #----------------------------------------------- + +--- 236,242 ---- + + # this is the name of the mail utility (see sendmail(8) man page) + # type "which sendmail" to find out where sendmail is on your system +! $mailcmd = "/usr/sbin/sendmail -t"; + + #----------------------------------------------- + +*************** +*** 294,300 **** + } + + # Make sure critical messages are seen +! if ($poster eq "" || $complain_to eq "") { + print "Press enter to continue.... "; + $ans = <STDIN>; + } +--- 292,298 ---- + } + + # Make sure critical messages are seen +! if (!$quiet && ($poster eq "" || $complain_to eq "")) { + print "Press enter to continue.... "; + $ans = <STDIN>; + } +*************** +*** 358,363 **** +--- 356,364 ---- + $cc = "$complain_to$cc"; + } + $header .= "Cc: $cc\n" if $cc ne ""; ++ if ($quiet) { ++ print "$header"; ++ } + if ($recipient == $complain_to_only) { + $header .= "Subject: Abuse report ($subject)\n"; + } +*************** +*** 374,379 **** +--- 375,381 ---- + close TEXTFILE; + $response = ""; # garbage collection + ++ if (!$quiet) { + ## print copy of message on terminal + print "\n"; + $pager = $ENV{"PAGER"}; +*************** +*** 405,410 **** +--- 407,416 ---- + } # for + + print "\n"; ++ } else { ++ system "$mailcmd <$tempname"; # Unix dependent ++ print "sent\n"; ++ } + unlink $tempname; + close STDIN; + exit 0; |