What lists are a subscriber on?
Email Address:
\n"; } else { $command = "sudo -u mailman /usr/local/mailman/bin/find_member " . escapeshellarg($_REQUEST['email']); $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)) { if (preg_match("/^(.*) found in:$/", $ent, $match)) { $addr = $match[1]; next($results); while($sub = current($results)) { if (preg_match("/^ (.*)$/", $sub, $submatch)) { $lists["$addr"][] = $submatch[1]; } else { break; } next($results); } } #next($results); } ksort($lists); foreach ($lists as $ent=>$data) { $addr = $ent; $re = "(" . $_REQUEST['email'] . ")"; #print "re = $re
\n"; #print "addr = $addr, " . $lists[$ent][0] . "
\n" ; $address = eregi_replace($re, "
\\1
", $addr); print "
$address
\n"; #print $match[1] . "
\n"; print "
\n"; foreach ($data as $blah=>$value) { print "
" . $value . "
\n"; } print "
\n"; } } } } ?>
Back to Mailman Services Page