mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-21 20:38:45 +00:00
142 lines
3.9 KiB
Perl
142 lines
3.9 KiB
Perl
*** adcomplain.pl.orig Wed Oct 8 02:02:29 1997
|
|
--- adcomplain.pl Wed Oct 8 02:13:15 1997
|
|
***************
|
|
*** 1,6 ****
|
|
! #! /bin/sh -- # -*- perl -*-
|
|
! eval 'exec perl $0 ${1+"$@"}'
|
|
! if 0;
|
|
|
|
# $Id: adcomplain.pl,v 2.56 1997/10/03 23:09:02 jason Exp $
|
|
|
|
--- 1,4 ----
|
|
! #!/usr/bin/perl
|
|
|
|
# $Id: adcomplain.pl,v 2.56 1997/10/03 23:09:02 jason Exp $
|
|
|
|
***************
|
|
*** 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;
|
|
}
|