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

[Frank Lichtenheld <frank@lichtenheld.de>]

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 <frank@lichtenheld.de> ***
          *** 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
 
-@fieldlist = ('Language','Digest','Moderated','Subscription');
+@fieldlist = ('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>