Show list name on configure and subscriber pages as well as the number of

subscribers on the subscriber page.

diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi
index ca9b02defcee98a89396ec76c262ca3f6b99a915..38c2e17a46866715e1b685d7bdc5bfc485225579 100755 (executable)
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi
@@ -70,6 +70,7 @@ $tpl->define(main => "subscribers.html",
 my $action = '';
 
 my $subscribers;
+my $subcount;
 
 if (defined $email) {
        my $subscriber = $q->param("subscriber");
@@ -175,7 +176,8 @@ $tpl->assign(LIST => encode_entities($list),
                         MAXID => scalar(@addresses),
                         SEARCH => defined $search ? $search : '',
                         PAGINATOR => $paginator,
-                        PAGE => $page);
+                        PAGE => $page,
+                        SUBCOUNT => $subcount);
 
 print "Content-type: text/html\n\n";
 
@@ -212,5 +214,7 @@ sub get_subscribers {
                $subscribers{$address}->{nomailsub} = 1;
        }
 
+       $subcount = scalar(keys %subscribers);
+
        return \%subscribers;
 }

diff --git a/contrib/web/perl-admin/templates/edit.html b/contrib/web/perl-admin/templates/edit.html
index e442aa9d2df2412dd9dc44d8046c2885f44974fa..5c1503a44a3bf7d55327883cd37d0872238b5588 100644 (file)
--- a/contrib/web/perl-admin/templates/edit.html
+++ b/contrib/web/perl-admin/templates/edit.html
@@ -3,6 +3,9 @@
 <p>
 <a href="index.cgi">Index</a> | <a href="subscribers.cgi?list=$LIST">Subscribers</a>
 </p>
+<p>
+List: $LIST
+</p>
 <form method="post" action="save.cgi">
 <input type="hidden" name="list" value="$LIST">
 <table border="1">

diff --git a/contrib/web/perl-admin/templates/subscribers.html b/contrib/web/perl-admin/templates/subscribers.html
index e802b058b7fd648bcb78e7d03a5d0a8cbfacee0b..3c9e2f2775667913c53943b931ccf8184ff00a44 100644 (file)
--- a/contrib/web/perl-admin/templates/subscribers.html
+++ b/contrib/web/perl-admin/templates/subscribers.html
@@ -22,6 +22,11 @@ $ACTION
 <tr><td><input type="submit" name="searchsubmit" value="Search"></td></tr>
 </table>
 <hr>
+<p>
+List: $LIST<br>
+Subscribers: $SUBCOUNT
+</p>
+<hr>
 $PAGINATOR
 <table border="1">
 <tr><th>Email address</th><th>Normal subscriber</th><th>Digest subscriber</th><th>No-mail subscriber</th></tr>