|
|
 |
<%
use Image::Size;
my $out = qq();
my @dateien;
if ($value[2]) {
if ( opendir (IN, "${appdir}/_filebank/$value[2]") ) {
while ($dd = readdir(IN)) {
push @dateien, "$value[2]$dd";
}
closedir(IN);
} else {
$out = "Fehler beim öffnen des Ordners--- $appdir/$value[2]";
}
}
push @dateien,"$value[3]" if $value[3];
my $c = 0;
foreach my $dateiname (@dateien) {
next if -d "${appdir}/_filebank/$dateiname";
next unless -s "${appdir}/_filebank/$dateiname";
next if $dateiname =~ /\/\.+$/;
next if ($dateiname =~ /__$/);
$c++;
push(@sorteddateien, $dateiname);
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat("${appdir}/_filebank/$dateiname");
$size = int($size/1024);
my ($sekunden, $minuten, $stunde, $tag, $monat, $jahr, $wochentag, $tagimjahr, $istsommerzeit) = localtime $mtime;
$jahr = $jahr + 1900;
my $datum = sprintf("%02d.%02d.%04d",$tag,$monat+1,$jahr);
my ($breite, $hoehe, $id) = imgsize("${appdir}/_filebank/$dateiname");
my ($suffix) = $dateiname =~ /.+\.(.+)$/;
my $icon = -s "../se_data/se_gfx/32/icon_${suffix}.gif" ? qq( ) : "";
$icon = -s "${appdir}/_filebank/$value[2]/__$dateiname" ? qq( ) : "$icon";
my $canvas = ${breite} ? qq(${breite} x ${hoehe}px) : "";
my $dateitext;
my ($ordner, $datei) = $dateiname =~ /^(.*?)\/?([^\/]+)$/;
if (-s "../se_data/_filebank/${ordner}/__") {
my @infos = &file_getline($datei,0,"../se_data/_filebank/${ordner}/__");
$dateitext .= qq(
$infos[1]) if ($infos[1] ne "");
}
my $border = $c == 1 ? "" : "border-top: 1px solid #E1E7E8; ";
my $dateiout = qq(
| $icon |
$datei$dateitext |
$size kB |
);
$out .= qq( $dateiout );
}
$out .= qq( \n);
return $out;
%>
|
|