#!/usr/bin/perl -w
# filesindir - Written by T. J. Shanahan
# to read the local directory and make html href's to display the
# wmv, mpg, doc, jpg, png and pdf files found there.
# define the path where the images live "." is the current directory
$path = "@ARGV";
$path = "barb";
# make work with web server
print "content-type: text/html", "\n\n";
print "\n\nMeet Emily\n\n";
print "\n";
print "Meet Emily
";
print "
";
# read all the filenames from the directory into arrays
opendir(DIR, $path);
@wmvfiles = grep /\.wmv$/io, readdir(DIR);
closedir(DIR);
opendir(DIR, $path);
@mpgfiles = grep /\.mpg$/io, readdir(DIR);
closedir(DIR);
opendir(DIR, $path);
@mp3files = grep /\.mp3$/io, readdir(DIR);
closedir(DIR);
opendir(DIR, $path);
@wavfiles = grep /\.wav$/io, readdir(DIR);
closedir(DIR);
opendir(DIR, $path);
@docfiles = grep /\.doc$/io, readdir(DIR);
closedir(DIR);
opendir(DIR, $path);
@jpgfiles = grep /\.jpg$/io, readdir(DIR);
closedir(DIR);
opendir(DIR, $path);
@pngfiles = grep /\.png$/io, readdir(DIR);
closedir(DIR);
opendir(DIR, $path);
@pdffiles = grep /\.pdf$/io, readdir(DIR);
closedir(DIR);
# sort the filenames alphabetically
@wmvfiles = sort( {lc $a cmp lc $b} @wmvfiles);
@mpgfiles = sort( {lc $a cmp lc $b} @mpgfiles);
@mp3files = sort( {lc $a cmp lc $b} @mp3files);
@wavfiles = sort( {lc $a cmp lc $b} @wavfiles);
@docfiles = sort( {lc $a cmp lc $b} @docfiles);
@jpgfiles = sort( {lc $a cmp lc $b} @jpgfiles);
@pngfiles = sort( {lc $a cmp lc $b} @pngfiles);
@pdffiles = sort( {lc $a cmp lc $b} @pdffiles);
foreach $filename ( @wmvfiles )
{
print "";
print "$filename";
print "
";
}
foreach $filename ( @mpgfiles )
{
print "";
print "$filename";
print "
";
}
foreach $filename ( @mp3files )
{
print "";
print "$filename";
print "
";
}
foreach $filename ( @wavfiles )
{
print "";
print "$filename";
print "
";
}
foreach $filename ( @jpgfiles )
{
print "";
print "$filename";
print "
";
}
foreach $filename ( @pngfiles )
{
print "";
print "$filename";
print "
";
}
foreach $filename ( @docfiles )
{
print "";
print "$filename";
print "
";
}
foreach $filename ( @pdffiles )
{
print "";
print "$filename";
print "
";
}
print "\n";