Bug#706988: create release list automatically on wdo/releases/index
On Tue, 07 May 2013 10:34:38 -0400
David Prévot wrote:
> No, please provide or document a way to use the capitalized version of
> $codename (e.g. Wheezy instead of wheezy) as used in some languages.
updated
--
victory
no need to CC me :-)
http://userscripts.org/scripts/show/102724 0.0.1.4
http://userscripts.org/scripts/show/163846 0.0.1
http://userscripts.org/scripts/show/163848 0.0.1
Index: po/Makefile
===================================================================
RCS file: /cvs/webwml/webwml/english/po/Makefile,v
retrieving revision 1.97
diff -u -r1.97 Makefile
--- po/Makefile 4 May 2013 19:09:43 -0000 1.97
+++ po/Makefile 6 May 2013 16:24:13 -0000
@@ -20,7 +20,8 @@
date_FILES = $(TEMPLDIR)/ctime.wml
distrib_FILES = $(ENGLISHDIR)/distrib/search_packages-form.inc \
$(ENGLISHDIR)/distrib/search_contents-form.inc \
- $(ENGLISHDIR)/releases/arches.data
+ $(ENGLISHDIR)/releases/arches.data \
+ $(ENGLISHDIR)/releases/releases.data
doc_FILES = $(ENGLISHDIR)/doc/books.def $(ENGLISHDIR)/doc/manuals.defs \
$(ENGLISHDIR)/doc/books.data $(ENGLISHDIR)/releases/arches.data
l10n_FILES = $(ENGLISHDIR)/international/l10n/dtc.def \
Index: po/distrib.pot
===================================================================
RCS file: /cvs/webwml/webwml/english/po/distrib.pot,v
retrieving revision 1.20
diff -u -r1.20 distrib.pot
--- po/distrib.pot 27 Dec 2012 15:33:24 -0000 1.20
+++ po/distrib.pot 6 May 2013 16:32:32 -0000
@@ -177,3 +177,27 @@
msgid "SPARC"
msgstr ""
+#: ../../english/releases/releases.data:21
+msgid "Debian $version (<q>$codename</q>)"
+msgstr ""
+
+#: ../../english/releases/releases.data:23
+msgid "Debian GNU/Linux $version (<q>$codename</q>)"
+msgstr ""
+
+#: ../../english/releases/releases.data:25
+msgid "The next release of Debian is codenamed <q>$codename</q>"
+msgstr ""
+
+#: ../../english/releases/releases.data:28
+msgid "— no release date has been set"
+msgstr ""
+
+#: ../../english/releases/releases.data:29
+msgid "— current stable release"
+msgstr ""
+
+#: ../../english/releases/releases.data:31
+msgid "— obsolete stable release"
+msgstr ""
+
Index: releases/index.wml
===================================================================
RCS file: /cvs/webwml/webwml/english/releases/index.wml,v
retrieving revision 1.60
diff -u -r1.60 index.wml
--- index.wml 5 May 2013 07:31:07 -0000 1.60
+++ index.wml 7 May 2013 15:27:54 -0000
@@ -1,5 +1,6 @@
#use wml::debian::template title="Debian Releases"
#include "$(ENGLISHDIR)/releases/info"
+#include "$(ENGLISHDIR)/releases/releases.data"
<p>Debian always has at least
three releases in active maintenance: <q>stable</q>, <q>testing</q> and
@@ -65,53 +66,9 @@
<h2>Index of releases</h2>
<ul>
-
- <li><a href="<current_testing_name>/">The next release of Debian is codenamed
- <q><current_testing_name></q></a>
- — no release date has been set
- </li>
-
- <if-stable-release release="jessie">
- <li><a href="jessie/">Debian 8.0 (<q>jessie</q>)</a>
- — current stable release
- </li>
- <li><a href="wheezy/">Debian 7.0 (<q>wheezy</q>)</a>
- — obsolete stable release
- </li>
- </if-stable-release>
-
- <if-stable-release release="wheezy">
- <li><a href="wheezy/">Debian 7.0 (<q>wheezy</q>)</a>
- — current stable release
- </li>
- </if-stable-release>
-
- <li><a href="squeeze/">Debian 6.0 (<q>squeeze</q>)</a>
- — obsolete stable release
- </li>
-
- <li><a href="lenny/">Debian GNU/Linux 5.0 (<q>lenny</q>)</a>
- — obsolete stable release
- </li>
-
- <li><a href="etch/">Debian GNU/Linux 4.0 (<q>etch</q>)</a>
- — obsolete stable release
- </li>
- <li><a href="sarge/">Debian GNU/Linux 3.1 (<q>sarge</q>)</a>
- — obsolete stable release
- </li>
- <li><a href="woody/">Debian GNU/Linux 3.0 (<q>woody</q>)</a>
- — obsolete stable release
- </li>
- <li><a href="potato/">Debian GNU/Linux 2.2 (<q>potato</q>)</a>
- — obsolete stable release
- </li>
- <li><a href="slink/">Debian GNU/Linux 2.1 (<q>slink</q>)</a>
- — obsolete stable release
- </li>
- <li><a href="hamm/">Debian GNU/Linux 2.0 (<q>hamm</q>)</a>
- — obsolete stable release
- </li>
+# translators: if you want capitalize first character,
+# use <releases-list ucfirst> here
+<releases-list>
</ul>
<p>The web pages for the obsolete Debian releases are kept intact, but
--- releases.data
+++ releases.data
@@ -0,0 +1,46 @@
+<define-tag releases-list>
+<set-var %attributes>
+<bind-gettext-domain domain="distrib" />
+<:
+# list of release distribution
+%releases = (
+ "8.0" => "jessie",
+ "7.0" => "wheezy",
+ "6.0" => "squeeze",
+ "5.0" => "lenny",
+ "4.0" => "etch",
+ "3.1" => "sarge",
+ "3.0" => "woody",
+ "2.2" => "potato",
+ "2.1" => "slink",
+ "2.0" => "hamm",
+);
+
+my $next_status = "";
+foreach my $version (sort{$b<=>$a}keys %releases){
+ my $codename = $releases{$version};
+ $codename = ucfirst($codename) if(<var-exists ucfirst>);
+ my $cn = $releases{$v};
+ my $deb = "<gettext domain="distrib">Debian $version (<q>$codename</q>)</gettext>"
+ if($version > 5);
+ $deb = "<gettext domain="distrib">Debian GNU/Linux $version (<q>$codename</q>)</gettext>"
+ if($version < 6);
+ $deb = "<gettext domain="distrib">The next release of Debian is codenamed <q>$codename</q></gettext>"
+ if($count < 1);
+
+ my $status = '<gettext domain="distrib">— no release date has been set</gettext>';
+ $status = '<gettext domain="distrib">— current stable release</gettext>'
+ if($next_status eq "current");
+ $status = '<gettext domain="distrib">— obsolete stable release</gettext>'
+ if($next_status eq "obsolete");
+
+ print qq| <li><a href="$codename/">$deb</a>\n|;
+ print qq| $status\n|;
+ print qq| </li>\n|;
+ $next_status = "obsolete" if($next_status eq "current");
+ $next_status = "current" if($next_status eq "");
+ $count++;
+}
+:>
+</define-tag>
+
Reply to: