Subscribe a User\n"; print "

\n"; print "\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))) { #print "" . $file . "\n"; $lists[] = $file; } } closedir($dh); } } sort($lists); reset($lists); foreach ($lists as $ent) { print "" . $ent . "\n"; } print " \n"; ?>
Email Address:

\n"; while($ent = current($lists)) { print "ent = $ent
\n"; $command = "echo \"$email\" | sudo -u mailman /usr/local/mailman/bin/add_members -r - $ent >/dev/null"; $lin = system($command, $retval); if($retval) { print "Can't subscribe user to $ent
"; } next($lists); } print "
\n"; print "Back to Mailman Services
"; } ?>