#!/usr/bin/perl # # $Id: pics-index.pl,v 1.2 1994/09/09 14:10:28 jorgens Exp $ # # Guess what. # $version = " $Revision: 1.2 $ " ; push(@INC, join('/', $ENV{HOME}, 'lib', 'perl')) ; require ; require ; &Getopts("hv") ; &version if ($opt_v) ; $KB = 1024 ; $MB = $KB ** 2 ; opendir(DIR, ".") ; @files = readdir DIR ; closedir DIR ; print "\n\nPicture Index\n\n

Picture Index

\n" ;

foreach (sort @files) {
    local($mb, $kb) ;

    $file = $_ ;
    next if ($file eq "." || $file eq ".." || -d $file || $file =~ /\.html$/) ;
    ($size) = (stat($file))[7] ;
    $mb = int($size / $MB) if (int($size / $MB)) ;
    $kb = int($size / $KB) if (int($size / $KB) && $mb == 0) ;
    printf " %s%s (%5d %s)\n",
    " " x (20 - length($file)), $file, $file,
    ($mb != 0 ? $mb : ($kb != 0 ? $kb : $size)), 
    ($mb != 0 ? "M" : ($kb != 0 ? "K" : "b"));
}
print "

Author : Kjetil Wiekhorst Jørgensen

\n\n\n" ;