#!/usr/bin/perl $query=$ENV{QUERY_STRING}; if(defined($query)) { @list=split('&',$query); foreach(@list) { ($key,$value)=split /=/; $var{$key}=$value; } } print "Content-type: text/html\n\n"; print 'HiRes Contact Information'; print ''; ################## ### Help Bar ##### ################## open(HELP, ") { chomp; if(!($_=~m/prsnlinfo/)or !($_=~m/href/)) { print"$_"; } elsif($_ =~m/prsnlinfo/) { ($first,$second)=split('>',$_); print"$first >$second >"; } } close(HELP); #print'
'; #print'
'; #print 'View runs'; #print ''; #print''; #print ' || Edit runs'; #print ''; #print''; #print ' || Usual suspects'; #print ''; ##print''; ##print ' || Work statistics'; ##print ''; #print''; #print ' || Telephone nums & address'; #print ''; #print''; #print ' || Dark'; ##print''; #print'
'; #print ' || HOME'; #print ''; #print'
'; #print 'Comments? Suggestions? Email the webmaster'; #print '
'; #print'
'; print'
'; #################################################### if(!defined($var{who})) { print '"; } close(INFO); } print '
Please choose one:







'; print'		'; print '
'; print 'U of U listings
'; print 'Our collaborators
'; print 'Dugway Phone numbers
'; print 'Other Important Numbers
'; print '



'; print '
'; } if(defined($var{who})) { if($var{who} eq "uofu") { open(INFO, "<../private/workfiles/uofuworkers"); } if($var{who} eq "collab") { open(INFO, "<../private/workfiles/collaborators"); } if($var{who} eq "doug") { open(INFO, "<../private/workfiles/doug"); } if ($var{who} eq "other") { open(INFO, "<../private/workfiles/other"); } ########### Print out the requested listings foreach() { print"
$_
';