#!/usr/bin/perl

print "Majordomo Mailinglist Creator, v1.1\n";

if(@ARGV eq 0) {
  print "Aufruf mit:   createlist name passwort owner\n";
  print "Beispiel:     createlist diskussions-l !hallo! olaf\@linuxbu.ch\n\n";
  print "Achtung: ändern Sie ggf. die Einstellungen in createlist\n";
  exit;
}

$LUSER="mdom";
$LGROUP="mdom";
$LPATH="/var/lib/majordomo";
$LLIST=@ARGV[0];
$LPASSWD=@ARGV[1];
$LOWNER=@ARGV[2];
$LHOST=`hostname`;
chop($LHOST);

print "Erzeuge Liste: $LLIST mit Passwort $LPASSWD und List-Owner $LOWNER\n";
print "Bitte machen Sie noch die nötigen Änderungen in\n";
print "$LLIST.info und $LLIST.config (wird nach der ersten Mail erzeugt)!\n\n";

print "Wenn Sie die Liste löschen wollen, dann löschen Sie die Dateien:\n";
print "cd $LPATH\n";
print "rm $LLIST $LLIST.* \n";
print "rm -R $LLIST.archive\n";
print "und machen Sie die Änderungen in /etc/aliases rückgängig.\n";

($name,$passwd,$uid,$gid,$quoata,$comment,$gcos,$dir,$shell) =getpwnam($LUSER);

open OUT,">".$LPATH."/lists/".$LLIST; close OUT;
chown($uid, $gid, $LPATH."/lists/".$LLIST);

#open OUT,">".$LPATH."/lists/".$LLIST.".auto"; close OUT;
#chown($uid, $gid, $LPATH."/lists/".$LLIST.".auto");

open OUT,">".$LPATH."/lists/".$LLIST.".info"; close OUT;
chown($uid, $gid, $LPATH."/lists/".$LLIST.".info");

open OUT,">".$LPATH."/lists/".$LLIST.".passwd"; 
print OUT "$LPASSWD\n"; 
close OUT;
chown($uid, $gid, $LPATH."/lists/".$LLIST.".passwd");
chmod(0660,$LPATH."/lists/".$LLIST.".passwd");

open OUT,">".$LPATH."/lists/".$LLIST.".resend"; 
print OUT "-p bulk -l $LLIST -f $LLIST-owner ";
print OUT "-R -h $LHOST -s -M 20000 -r $LLIST\@$LHOST\n";
close OUT;
chown($uid, $gid, $LPATH."/lists/".$LLIST.".resend");

mkdir($LPATH."/lists/".$LLIST.".archive/", 0777);
chown($uid, $gid, $LPATH."/lists/".$LLIST.".archive/");

open OUT,">>/etc/aliases";
print OUT <<EOF;
$LLIST: "|/usr/lib/majordomo/wrapper resend -l $LLIST -f $LLIST-owner -R -h $LHOST -s $LLIST-outgoing"
$LLIST-outgoing: :include:/var/lib/majordomo/lists/$LLIST, $LLIST-archive
$LLIST-archive: "|/usr/lib/majordomo/wrapper archive2.pl -a -m -f $LPATH/lists/$LLIST.archive/$LLIST"
$LLIST-request: "|/usr/lib/majordomo/wrapper request-answer $LLIST"
$LLIST-approval: $LLIST-owner, 
owner-$LLIST: $LLIST-owner,
$LLIST-owner: $LOWNER,

EOF
close OUT;