List Members\n"; print "

\n"; print "\n"; if (is_readable($listfile)) { $contents = file($listfile); } fclose($file); #$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($contents); reset($contents); foreach ($contents as $ent) { list($nam,$sub) = explode(":",$ent); print "nam = $nam, sub = $sub
\n"; print "" . $nam . "\n"; } #print "\n"; ?>

Back to Mailman Services
\n"; $command = "sudo -u mailman /bin/grep ^$ent $listfile | /bin/sort"; #print "Command = $command
\n"; $fp = popen ($command, "r"); while (!feof($fp)){ $read = fgets($fp, 4192); $read = rtrim($read) ; if ( strlen($read)>0 ) { $results[] = $read; } } pclose($fp) ; foreach ($results as $lin) { list($listnam,$sub) = explode(":",$lin); $email = explode(",",$sub); $tot = count($email); print "$listnam ($tot members)
\n"; print "

"; foreach ($email as $add) { print "
• $add
\n"; } print "

"; } # print "$ent ($tot members)
\n"; # print "

\n"; # foreach ($results as $user) { # list($foo,$sub) = explode(":",$user); # $email = explode(",",$sub); # foreach ($email as $add) { # print "
• $email
\n"; # } # } print "

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