#!/usr/bin/perl
# --------------------------------------------------------------------
# displaymd - display hydro group metadata
#
# aew - 091599 - Initial coding
# --------------------------------------------------------------------
use CGI qw(:cgi);
print "Content-type: text/html\n\n";
$recnum=0;
# --------------------------------------------------------------------
# Print HTTP header and opening HTML tags. #
# --------------------------------------------------------------------
print<<"header";
IAHS Global Data Bases Meta-data System
Metadata Listing
header
# --------------------------------------------------------------------
# Read the metadata.txt file
# --------------------------------------------------------------------
$fname = "/net/nfs/eos/data1/cv/www/metadata/input/metadata.txt";
open PFILE, $fname;
if (!PFILE) {
print "
Cannot open metadata file! \n";
exit;
}
else {
print "
\n";
print "| Data Set or Collection Name | \n";
print "Variables or Parameters | \n";
print "Institute | \n";
print "Contact | \n";
print "Further
Information | \n";
print "
|---|
\n";
while ($inline = ) {
chop($inline);
$addr="";
$name = $inline;
$dstype = ; chop($dstype);
$type = ; chop($type); $vars = ; chop($vars);
$sdom = ; chop($sdom); $tdom = ; chop($tdom);
$sres = ; chop($sres); $tres = ; chop($tres);
$inst = ; chop($inst);
$inline = ;
while ((uc($inline) ne "\n") && $inline) {
chop($inline);
if ($inline) {
$addr.=$inline."
\n";
}
$inline = ;
}
$contact = ; chop($contact);
$email = ; chop($email);
$url = ; chop($url);
$inline = ;
while (($inline ne "--END--\n") && $inline) {
$inline = ;
}
$recnum+=1;
# --------------------------------------------------------------------
# we have the record - print it to the screen
# --------------------------------------------------------------------
print "| ".$name." | \n";
print " ".$vars." | \n";
print " ".$inst." | \n";
print " ".$contact." | \n";
print " ";
print " | \n";
print "
\n";
}
close PFILE;
}
print "
\n";
# --------------------------------------------------------------------
# footer
# --------------------------------------------------------------------
print "
\n";
print "![](\"/Images/left.xbm\")
Return to \n";
print "Meta-Data System Home Page\n";
print "
\n";
print "\n\n";
