#!/path/to/perl -w

use strict;
use File::Temp qw/ tempfile tempdir /;
use Mail::Internet;

File::Temp->safe_level( File::Temp::HIGH );

my $debug = 0;

my $dir = tempdir( CLEANUP => 1 );
my ($fh, $filename) = tempfile( DIR => $dir, SUFFIX => '.ml' );

my $rmail;
my $out;

# read in the mail
while (<>)
{
        $rmail .= $_;
}

# dump mail into the tempfile
print $fh $rmail;

my $head = Mail::Header->new( [ split /\n/, $rmail ] );

# our list name
my $list = $head->get("To");

# "debug" output file
open(DEB, '>>/tmp/mailwrapperdebug') unless $debug == 0;

# almost impossible for a mail to be less than 100 bytes by the time it gets here
if(length($rmail) > 100)
{
        # CHANGE PATHS IN THESE NEXT 2 LINES
        $out = `cat $filename | /path/to/python /path/to/qmail-to-mailman.py`;
        $out .= `cat $filename | /path/to/php /path/to/maillist.php $list`;
}
else
{
        $out = "ERR: received mail is only " . length($rmail) . " bytes long";
}

print DEB $out unless $debug == 0;

PRIVATE_EXTERNAL_ARCHIVER = 'cat > /tmp/mailman_pvt_arc; /usr/bin/mhonarc -add -outdir /usr/local/mailman/archives/private/%(listname)s -rcfile
/usr/local/mailman/archives/private/mhonarc.rc -htmlext html -idxfname index.html -title  %(listname)s -reverse -spammode < /tmp/mailman_pvt_arc;
/home/httpd/vhosts/kabissa.org/httpdocs/forum/data/scripts/maillist.php \"%(listname)s(at)lists(dot)kabissa(dot)org\" < /tmp/mailman_pvt_arc; rm /tmp/mailman_pvt_arc'