#!/usr/bin/perl # # ResooSite v.0.9.1 - Resoo 2002-2003 # resoorep.pl # require "resooconf.pl"; ######## recuperation des données ######## $query = $ENV{'QUERY_STRING'}; if ( !$query ) { $query = "$dir_rep"; } $repert = "../$query"; $page = "doc"; ######## mise en page de l'article ######## print "Content-type: text/html\n\n"; &get_comp; &incr_comp; &head; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "$font\n"; print "
Retour...
\n"; print "
\n"; print "$fonttitre\n"; print "Page téléchargement\n"; print "$finfonttitre

\n"; print "$font"; print "$repaidehp"; print "$finfont\n"; print "
\n"; print "$fontpetite_i\n"; print "\ \;
\[ répertoire courant : $query ] \;\n"; print "$finfont\n"; print "
\n"; print "$fontgrande \ \;
\n"; print "$finfontgrande\n"; print "
\n"; print "\ \;\n"; print "\n"; print "$fontgrande $reptitre$finfontgrande
\n"; print "$fontpetite \ \;
\n"; print ""; if (!$repclassement){ $sort = "age"; } else { $sort = $repclassement; } opendir (DIRREP, $repert); if ($query eq $dir_rep){@DIRREP=grep(!/^\.\.?$/, readdir DIRREP);} else {@DIRREP=grep(!/^\.?$/, readdir DIRREP);} closedir (DIRREP); @DIRREP = sort alpha @DIRREP; foreach $line (@DIRREP) { $infofile = "$repert/$line"; ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($infofile); if ($line eq "\.\."){ print ""; print "\n"; print "\n"; print "\n"; } else { if ($mode < 20000) { print ""; print "\n"; print "\n"; print "\n"; } } } @DIRREP = sort $sort @DIRREP; foreach $line (@DIRREP) { $infofile = "$repert/$line"; ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($infofile); if ($mode > 20000) { print ""; print "\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($mtime)) [0,1,2,3,4,5,6]; $month = ($mon + 1); if ($year > 0) { $year += 1900}; if ($sec < 10) { $sec = "0$sec"}; if ($min < 10) { $min = "0$min"}; if ($hour < 10) { $hour = "0$hour"}; if ($mday < 10) { $mday = "0$mday"}; # print "\n"; print "\n"; # print "\n"; print "\n"; } } ############ subroutines ###################### sub size { $tmpa = "$repert/$a"; $tmpb = "$repert/$b"; -s($tmpa) <=> -s($tmpb); } sub sized { $tmpa = "$repert/$a"; $tmpb = "$repert/$b"; -s($tmpb) <=> -s($tmpa); } sub alpha { uc($a) cmp uc($b); } sub alphad { uc($b) cmp uc($a); } sub age { $tmpa = -M "$repert/$a"; $tmpb = -M "$repert/$b"; $tmpa <=> $tmpb; } sub aged { $tmpa = -M "$repert/$a"; $tmpb = -M "$repert/$b"; $tmpb <=> $tmpa; } print "
$font < retour répertoire principal >$finfont$font $line$finfont
$font < $line >$finfont$font accès sous répertoire$finfont
$font
  • $line$finfont
  • $font$size octets$finfont$font$mday\/$month\/$year - $hour\:$min\:$sec$finfont$font$mday\/$month\/$year - $hour\:$min$finfont$font$mday\/$month\/$year$finfont
    \n"; print "
    "; print "$repaidebp"; print "
    "; print "$finfont\n"; print "
    \n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
    \n"; print "$font\n"; print "


    \n"; print "Accès Administrateur\n"; print "$finfont\n"; print "
    \n"; print "$font\n"; print "

    \n"; print "
    Retour...\n"; print "$finfont\n"; if ( $page == "bbs" ) { if ($compt == "3") { print "$fontpetite\n"; print "
    Cette page a été consultée $comp fois.
    \n"; print "$finfontpetite\n"; } } print "
    \n"; &foot;