mhonarc-users

MHonarc majordomo digest ?

1998-06-15 22:37:19
Hi,
I was reading the  Mhonarc FAQ and saw your script and had a question.  I
am currnetly running a digest and archive list and wanted to implement
Mhonarc.  I used your script and did digest.pl 006 > test to see if it
would convert the file but the test file revealed nothing.  Am I doing
somthing wrong.  Do I have to use the script on each digested letter and
move it to the Mohnarc inbox?  

thanks
Joe



#!/usr/bin/perl
$userid = getlogin();
$ii = 0;while (<>) {
  if($printline) {
    $line{$ii} = $_;
    $ii++;
  }
  if
(/^----------------------------------------------------------------------/) {
    $printline = 1;
    $line{$ii} = "------------------------------";
    $ii++;
  }
}

for($jj = 0; $jj < $ii; $jj++) {
  if(/^------------------------------/, $line{$jj}) {
    if($line{$jj+2} =~ "^Date:") {
      print "From $userid\n";
      $jj += 2;
    } else {
      if($line{$jj+2} =~ "^End of") {
        exit;
      }
    }
  }
  print $line{$jj};
} 

<Prev in Thread] Current Thread [Next in Thread>