# makelist.pl by Mike Moxcey
# writes list of files in current directory to listfile

$listfile = "filenames.txt"; 

opendir(DIR,'.') || die "Can't open current directory";
@filenames = readdir(DIR);
closedir(DIR);

open (DATAFILE, ">> $listfile") || die "Can't open file $listfile";

for (@filenames)
  {
  next if $_ eq '.';
  next if $_ eq '..';
  next if $_ eq $0;
  $fname = $_;
  print (DATAFILE "$fname\n");
  }

# makelist2.pl by Mike Moxcey
# writes list of files in current directory to listfile
# plus adds text wrappers to each line

$listfile = "filenames.txt"; 

opendir(DIR,'.') || die "Can't open current directory";
@filenames = readdir(DIR);
closedir(DIR);

open (DATAFILE, ">> $listfile") || die "Can't open file $listfile";

for (@filenames)
  {
  next if $_ eq '.';
  next if $_ eq '..';
  next if $_ eq $0;
  $fname = $_;
  print DATAFILE <<EOM;
<li><a href="$fname">$fname</a>
EOM
  }