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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
*** adcomplain.pl.orig Wed Oct 8 02:02:29 1997
--- adcomplain.pl Wed Oct 8 02:13:15 1997
***************
*** 1,4 ****
! #! /bin/sh -- # -*- perl -*-
! eval 'exec perl $0 ${1+"$@"}'
! if 0;
--- 1,2 ----
! #!/usr/bin/perl
***************
*** 172,178 ****
$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
--- 170,176 ----
$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
***************
*** 180,186 ****
# 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";
# this is a list of domain names for your system (e.g., "compuserve.com")
# Names in this list are considered "friendly". Including your own system
--- 178,184 ----
# 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";
# this is a list of domain names for your system (e.g., "compuserve.com")
# Names in this list are considered "friendly". Including your own system
***************
*** 198,207 ****
# If you have external executables that allow you to confirm host
# addresses and names (i.e., gethostbyaddr and gethostbyname don't do it),
# put them here, otherwise leave them empty.
! #$GETHOSTBYNAME = "";
! #$GETHOSTBYADDR = "";
! $GETHOSTBYNAME = "gethostbyname";
! $GETHOSTBYADDR = "gethostbyaddr";
# Well, it works at GemStone. Your mileage may vary :-(.
#if (-x "/bin/remsh") { # HP-UX
--- 196,205 ----
# If you have external executables that allow you to confirm host
# addresses and names (i.e., gethostbyaddr and gethostbyname don't do it),
# put them here, otherwise leave them empty.
! $GETHOSTBYNAME = "";
! $GETHOSTBYADDR = "";
! #$GETHOSTBYNAME = "gethostbyname";
! #$GETHOSTBYADDR = "gethostbyaddr";
# Well, it works at GemStone. Your mileage may vary :-(.
#if (-x "/bin/remsh") { # HP-UX
***************
*** 315,321 ****
}
# Make sure critical messages are seen
! if ($poster eq "" || $complain_to eq "") {
print "Press enter to continue.... ";
$ans = <STDIN>;
}
--- 313,319 ----
}
# Make sure critical messages are seen
! if (!$quiet && ($poster eq "" || $complain_to eq "")) {
print "Press enter to continue.... ";
$ans = <STDIN>;
}
***************
*** 381,386 ****
--- 379,387 ----
$cc = "$complain_to$cc";
}
$header .= "Cc: $cc\n" if $cc ne "";
+ if ($quiet) {
+ print "$header";
+ }
$subject = "no subject" if $subject eq "";
$header .= "Subject: ";
if ($recipient == $complain_to_only) {
***************
*** 406,411 ****
--- 407,413 ----
close TEXTFILE;
$response = ""; # garbage collection
+ if (!$quiet) {
## print copy of message on terminal
print "\n";
$pager = $ENV{"PAGER"};
***************
*** 440,445 ****
--- 442,451 ----
} # for
print "\n";
+ } else {
+ system "$mailcmd <$tempname"; # Unix dependent
+ print "sent\n";
+ }
unlink $tempname;
close STDIN;
exit 0;
***************
*** 685,691 ****
local ($probe, $each, $result);
$probe = $text;
! $probe =~ s/^\s*(\S\S\S).*/$1/;
foreach $each ("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") {
return 1 if $each =~ /$probe/i;
}
--- 691,697 ----
local ($probe, $each, $result);
$probe = $text;
! $probe =~ s/^\s*(\w\w\w).*/$1/;
foreach $each ("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") {
return 1 if $each =~ /$probe/i;
}
|
