Enable Lists\n"; print "

\n"; print "\n"; print "

\n"; print "\n"; if (is_dir($dir)) { if ($dh = opendir($dir)) { while (($file = readdir($dh)) !== false) { # blah if (preg_match("/(.*)\.config/",$file,$match)) { print "" . $match[1] . "\n"; } } closedir($dh); print "\n"; } } ?>
Password:

Back to Mailman Services Page
\n"; while($ent = current($lists)) { print "ent = $ent
\n"; $command = "sudo -u mailman /usr/local/mailman/bin/newlist -q $ent listmaster@cqu.edu.au $password"; #print "Command = $command
\n"; $lin = system($command, $retval); if ($retval) { print "Sorry, died creating lists, please contact helpdesk
\n"; die(1); } $command2 = "sudo -u mailman /usr/local/mailman/bin/config_list -i " . $dir . $ent . ".config $ent"; #print "Command2 = $command2
\n"; $lin = system($command2, $retval2); if ($retval2) { print "Sorry, died configuring lists, please contact helpdesk
\n"; die(1); } $command3 = "sudo -u mailman rm " . $dir . $ent . ".config"; #print "Command3 = $command3
\n"; $lin = system($command3, $retval3); if ($retval3) { print "Sorry, died removing list config, please contact helpdesk
\n"; die(1); } next($lists); } print "
\n"; print "Back to Mailman Service page
\n"; } ?>