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

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

On Mon, Mar 07, 2005, Mohammed Adnène Trojette wrote:
> Quelques scripts perl avec deux phrases à traduire...

J'ai intégré toutes les modifs de Thomas.
Merci pour sa relecture.

-- 
adn
Mohammed Adnène Trojette
"La confiance se gagne en gouttes et se perd en litres."
              Anonyme

<define-tag pagetitle>Récapitulatif des licences Debian&nbsp;&mdash;&nbsp;par type</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 licences Debian&nbsp;&ndash;&nbsp;triées par
type</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 des licences Debian&nbsp;&mdash;&nbsp;par ordre chronologique</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ées par
ordre chronologique</h2>

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

<define-tag pagetitle>Récapitulatif des licences Debian&nbsp;&mdash;&nbsp;par ordre alphabétique</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ées par ordre alphabétique</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>