List Members\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 (!(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"; $tot = 0; $command = "sudo -u mailman /usr/local/mailman/bin/list_members $ent"; $fp = popen ($command, "r"); while (!feof($fp)){ $read = fgets($fp, 2096); $read = rtrim($read) ; if ( strlen($read)>0 ) { #$result .= "$read\n" ; $results[] = $read; $tot++; } } pclose($fp) ; print "$ent ($tot members)
\n"; print "

\n"; foreach ($results as $user) { print "
• $user
\n"; } print "

\n"; } print "Back to Mailman Services
"; } ?>