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