#!/bin/perl -w
$MAX_COL = 5 ;
$email = "zoonek\@math.jussieu.fr" ;
$TRUE = (0==0) ;
$FALSE = (0==1) ;
############################################################################
opendir(DIR, "./") || die "cannot open current directory: $!";
@fichiers=();
while($_=readdir(DIR)) {
next unless m/\.(gif|jpg)$/ ;
next if m/thumb/ ;
push @fichiers, $_;
}
closedir(DIR);
# Création des petites images
foreach $fichier (@fichiers) {
system "convert", "-geometry", "160x100", $fichier, "thumb_$fichier";
}
# Création du fichier html
open(HTML,">index.html");
## En -tete du fichier
print HTML "Images\n";
print HTML ''
. "\n" ;
print HTML " Images
\n";
print HTML "\n";
$entre_deux_lignes = $TRUE ;
$col = 0;
foreach (@fichiers) {
if($entre_deux_lignes){
$entre_deux_lignes = $FALSE ;
print HTML "\n";
$col = 0;
}
print HTML "";
print HTML "" ;
print HTML "![](\"thumb_$_\") " ;
print HTML " | \n" ;
$col++ ;
if($col>=$MAX_COL) {
print HTML "
\n" ;
$entre_deux_lignes = $TRUE ;
}
}
if(! $entre_deux_lignes) {
print HTML "\n";
}
## Fin du fichier
print HTML "
\n\n";
print HTML "
\n" ;
print HTML "automatically generated\n";
print HTML "on " . `date` ."\n" ;
print HTML "
";
print HTML "$email";
print HTML "\n" ;
close(HTML);