[LCFC] webwml://legal/licenses/{byclass,bydate,byname}
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 — 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 – 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 .= " [ <a href=\"#$letter\">$letter</a> ]";
$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 — 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 – triées par
ordre chronologique</h2>
<:= get_recent_list( '.', '0', '$(ENGLISHDIR)/legal/licenses',
'list', 'dls-.*' ) :>
<define-tag pagetitle>Récapitulatif des licences Debian — 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 – 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 .= " [ <a href=\"#$letter\">$letter</a> ]";
$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>
Reply to: