[RFR] webwml://legal/licenses/{byclass,bydate,byname}

[Mohammed Adnène Trojette <adn@diwi.org>]

On Fri, Mar 04, 2005, Mohammed Adnène Trojette wrote:
> Je prends.

Quelques scripts perl avec deux phrases à traduire...

-- 
adn
Mohammed Adnène Trojette
"La compagnie des honnêtes gens est un trésor."
              Proverbe oriental

<define-tag pagetitle>Récapitulatif de licenses Debian&nbsp;--&nbsp;par classe</define-tag>
#use wml::debian::template title="<pagetitle>" GEN_TIME="yes"
#use wml::debian::legal_lists
#use wml::debian::translation-check translation="1.3" maintainer="Mohammed Adnène Trojette"

<dls-lists-page-header />

<h2>Récapitulatif des licenses Debian&nbsp;&ndash;&nbsp;trié selon la
classification des licenses</h2>

<perl>
    my %name = (
                yes => [ '<headline-free/>', 'free' ],
                no => [ '<headline-non-free/>', 'non-free' ],
                'non-dist' => [ '<headline-non-dist/>', 'non-dist' ],
                );
foreach (qw( yes no non-dist )) {
    my %str = get_alphabetical_list( "$_", 'list' );
    my ( $toc, $content );
    
    if (scalar keys %str > 2) {
        print "<h3><a id=\"$name{$_}[1]\">$name{$_}[0]</a></h3>";
    }
    foreach my $letter (sort keys %str) {
        if (($letter eq 'foot') || ($letter eq 'head')) {
            next;
        }
        if (scalar keys %str > 12) {
            $toc .= " [&nbsp;<a href=\"#$letter\">$letter</a>&nbsp;]";
            $content .= "<h4><a id=\"$letter\">$letter</a></h4>\n";
            }
        $content .= "$str{head}$str{$letter}$str{foot}\n";
    }
    print "<p>$toc</p>" if $toc;
    print $content;
}
</perl>

<define-tag pagetitle>Récapitulatif de licenses Debian&nbsp;--&nbsp;par date</define-tag>
#use wml::debian::template title="<pagetitle>" GEN_TIME="yes"
#use wml::debian::recent_list
#use wml::debian::legal_tags
#use wml::debian::translation-check translation="1.2" maintainer="Mohammed Adnène Trojette"

<dls-lists-page-header/>

<h2>Récapitulatif des licenses Debian&nbsp;&ndash;&nbsp;trié par
date</h2>

<:= get_recent_list( '.', '0', '$(ENGLISHDIR)/legal/licenses', 
   'list', 'dls-.*' ) :>

<define-tag pagetitle>Récapitulatif des licenses Debian&nbsp;--&nbsp;par nom</define-tag>
#use wml::debian::template title="<pagetitle>" GEN_TIME="yes"
#use wml::debian::legal_lists
#use wml::debian::translation-check translation="1.3" maintainer="Mohammed Adnène Trojette"

<dls-lists-page-header />

<h2>Récapitulatif des licenses Debian&nbsp;&ndash;&nbsp;trié par nom de
license</h2>

<perl>
    my %str = get_alphabetical_list( '', 'list' );
my ( $toc, $content );

foreach my $letter (sort keys %str) {
    if (($letter eq 'foot') || ($letter eq 'head')) {
        next;
    }
    if (scalar keys %str > 10) {
        $toc .= " [&nbsp;<a href=\"#$letter\">$letter</a>&nbsp;]";
        $content .= "<h3><a id=\"$letter\">$letter</a></h3>\n";
    }
    $content .= "$str{head}$str{$letter}$str{foot}\n";
}
print "<p>$toc</p>" if $toc;
print $content;
</perl>