#!/usr/local/bin/perl -w
#
# Author: Steven.McDonald@triumf.ca
#         TRIUMF
#         4004 Wesbrrok Mall
#         Vancouver, V6T 2A3


$list=qx(/bin/ls);
@lists=split(/\n+/,$list);
#
print "Content-Type: text/html\n\n";
#
# Print table Header
print <<EOF;
  <table>
  <tr ALIGN=left><th>Filename<th align=right>Size<th align=center>Date
  <tr>
     <td><font face="Courier"><a href=../>Up Directory</font></a><td><td>
EOF

$i=0;
for $file (@lists) {
        ($mode,$size,$mtime,)= (stat($file))[2,7,9];
        
	if ( -d $file) {$file .= "/";}

        if ($file eq 'index.cgi') {next;}
        if ($file =~ /^\./) {next;}

	$date = &time($mtime);

	$filelist[$i]{name} = $file;
	$filelist[$i]{size} = $size;
	$filelist[$i]{date} = $date;
	$i++;
}

for ( $i=0; $i<=$#filelist; $i++) {
  print <<EOF;
          <tr>
            <td>           <font face="Courier"><a href="$filelist[$i]{name}">$filelist[$i]{name}</font></a>
            <td align=right width=80><font face="Courier">$filelist[$i]{size}</font>
            <td align=right width=250><font face="Courier">$filelist[$i]{date}</font>
EOF
}
print "</table>";
exit 0;


sub time {
  local ($mtime) = @_;
  local ($ltime,$date,$i,@string);
  $date = "";

  $ltime = localtime($mtime);

  if ( (localtime($mtime))[3] < 10 ) {	 
    @string = split(//,$ltime);
    for ( $i=0; $i <= $#string; $i++ ) {if ($i==9) {$date .= "0";} $date .= $string[$i];}
  }  else { $date = $ltime;}

  return($date);
}