#!/usr/bin/perl
$header1='My All File List';
$header2=' ';
$header3='All File List
';
$bottom='';
$rootDir;
$counter = 0;
sub ForeachFile
{
$fileDir = $_[0];
$filename = $_[1];
if ($filename ne "unPublished.htm" )
{
#print "fileDir=$fileDir, filename=$filename\n";
print '';
my $str = '| ' . $counter . ' | ' . $filename . ' | ';
print $str;
print '
';
$counter++;
}
}
sub ForeachDir
{
$dir = $_[0];
$dirSrc = $rootDir . '/' . $dir;
if ($dir ne "personal")
{
if (opendir(DIR, $dirSrc))
{
#print "openDir $dirSrc\n";
while ($file = (readdir(DIR)))
{
if ($file ne "." && $file ne "..")
{
$subSrc = $dir . '/' . $file;
$subDir = $rootDir . '/' . $subSrc;
if (-d $subDir)
{
ForeachDir($subSrc);
}
else
{
if (-f $subDir)
{
ForeachFile($subSrc, $file);
}
else
{
print "error unexpected! param= $dir, subSrc=$subSrc, dirSrc=$dirSrc, file =$file, subDir=$subDir\n";
}
}
}
}
closedir($dh);
}
}
}
if ($#ARGV == 0)
{
$rootDir = $ARGV[0];
if ( -d $rootDir )
{
print "$header1 $header2 $header3";
print '';
print ' | file index | file name |
';
if (opendir($dh, $rootDir))
{
foreach my $file (readdir($dh))
{
if ($file ne "." && $file ne "..")
{
$subDir = $rootDir . '/' . $file;
if (-d $subDir)
{
ForeachDir($file);
}
else
{
if (-f $subDir)
{
ForeachFile($file, $file);
}
else
{
print "error unexpected! file =$file, subDir=$subDir\n";
}
}
}
}
}
print '
';
print $bottom;
}
}