Bug#169078: Patch for: Add Archived-tag to subscription page

[Frank Lichtenheld]

tags 169078 + patch
thanks

Hi.

I produced a patch for mklist, that generates a link on the
subscription page to the list's page on l.d.o, if there exists 
a archive for this list.
Not included in this patch are the changes needed for lists.cfg,
as they are long, but trivial.

Greetings,
        Frank

-- 
*** Frank Lichtenheld <[EMAIL PROTECTED]> ***
          *** http://www.djpig.de/ ***
see also: - http://www.usta.de/
          - http://fachschaft.physik.uni-karlsruhe.de/
Index: mklist
===================================================================
RCS file: /cvs/webwml/webwml/english/MailingLists/mklist,v
retrieving revision 1.21
diff -u -r1.21 mklist
--- mklist      19 Oct 2002 20:03:20 -0000      1.21
+++ mklist      23 Mar 2003 21:29:31 -0000
@@ -34,9 +34,12 @@
 # -u | --unsubscribe
 $def_unsubscribe = "unsubscribe.wml";
 #
+#
+$archive_url_prefix = "http://lists.debian.org/";;
+#
 # ----- End of Customisation
 
[EMAIL PROTECTED] = ('Language','Digest','Moderated','Subscription');
[EMAIL PROTECTED] = ('Language','Digest','Moderated','Subscription','Archived');
 @specialist = ('Section','Description','Websubscribe');
 @globlist = ('List','Introduction','Subscription','Advertising');
 
@@ -412,6 +415,14 @@
                                        printf OUT "    <subscription> 
<em><Debian_Technical_Committee_only></em>\n";
                                } else {
                                        printf OUT "    <subscription> 
<em>%s</em>\n", $list{$l}->{'Subscription'};
+                               }
+                               
+                               printf OUT "&nbsp;&nbsp;&nbsp;&nbsp;";
+                               if (defined($list{$l}->{'Archived'}) 
+                                   && ($list{$l}->{'Archived'} eq "yes")) {
+                                   printf OUT "    <archived> <em><a 
href=\"$archive_url_prefix/$slist/\"><yes></a></em>\n";
+                               } else {
+                                   printf OUT "    <archived> <em><no></em>\n";
                                }
 
                                if (exists $list{$l}->{'Digest'}) {
Index: mklist.tags
===================================================================
RCS file: /cvs/webwml/webwml/english/MailingLists/mklist.tags,v
retrieving revision 1.36
diff -u -r1.36 mklist.tags
--- mklist.tags 2 Nov 2002 22:17:40 -0000       1.36
+++ mklist.tags 23 Mar 2003 21:29:31 -0000
@@ -21,6 +21,9 @@
 <define-tag subscription whitespace=delete>
   <gettext domain="others">Subscription:</gettext>
 </define-tag>
+<define-tag archived whitespace=delete>
+  <gettext domain="others">Archived:</gettext>
+</define-tag>
 <define-tag digest whitespace=delete>
   <gettext domain="others">is a read-only, digestified version.</gettext>
 </define-tag>