Subj : readpkt.pl part 2 of 2
To   : All
From : tony summerfelt
Date : Wed Aug 28 2002 03:57 pm

sub showheader
{
      print msg "from: $from\n";
      print msg "to: $to\n";
      print msg "subject: $subj\n";
      print msg "date: $datetime\n";
      print msg "area: $area\n";
      print msg "$mailer\n" if ($mailer);
      print msg " * Origin: $origin\n";
      print msg "pktname: $pktname\n";
      print msg $seenby;
      open tp, "r:/pkt/path.~~~" || die "can't open path.~~~ -- $!";
      $path=<tp>;
      print msg "$path\n";
      close tp;
      for ($k=0;$k<$#lines;$k++)
      {
          $_=$kludges[$k];
          print msg "$_\n" if /^\001intl/i;
          print msg "$_\n" if /^\001topt/i;
          print msg "$_\n" if /^\001pid/i;
          print msg "$_\n" if /^\001msgid/i;
          print msg "$_\n" if /^\001reply/i;
          print msg "$_\n" if /^\001tzutc/i;
          print msg "$_\n" if /^\001charset/i;
      }
}


--- GoldED/SuSE 3.0.1-os1+
 * Origin: ...the vented spleen - kingston, on (613) 544-9332 (1:249/139)

.