#!/usr/athena/bin/perl
while(<>) {
 chop; $list=$_;
 print
"=$list\:majordom:35:60001:/var/mailspool/$list\:::\n",
"=$list-recipients:majordom:35:60001:/var/mailspool/$list\:-:recipients:\n",
"=$list-recipients-owner:majordom:35:60001:/var/mailspool/$list\:-:owner:\n",
"=owner-$list\:majordom:35:60001:/var/mailspool/$list\:-:owner:\n",
"=owner-$list-request:majordom:35:60001:/var/mailspool/$list\:-:owner:\n",
"=$list-approval:majordom:35:60001:/var/mailspool/$list\:-:approval:\n",
"=$list-request:majordom:35:60001:/var/mailspool/$list\:-:request:\n",
"=$list-owner:majordom:35:60001:/var/mailspool/$list\:-:owner:\n";
}