open (SUMMARY, ">$outputdir$report") || die "cannot open $outputdir$report"; print SUMMARY "\n\n"; print SUMMARY "Directory structure of $startdir for *.htm files\n"; print SUMMARY "\n\n"; print SUMMARY "

Directory structure of $startdir for *.htm files

\n"; print SUMMARY "

\n";
print SUMMARY "     Size        Last modified       File\n";
print SUMMARY "     ====        =============       ====\n";

$lastdir = ".";
print SUMMARY "$lastdir directory\n";
foreach (sort by_dir keys %filedat) {
   $slash = rindex($_,"/");
   $dir = substr($_,0,$slash);
   $href = $dir;
   $href =~ s/.//;
   $href = $href."/";
   if ($dir ne $lastdir) {
      print SUMMARY "$dir directory\n";
      $lastdir = $dir;
   }
   ($nsize, $size, $ntime, $day, $mon, $yr, $time) = split(/;/,$filedat{$_});
   $nsize{$_} = $nsize;
   $time{$_} = $time;
   $n_htm++;
   printf SUMMARY "%9s  %8s %3s %3s %4s %-s\n", $size, $ntime, $day, $mon, $yr, $_, $_;

}
$kb_size = $tot_size/1000;
$kb_size = &commas13($kb_size);

printf SUMMARY "
\nTotal file size = %13s kb in %5s files
\n", $kb_size, $n_htm; print SUMMARY "\n
\nOutput generated using\n"; print SUMMARY "cr_dir.prl PERL script\n"; print SUMMARY "
\n