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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
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;
|
