#!/usr/bin/perl

#
#  ResooSite v.0.9 - Resoo 2002
#  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 "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"600\" colspan=\"3\">\n";
print "$font\n";
print "<div align=\"right\"><A HREF=\"resooindex.pl?$retour\"><B>Retour...</B></A></div>\n";
print "<br>\n";
print "$fonttitre\n";
print "Page téléchargement\n";
print "$finfonttitre<br><hr>\n";
print "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td colspan=\"3\" width=\"600\" bgcolor=\"$couleur_cell\" align=\"right\">\n";
print "$font\n";
print "\&nbsp\;<br>\&nbsp\;\n";
print "$finfont\n";
print "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<td bgcolor=\"$couleur_col\" width=\"20\" align=\"center\" valign=\"TOP\">\n";
print "\&nbsp\;\n";
print "</td>\n";

print "<td width=\"20\">\n";
print "\&nbsp\;\n";
print "</td>\n";

print "<td width=\"560\" valign=\"TOP\">\n";
print "$fontgrande $reptitre<br>$finfontgrande\n";
print "$font \&nbsp\;<br>\n";

print "<table border=\"0\" width=\"100%\">";
opendir (DIRREP, $repert);
@DIRREP=grep(!/^\.\.?$/, readdir DIRREP);
foreach $line (@DIRREP) {
	print "<tr><td>$font<a href=\"$repert/$line\"><b> $line</b></a>$finfont</td>";
	$infofile = "$repert/$line";
	($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($infofile);
	print "<td align=right>$font<b>$size</b> <i>octets</i>$finfont</td>\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 "<td align=right>$font<b>$mday\/$month\/$year</b> - $hour\:$min\:$sec$finfont</td>\n";
	print "</tr>\n";
}
print "</table>\n";

print "$finfont\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";

print "<table border=\"0\" width=\"600\">\n";
print "<tr>\n";
print "<td width=\"170\">\n";
print "$font\n";
print "<br><br><br>\n";
print "<a href=\"resooindexadmin.pl\?$defautretour\">Accès Administrateur</a>\n";
print "$finfont\n";
print "</td>\n";
print "<td width=\"430\" colspan=\"2\">\n";
print "$font\n";
print "<br><br>\n";
print "<div align=\"right\"><A HREF=\"resooindex.pl?$retour\"><B>Retour...</B></A>\n";
print "$finfont\n";
if ( $page == "bbs" ) {
	if ($compt == "3") {
		print "$fontpetite\n";
		print "<br>Cette page a été consultée $comp fois.</div>\n";
		print "$finfontpetite\n";
	}
}
print "</td>\n";
print "</tr>\n";

print "</table>\n";

&foot;