#!/usr/bin/perl

#
#  REF: resoorep.pl
#  ResooSite v.0.9.5.3 -(p)Resoo 2002-2004
#  (c)2004 - pascal blain / GNU GPL - General Public License
#  http://www.resoo.com/resoosite
#  pascal@resoo.org
#

require "resooconf.pl";

######## recuperation des données ########

$query = $ENV{'QUERY_STRING'};

$query =~ s/^\.\.//g;  ## supprime ".." en début de ligne
$query =~ s/^\.//g;    ## supprime "." en début de ligne
$query =~ s/\/$//g;    ## supprime le dernier "/"

if ($query =~ /^$dir_rep/) {
    $query =~ s/\/\.\.//g; ## supprime "/.."
    $query =~ s/\/\.//g;   ## supprime "/."
    $page = "doc";
    $repprincipal = "$dir_rep";
}

elsif ($query =~ /^img/) {
    $query =~ s/\/\.\.//g; ## supprime "/.."
    $query =~ s/\/\.//g;   ## supprime "/."
    $page = "admin";
    $repprincipal = "img";
}

else {
    $query = "$dir_rep";
    $repprincipal = "$dir_rep";
    $page = "doc";
}

$repert = "../$query";

######## mise en page de l'article ########

print "Content-type: text/html\; charset=ISO-8859-1\n\n";

if ($repprincipal eq "doc") {
&get_comp;
&incr_comp;
}
&head_gen;

&pao_rep_haut;

print "<table border=\"0\" width=\"100%\">";

if (!$repclassement){
    $sort = "age";
}
else {
    $sort = $repclassement;
}

opendir (DIRREP, $repert);
if ($query eq $repprincipal){@DIRREP=grep(!/^\.\.?$/, readdir DIRREP);}
else {@DIRREP=grep(!/^\.?$/, readdir DIRREP);}
closedir (DIRREP);

@DIRREP = sort alpha @DIRREP;
my @unlistage_rep=("resoo","private");


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 "<tr><td> $font";
	if ($rep_ico == 1){
	    print "< .  >";
	}
	else {
    	print "<img src=\"../img/resoo/rep3.gif\" alt=\"\">";
	}
    	print " <a href=\"resoorep.pl?$repprincipal\"><i> < retour répertoire principal ></i></a>$finfont</td>";
	print "<td align=right>$font <i>/</i>$finfont</td>\n";
	print "<td align=right></td>\n";
	print "</tr>\n";
	if ($query =~ /^(.*)\//){;
	$queryprec = $&;
	$queryprec =~ s/\/$//;
	}
	if (($queryprec) and ($queryprec ne $repprincipal)){
    	print "<tr><td> $font";
	if ($rep_ico == 1){
	    print "< .. >";
	}
	else {
    	print "<img src=\"../img/resoo/rep2.gif\" alt=\"\">";
	}
    	print " <a href=\"resoorep.pl?$queryprec\"><i> < répertoire précédent ></i></a>$finfont</td>";
	print "<td align=right>$font <i>..</i>$finfont</td>\n";
	print "<td align=right></td>\n";
	print "</tr>\n";
	}
    }
    else {
	if ($mode < 20000) {
	    if (!grep(/$line/, @unlistage_rep)) {
		print "<tr><td>$font";
		if ($rep_ico == 1){
		    print $printpuce3;
		}
		else {
		    print "<img src=\"../img/resoo/rep.gif\" alt=\"\">";
		}
		print " <a href=\"resoorep.pl?$query/$line\"><i> < $line ></i></a>$finfont</td>";
		print "<td colspan=2 align=left>$font <i>accès sous répertoire</i>$finfont</td>\n";
		print "</tr>\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) {
	$sizeround = round($size);
	print "<tr><td>$font";
	if ($rep_ico == 1){
	    print $printpuce3;
	}
	else {
	    if ($line =~ /(\.pl|\_pl\.txt)/i){
	        print "<img src=\"../img/resoo/ico_perl.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(txt|log|sys)/i){
	        print "<img src=\"../img/resoo/ico_texte.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(doc|rtf|sxw)/i){
	        print "<img src=\"../img/resoo/ico_ttext.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.pdf/i){
		print "<img src=\"../img/resoo/ico_pdf.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(gif|bmp|jpg|jpeg|png|tif|ico)/i){
		print "<img src=\"../img/resoo/ico_image.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(zip|arj|tar|gz|bz|rar)/i){
		print "<img src=\"../img/resoo/ico_compress.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(wav|mid|ogg|mp3|ram)/i){
		print "<img src=\"../img/resoo/ico_sound.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(mpg|avi|rm|mov)/i){
		print "<img src=\"../img/resoo/ico_video.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(exe|rpm|bin|com)/i){
		print "<img src=\"../img/resoo/ico_bin.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(sh|py|php|php3|bat)/i){
		print "<img src=\"../img/resoo/ico_script.gif\" alt=\"\">";
	    }
	    elsif ($line =~ /\.(htm|html|shtml|xml|rss)/i){
		print "<img src=\"../img/resoo/ico_index.gif\" alt=\"\">";
	    }
	    else {
		print "<img src=\"../img/resoo/ico_unknown.gif\" alt=\"\">";
	    }
	}
	print "<a href=\"$repert/$line\"><b>$line</b></a>$finfont</td>";
	print "<td align=right>$font$sizeround$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 ($month < 10) { $month = "0$month"};
	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 "<td align=right>$font<b>$mday\/$month\/$year</b>-$hour\:$min$finfont</td>\n";
#	print "<td align=right>$font<b>$mday\/$month\/$year</b>$finfont</td>\n";
	print "</tr>\n";
	}
}

print "</table>\n";

&pao_rep_bas;

&foot_gen;

############ 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;
}

sub round {
    my $number = shift;
    if ($number > 999999){
	$number = int(($number + 50000)/100000)/10;
	if ($number == int($number)){
	    $number = $number.".0";
	}
	return("<b>$number</b>&nbsp\;<i>Mo</i>");
    }
    else{
	$number = int(($number + 50)/100)/10;
	if ($number == int($number)){
	    if ($number == 0){
		$number = $number.".1";
	    }
	    else{
		$number = $number.".0";
	    }
	}
	return("<b>$number</b>&nbsp\;<i>Ko</i>");
    }
}