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

sub readheader
{
   if (/^From: /i)
   {
         $From = $_;
         $From =~ s/.*\(//;
         $From =~ s/\)+$//;
         $From=~s/from: //i;
         chop $From;
   }
   while (<FILE>) {
         chop;
      if (/^date: /i)
      {
         chop;
         $date=$_;
         $date=~s/date: //i;
         $date=$date."\001";
      }
      #if (/^pktname: /i)
      #{
      #   $pktname=$_;
      #   $pktname=~s/pktname: //i;
      #}
      if (/^Subject: /i)
      {
         $Subj = substr($_,9,69);
      }
      if (/^To: /i)
      {
         $To=$_;
         $To=~s/to: //i;
      }
      if (/^Area: /i)
      {
         $area=$_;
         $area=~s/area: //i;
      }
      if (/^seen-by: /i)
      {
        $_=$_."\n" if ! /\n$/;
        $seenby=$seenby.$_;
      }
      if (/^\001path: /i)
      {
        $path=$_;
        $seenby=$seenby.$addseenbys if lc($area) eq lc($echo);
        last;
      }
      if (/^.\*.origin: /i)
      {
         $origin=$_."\n";
      }
   }
}

sub datetime {
    local($sec, $min, $hour, $mday, $mon, $year);
    @MoY = ('Jan','Feb','Mar','Apr','May','Jun',
            'Jul','Aug','Sep','Oct','Nov','Dec');
    #($sec, $min, $hour, $mday, $mon, $year) = localtime();
    $year+=1900;
    $year=substr($year,2,2);

    sprintf("%02d %s %s  %02d:%02d:%02d",
            $mday, $MoY[$mon], $year, $hour, $min, $sec);
}

#sub ext {
#    local($sec, $min, $hour, $mday, $mon, $year, $wday);
#    @ExT = ('SU1','MO1','TU1','WE1','TH1','FR1','SA1');
#    ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime();
#    $ExT[$wday];
#}


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

.