#!/usr/bin/perl use strict; my ($homedir, @html_names, @dirs, $html_index, $dir, @contributeurs, $i, @contrib1, @contrib2); $homedir = "/home/lf"; @html_names = ("HEADER.html", "HEADER.fr.HTML", "index.html", "quefaisje.html"); opendir(dir, $homedir) or die "Impossible d'ouvrir $homedir\n"; @dirs = grep { -d "$homedir/$_/html" && $_ ne "." && $_ ne ".." && $_ ne "cvs" && ! /\.old$/ } readdir(dir); closedir(dir); @dirs = sort(@dirs); print << "fin"; Liste des contributeurs

Liste des contributeurs

Sur cette page, vous trouverez la liste des contributeurs principaux de Linux-France. Certains ont mis en ligne une page où ils présentent leur activité sur Linux-France.

fin $i = 0; for $dir (@dirs) { my $fic = "bouhyarien"; my $auteur = ""; my $meta = ""; for $html_index (@html_names) { if(-f "$homedir/$dir/html/$html_index") { $fic = "$homedir/$dir/html/$html_index"; } } if($fic eq "bouhyarien") { $contributeurs[$i] = [2, $dir, ""]; } else { open(fic,"<".$fic) or next; while () { if (!(//i || //i)) { next; } $meta = $_; last; } $_ = $meta; if(/content\s*="\s*/i) { if($' =~ /".*>/i) { $auteur = $`; } } if(/content\s*='\s*/i) { if($' =~ /'.*>/i) { $auteur = $`; } } $auteur =~ s/\s+/ /g; $auteur =~ s/^\s//; $auteur =~ s/\s$//; $contributeurs[$i] = [1, $dir, $auteur]; close(fic); } $i++; } @contributeurs = sort {$a->[0] <=> $b->[0]} @contributeurs; @contrib1 = grep { $_->[0] == 1 } @contributeurs; @contrib2 = grep { $_->[0] == 2 } @contributeurs; print "

1. Contributeurs présentant leur activité sur Linux-France

\n"; print " \n"; print "

2. Les autres contributeurs

\n"; print " \n"; print "
\n\n\n"; exit(0);