#! /usr/bin/perl
#
# This script makes an HTML page which lists all of the VRML pages in this
# directory. For each file, it tries to find a description in the file
# vrmls.txt
$output_file="vrmls.html";
$description_file="vrmls.txt";
$prefix="http://www.commercialventvac.com/~jeffs/";
open DF, "<".$description_file || die "unable to open the description file $description_file for reading\n";
while( ) {
($file,$description) = split /\|/i, $_, 2;
$description_table{$file} = $description;
print "File is $file, description is $description \n";
};
close DF || die "unable to close the description file $description_file for reading\n";
my @wrl_files = glob("*.wrl");
open OF, ">".$output_file || die "unable to open the output file $output_file for writing\n";
print OF<
Jeff Silverman's VRML files
The VRML files
The links
The list
EOF
foreach $file (@wrl_files) {
print $file."\n";
if ( exists($description_table{$file}) ) {
print OF ''.$description_table{$file}.".
\n";
}
else {
print OF ''.$file.".
\n";
};
}
print OF<
Return to Jeff's home page.
The W3C HTML validation service.
