mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-01 22:05:08 +00:00
71 lines
2.1 KiB
Plaintext
71 lines
2.1 KiB
Plaintext
*** adcomplain.pl.orig Fri Jan 2 08:20:55 1998
|
|
--- adcomplain.pl Fri Jan 2 08:24:07 1998
|
|
***************
|
|
*** 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
|
|
***************
|
|
*** 279,286 ****
|
|
# 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
|
|
--- 280,287 ----
|
|
# 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;
|