#!/usr/local/bin/perl
$| = 1;
select STDOUT;
$MMT = " "; # Entête (fond sombre)
$FMMT = " ";
$MT = " ";
$FMT = " ";
$S = "";
$FS = " ";
$tli = " | ";
$trr = " |
| ";
$tr = " |
";
$t1 = "| ";
$t2 = " | ";
$F1 = " | ";
$F2 = " ";
print STDOUT <
POLYCOPIES POUR LES ETUDIANTS DU DEPARTEMENT D'INFORMATIQUE
$tli $MMT POLYCOPIES POUR LES ETUDIANTS DU DEPARTEMENT D'INFORMATIQUE $FMMT
DATA
if (opendir DIR, ".")
{
@polys = readdir DIR;
foreach (@polys)
{
chomp;
if (/^([^\.]+)\.(?:ps|pdf)$/)
{
$nom_poly{$1} = "";
$poly{$&} = "";
}
elsif (/^([^\.]+)\.date$/)
{
if (open F, $&)
{
local $/ = undef;
$dates{$&} = ;
close F;
}
}
}
close DIR;
print "";
print "$tr | $MT Cours $FMT | $MT pdf $FMT | ";
foreach (sort keys %nom_poly)
{
print "$trr $MT $_ $FMT $1";
$ps = "$_.ps";
$pdf = "$_.pdf";
$date = "$_.date";
#if (defined $poly{$ps}) { print "$t1 $S $ps $FS $F1"; }
# else { print "$t1 $F1"; }
if (defined $poly{$pdf}) { print "$t1 $S $pdf $FS $F1"; }
else { print "$t1 $F1"; }
#if (defined $dates{$date}) { print "$t1 $dates{$date} $F1"; }
}
print "
";
}
else
{
print " Problème d'ouverture du répertoire ($!)
";
}
print <