[Mailman-Users] ANSWER: Integrating PHP to Mailman
Curtis Preston
cpreston at glasshouse.com
Fri Jun 1 02:22:33 CEST 2007
As some of you are aware, I've been integrating Mailman with PHP to
integrate it into Joomla!. I had a version that did it using command
line options, but that didn't work for a lot of people, so I did some
work to figure out how to do it via the file_get_contents function in
PHP. I have pulled it off and my Joomla! component is just about ready
to go out to the community, but I thought I'd send a non-Joomla! version
to show how to use PHP to administer Mailman.
Attached is a demo script that will demonstrate how I did this.
Hopefully you should be able to look at the script and its output and
learn how to do what YOU need to do.
To use the script, put it in the doc directory of your web server,
calling it mailman.php. Then edit it and change the value of $domain to
your domain, change $email to some valid email address, and change
$adminpw to the admin password of your site. Leave diag at 1 to see the
most information. Set it to 0 to turn off most of it, and set it to 2
for debugging. Then run yourdomain/mailman.php and watch the show.
1. List all the lists on your server
2. List all the lists that the email address you supplied is
subscribe to, and how they're subscribed (digest or regular)
3. Do #2 again in a different way
4. Unsubscribe the email address you gave from all lists
5. Subscribe the email address you gave to all lists
6. Change the subscription to digest mode on all lists
Here 'tis:
-------cut and paste-----
<?
#List all lists
$domain="domain.com";
$email="user at domain.com";
$adminpw="password";
$diag=1;
#Build an array of all lists and their descriptions
print "<html><body>\n" ;
#Build the command to list all lists
$adminurl="http://" . $domain . "/mailman/admin"; if ( "$diag" == 1 )
{print "<br><b>adminurl=</b>$adminurl\n" ;}
#Run the command
$content=file_get_contents("$adminurl","FALSE");
#Split the output into an array that we can loop through
$array = preg_split('/\n/',$content);
#For each line in the output
foreach ($array as $element) {
#As soon as we see the first line of the list of lists, say so
if ( preg_match("/a href=.*strong.*strong/", "$element") ) {
$table="on";}
if ( "$diag" == 2 ) {print "<br>$table:$element";}
if ( "$table" == "on" ) {
#We're inside the table
if ( preg_match("/a href=.*strong.*strong/", "$element") ) {
#If it's the line with the listname...
if ( "$diag" == 2 ) {print "<br>list:$element\n";}
$listname = preg_replace("/.*href=./","","$element") ;
$listname = preg_replace("/.>.*/","","$listname") ;
$listname = preg_replace("/.*\//","","$listname") ;
if ( "$diag" == 2 ) {print "<br>listname:$listname\n";}
} else {
if ( "$diag" == 2 ) {print "<br>desc:$element\n";}
if ( preg_match("/<td>.*<.td>/", "$element") ) {
#If it's the line with the description
$description = preg_replace("/.*<td>/","","$element")
;
$description =
preg_replace("/<.td>.*/","","$description") ;
$description =
preg_replace("/<\/*em>/","","$description") ;
$lists["$listname"] = "$description";
if ( "$diag" == 2 ) {print
"<br>description:$description\n";}
}
}
#When the table ends, there's no more work to do
if ( preg_match("/<.table>/", "$element") ) { $table="off";}
}
}
if ( "$diag" == 1 ) {print "<table border=1>\n";} if ( "$diag" == 1 )
{print "<tr><td>Listname</td><td>Description</td></tr>\n";}
#Loop through the associative array of lists and descriptions and print
them out
foreach ($lists as $listname => $desc) {
if ( "$diag" == 1 ) {print "<tr>\n";}
if ( "$diag" == 1 ) {print "<td>$listname</td>\n";}
if ( "$diag" == 1 ) {print "<td>$desc</td>\n";}
if ( "$diag" == 1 ) {print "</tr>\n";} }
if ( "$diag" == 1 ) {print "</table>\n";}
if ( "$diag" == 1 ) {print "<table border=1>\n";} if ( "$diag" == 1 )
{print "<tr><td>Listname</td><td>Regular/Digest</td></tr>\n" ;}
#For each list
foreach ($lists as $listname => $desc) { #Find email in list
#Build a command to list if a member is in a given list
$findemailurl="http://" . $domain . "/mailman/admin/" . $listname .
"/members?findmember=" . $email . "&setmemberopts_btn&adminpw=" .
"$adminpw";
if ( "$diag" == 1 ) {print "<tr><td
colspan=\"2\"><b>FindMemberUrl=</b>$findemailurl</td></tr>\n" ;}
#Run the command
$content=file_get_contents("$findemailurl","FALSE");
#The line we're looking for looks like this:
#<td><center><INPUT name="curtis at backupcentral.com_digest"
type="CHECKBOX" value="on" CHECKED ></center></td>
$digestline="INPUT name=." . $email . "_digest.";
$ondigestline="INPUT name=." . $email . "_digest. type=.CHECKBOX.
value=.on.";
if ( "$diag" == 2 ) {print "<tr><td
colspan=\"2\">$digestline</td></tr>\n" ;}
if ( "$diag" == 2 ) {print "<tr><td
colspan=\"2\">$ondigestline</td></tr>\n" ;}
#if we found the member, then they'll be a line that has this
string in it.
if ( preg_match("/$digestline/", "$content") ) {
#He's subscribed. Is he subscribe in digest format?
if ( preg_match("/$ondigestline/", "$content") ) {
if ( "$diag" == 1 ) {print
"<tr><td>$listname</td><td>Digest</td></tr>\n";}
#Add the user listname and digest to the email_lists
array
$email_lists["$listname"] = "digest";
} else {
if ( "$diag" == 1 ) {print
"<tr><td>$listname</td><td>Regular</td></tr>\n";}
#Add the user listname and regular to the email_lists
array
$email_lists["$listname"] = "regular";
}
}
}
if ( "$diag" == 1 ) {print "</table>\n";}
if ( "$diag" == 1 ) {print "<table border=1>\n";} if ( "$diag" == 1 )
{print "<tr><td colspan=\"2\"><b>Same info again just to show you how to
use the array.</b></td></tr>\n" ;}
#This just demonstrates how to use the array that we created above
foreach ($email_lists as $listy => $digesty) {
if ( "$diag" == 1 ) {print "<tr>\n";}
if ( "$diag" == 1 ) {print "<td>$listy</td>\n";}
if ( "$diag" == 1 ) {print "<td>$digesty</td>\n";}
if ( "$diag" == 1 ) {print "</tr>\n";} }
if ( "$diag" == 1 ) {print "</table>\n";}
if ( "$diag" == 1 ) {print "<table border=1>\n";} #Unsub email from all
lists foreach ($lists as $listname => $desc) {
#Build the command
$unsuburl = "http://" . $domain . "/mailman/admin/" . $listname .
"/members/remove?send_unsub_ack_to_this_batch=0&send_unsub_notifications
_to_list_owner=0&unsubscribees_upload=" . $email . "&adminpw=" .
$adminpw;
if ( "$diag" == 1 ) {print
"<tr><td><b>UnsubscribeUrl:</b>$unsuburl</td></tr>\n";}
#Run the command
$content=file_get_contents("$unsuburl","FALSE");
}
if ( "$diag" == 1 ) {print "</table>\n";}
#Sub email to all lists
if ( "$diag" == 1 ) {print "<table border=1>\n";} foreach ($lists as
$listname => $desc) {
#Build the command
$subscribeurl="http://" . $domain . "/mailman/admin/" . $listname
.
"/members/add?subscribe_or_invite=0&send_welcome_msg_to_this_batch=0¬
ification_to_list_owner=0&subscribees_upload=" . $email . "&adminpw=" .
$adminpw ;
if ( "$diag" == 1 ) {print
"<tr><td><b>SubscribeUrl</b>:$subscribeurl</td></tr>\n";}
#Run the command
$content=file_get_contents("$subscribeurl","FALSE");
}
if ( "$diag" == 1 ) {print "</table>\n";}
#Set digest mode on for all lists
if ( "$diag" == 1 ) {print "<table border=1>\n";} foreach ($lists as
$listname => $desc) {
#Build the command
$turnondigesturl="http://" . $domain . "/mailman/admin/" .
$listname . "/members?user=" . $email . "&" . $email .
"_digest=1&setmemberopts_btn&adminpw=" . "$adminpw";
if ( "$diag" == 1 ) {print
"<tr><td><b>DigestOnUrl:</b>$turnondigesturl</td></tr>\n";}
#Run the command
$content=file_get_contents("$turnondigesturl","FALSE");
}
if ( "$diag" == 1 ) {print "</table>\n";}
?>
---
W. Curtis Preston
Author of O'Reilly's Backup & Recovery and Using SANs and NAS
VP Data Protection
GlassHouse Technologies
More information about the Mailman-Users
mailing list