#!/usr/bin/perl -w
#Generate initial pointer page for abstracts files
# Modified May 14, 2012. Changed topdir to new disk
# /data5 from /data. This has been wrong for a long
# time but may have worked because access to /data
# still existed. rcg
# R. Groman March 17, 1997
#Assumptions
# Top level directory to look for abstracts is
# /data/globec/httpd/htdocs/globec-dir/abstracts
$topdir="/data5/globec/httpd/htdocs/globec-dir/abstracts/";
##print "\ndebug: topdir=$topdir\n";
print "Content-type: text/html\n\n";
print "U.S. GLOBEC Geoges Bank: Summary of Abstracts\n";
print "U.S. GLOBEC Geoges Bank: Summary of ";
print " Abstracts
\n";
foreach $directory ( `ls -1 $topdir` ) {
chop($directory);
# print "\ndebug: directory=$directory";
$dir=$topdir . $directory ;
# print "\ndebug: dir=$dir";
if ( -r $dir ) {
$topic="$directory";
$topic=~s/(.*)s/\1/;
print "";
print "Summary of $topic abstracts\n";
}
else {
print "Cannot get to the $dir directory.\n";
}
}
print "\n\n