*** 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;