UBB.Developers Forums Community Development Programming PHP and Server-side Scripting Regular Expressions

sub fsize {
   my $size = shift or return '0 byte';
   return sprintf("%1.2f %s",$size / 1024 / 1024 / 1024, " GB"  ) if($size >= 1024*1024*1024);
   return sprintf("%1.2f %s",$size / 1024 / 1024       , " MB"  ) if($size >= 1024*1024     );
   return sprintf("%1.2f %s",$size / 1024              , " KB"  ) if($size >= 1024          );
   return sprintf("%1.2f %s",$size                     , " Byte") if($size <  1024          );
   return "$size Byte";
}

opendir(UPLOADS, "$opt{dir}/$user_number") or die "Can not opendir($opt{dir}/$user_number): $!";
my @uploads = readdir(UPLOADS);
closedir(UPLOADS);
my($size, $mtime);
foreach my $filename (@uploads) {
        next if $filename =~ /^./; # ignore anything that starts with a dot. like "." ".." ".htaccess"
        next if -d "$opt{dir}/$user_number/$filename"; # ignore directories
	($size, $mtime) = (stat "$opt{dir}/$user_number/$filename")[7,9] or die "Error: $!";

	##output it
	$size = fsize($size);

	print qq(
	<tr valign="top">
	<td bgcolor="$vars_style{AltColumnColor2}" align="center" width="20"><input type="checkbox" name="$key" value="include" checked="checked" /></td>
	<td bgcolor="$vars_style{AltColumnColor2}"><b><font size="$vars_style{FDTextSize}">$filename</font></b></td>
	<td bgcolor="$vars_style{AltColumnColor2}" align="center" valign="middle">$size</td>
	<td bgcolor="$vars_style{AltColumnColor2}" align="center" valign="middle">$mtime</td>
	</tr>
	);
}