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
|
*** adcomplain.pl.orig Tue Dec 16 01:31:20 1997
--- adcomplain.pl Tue Dec 16 01:36:40 1997
***************
*** 1,3 ****
--- 1,4 ----
+ #!/usr/bin/perl
#! /bin/sh -- # -*- perl -*-
# first line invokes sh. Some systems may need to refer to perl directly, i.e.:
***************
*** 7,14 ****
# allows perl to be _anywhere_ in the user's path. The intent is to reduce
# the need to edit this file.
! eval 'exec perl $0 ${1+"$@"}'
! if 0; # tee hee! This is on a separate line, so /bin/sh never sees it.
#-----------------------------------------------
# DESCRIPTION
--- 8,15 ----
# allows perl to be _anywhere_ in the user's path. The intent is to reduce
# the need to edit this file.
! #eval 'exec perl $0 ${1+"$@"}'
! #if 0; # tee hee! This is on a separate line, so /bin/sh never sees it.
#-----------------------------------------------
# DESCRIPTION
***************
*** 281,288 ****
# depending on your system, to find out where sendmail is.
# If left blank, we try to find sendmail in /usr/lib, /usr/sbin, and then
# the user's $PATH, and then invoke it with the "-t" flag.
! #$mailcmd = "/usr/lib/sendmail -t";
! $mailcmd = "";
# 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
--- 282,289 ----
# depending on your system, to find out where sendmail is.
# If left blank, we try to find sendmail in /usr/lib, /usr/sbin, and then
# the user's $PATH, and then invoke it with the "-t" flag.
! $mailcmd = "/usr/sbin/sendmail -t";
! #$mailcmd = "";
# 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
***************
*** 542,547 ****
--- 543,549 ----
close TEXTFILE;
$response = ""; # garbage collection
+ if (!$quiet) {
## print copy of message on terminal
print "\n";
$pager = $ENV{"PAGER"};
***************
*** 576,581 ****
--- 578,587 ----
} # for
print "\n";
+ } else {
+ system "$mailcmd <$tempname"; # Unix dependent
+ print "sent\n";
+ }
unlink $tempname;
close STDIN;
exit 0;
***************
*** 3694,3700 ****
"glasscity.net",
"globalent.net", # has no anti-spam policy
"globalf(n|inan).com",
- "globecomm.net",
"gohomeray.com", # cyberpromo
"(good|spray)(net)?.com",
"greatoffer.com",
--- 3700,3705 ----
|
