What lists are a subscriber on?
Email Address:
\n"; } else { $command = "sudo -u mailman /bin/grep " . $_REQUEST['email'] . " $subscribers | /bin/sort"; print "Command = $command
\n"; $fp = popen ($command, "r"); while (!feof($fp)){ $read = fgets($fp, 2096); $read = rtrim($read) ; if ( strlen($read)>0 ) { $results[] = $read; } } pclose($fp) ; if ($results == "") { print "Sorry, " . $_REQUEST['email'] . " isn't on any lists
\n"; } else { print "Matching " . $_REQUEST['email'] . "
\n"; print "
\n"; print "
Email address
Lists
\n"; while ($ent = current($results)) { list($addr,$foo) = explode(":",$ent); $re = "(" . $_REQUEST['email'] . ")"; $address = eregi_replace($re, "
\\1
", $addr); $lists = explode(",",$foo); print "
$address
\n"; print "
\n"; foreach ($lists as $bar) { print "
" . $bar . "
\n"; } print "
\n"; next($results); } } } } ?>
Back to Mailman Services Page