#!/usr/bin/perl -w
#
# Last updated by rb on Thu Dec 25 02:14:15 EST 2003
#

use strict;


while (<>) {
   chomp;
   my ($matchline, $type, $folder, $subjstrip, $listname) = split /#/;

   warn "Can't process line: $_" unless $matchline;

   print "# $listname\n" if $listname;
   if ($type eq "news") {
      if ($subjstrip) {
         print <<EOT
:0
* $matchline
{
   :0 fHw
   |sed -e 's/$subjstrip//'

   :0 fHw
   |sed -e 's/Re: *Re:/Re:/g'

   :0w
   |/home/rb/code/perl/mail2news/mail2news $folder

   :0e:
   admin-errors-news
}

EOT

      } else {
         print <<EOT
:0w
* $matchline
|/home/rb/code/perl/mail2news/mail2news $folder

:0e:
admin-errors-news

EOT

      }
   } else {
      if ($subjstrip) {
         print <<EOT
:0
* $matchline
{
   :0 fHw
   |sed -e 's/$subjstrip//'

   :0 fHw
   |sed -e 's/Re: *Re:/Re:/g'

   :0:
   $folder
}

EOT

      } else {
         print <<EOT
:0:
* $matchline
$folder

EOT

      }
   }
}

#
# End.
#