[Mailman-Users] How can our MM site admin see unadvertised lists via web interface?
Steve Rifkin
steve410 at cs.jhu.edu
Wed Aug 10 17:17:18 CEST 2005
Cool. Thanks Matt, I'll have to try that out.
Steve
Matt wrote:
>I wrote a nasty script to generate an HTML file that lists all the
>lists.
>
>I run it daily from cron because I didn't want to monkey around with a
>setuid mailman CGI program.
>
>Use your web server to restrict access to the generated HTML file as
>appropriate.
>
>Here's an example. Customize as required. Works for me; it might
>work for you.
>
>#!/usr/bin/perl
># Create a web page from the output of the Mailman list_lists command.
>
>$cmd="/usr/share/mailman/bin/list_lists";
>
>open LISTINFO, "$cmd |" or die "cannot run $cmd: $!\n";
>
>print '
><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
><html>
><head>
><title>Mailing lists</title>
><style type="text/css">
>.shaded {background: #EEEEEE;}
></style>
></head>
><body>
><h1>Mailing lists</h1>
><table>
>';
>
>$rownumber = 0;
>$headerline = <LISTINFO>;
>while (<LISTINFO>) {
> chop;
> ($listname, $description) = split / - /;
> $listname =~ s/^\s+//;
> if ($rownumber % 2) {
> $class = "";
> } else {
> $class = 'class="shaded"';
> }
> $rownumber++;
> $lc_listname = lc $listname;
> print "<tr $class>\n";
> print "<td><a href=\"/mailman/listinfo/$lc_listname\">$listname</a>\n";
> print "<td>$description\n";
> print "<td><a href=\"mailto:${lc_listname}-owner\@your.list.server\">
>mail list owner</a>\n";
> print "</tr>\n";
>}
>
>print "</table>";
>
># page footer
>print '
></body>
></html>
>';
>
>--
>Matt Emerson
>rme at grc.nasa.gov
More information about the Mailman-Users
mailing list