Retire lists\n"; print "

\n"; print "\n"; $dir = "/usr/local/mailman/lists/"; if (is_dir($dir)) { if ($dh = opendir($dir)) { #print "

\n"; while (($file = readdir($dh)) !== false) { # blah #if (is_dir($file)) { if (!(preg_match("/\.\.?/",$file))) { $files[] = $file; } } closedir($dh); #print "

\n"; } } sort($files); reset($files); foreach ($files as $ent) { print "" . $ent . "\n"; } print "\n"; ?>

Back to Mailman Services
\n"; # Back up archives print "Backing up archives...
\n"; $arch = $listarchive . $ent . ".mbox"; $date = rtrim(`date +%Y%m%d`); #print "Arch = $arch, date = $date
\n"; $command = "/bin/tar cvfz " . $backupdir . "archive/" . $ent . "-" . $date . ".tar.gz $arch"; #print "command = $command
\n"; $fp = popen ($command, "r"); while (!feof($fp)){ $read = fgets($fp, 2096); $read = rtrim($read) ; if ( strlen($read)>0 ) { $result .= "$read\n" ; #$results[] = $read; } } pclose($fp) ; # Dump out config $command2 = "/usr/bin/sudo -u mailman /usr/local/mailman/bin/config_list -o " . $backupdir . "config/" . $ent . ".config " . $ent; #print "command2 = $command2
\n"; print "Dumping out config...
\n"; $lin = system($command2, $retval2); if ($retval2) { print "Dumping out the config has failed, please contact helpdesk.
\n"; die(1); } # Remove list $command3 = "/usr/bin/sudo -u mailman /usr/local/mailman/bin/rmlist -a $ent"; $lin = system($command3, $retval3); print "Removing list...
\n"; if ($retval3) { print "Removing the list has failed, please contact helpdesk.
\n"; die(1); } next($lists); } print "Back to Mailman Services
"; } ?>