#!/home/web/bin/perl #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #.IDENTIFICATION rgosearch #.LANGUAGE Perl Script #.PURPOSE WWW cgi script to search RGO lists # addresses #.AUTHOR Michael Naumann [mn] #.KEYWORDS WWW, CGI, directory, RGO #.ENVIRONMENT UNIX # #.COMMENTS Calling conventions : # e.g. # /misc/astrosearch/bin/rgosearch?mode=result&word=naumann&list=person&case=ignore&words=substring&fuzzy=0 # # don't forget to treat *.lis file after download # ./mk-list astroplaces.lis > m # mv m astroplaces.lis # ./mk-list astropersons.lis > m # mv m astropersons.lis # ./mk-list astropostal.lis > m # mv m astropostal.lis # #.VERSION $Id: rgosearch,v 1.2 1999/07/05 14:11:54 web Exp web $ # #.COPYRIGHT none #------------------------------------------------------------------------------ use CGI qw(:standard :html3 :dump); use File::Basename; $DEBUG = "0"; open(STDERR,">&STDOUT") || die "Can't dup stdout: $!\n"; select(STDERR); $| = 1; # Make unbuffered. select(STDOUT); $| = 1; # Make unbuffered. print "Content-type: text/html\n\n"; $root = "/home/web/eso/docs/misc/astrosearch"; chdir ($root); $glimpse = "/home/web/bin/agrep"; $selfURL = "$ENV{'SCRIPT_NAME'}"; $URI="http://$ENV{'SERVER_NAME'}:$ENV{'SERVER_PORT'}$ENV{'SCRIPT_NAME'}$ENV{'PATH_INFO'}?$ENV{'QUERY_STRING'}"; $word = param("word") ? param("word") : ""; $list = param("list") ? param("list") : "person"; $case = param("case") ? param("case") : "ignore"; $fuzzy = param("fuzzy") ? param("fuzzy"): "0"; $qtype = param("mode") ? param("mode") : "query"; $listname = $personselected = $placeselected = $postalselected = ""; @fselect = ""; $considerselected = $ignoreselected = $substringselected = $wholeselected = ""; $gopt = " -d '\$\$' "; # record separator is paragraph if ($list eq "person") { $listfile = "$root" . "/astropersons.lis"; $personselected = "selected"; } elsif ($list eq "place") { $listfile = "$root" . "/astroplaces.lis"; $placeselected = "selected"; } elsif ($list eq "postal") { $listfile = "$root" . "/astropostal.lis"; $postalselected = "selected"; } if ($case eq "ignore") { $gopt = "$gopt" . " -i "; $ignoreselected = selected; } elsif ($case eq "consider") { $gopt = "$gopt" . ""; $considerselected = selected; } if ($fuzzy eq "0") { $gopt = "$gopt" . ""; $s0selected = "selected"; } else { $gopt = "$gopt" . " -$fuzzy"; $fselect[$fuzzy] = selected; } $lm = &LastModified("$listfile"); if ($DEBUG) {print &dump}; &PrintHeader; &PrintBody; &PrintFooter; sub search { if ($DEBUG) {print "$glimpse $gopt -e \"$word\" $listfile\n"}; open(TMP,"$glimpse $gopt -e \"$word\" $listfile 2> /dev/null|"); while () { $line = $_; $line =~ s,(http://.*?\s),$1,g; print $line unless /^\s+$/; if ($line =~ /working-directory/) { next }; } close (TMP); } sub PrintHeader { if ($qtype eq "query") { $title = 'Search RGO Astro-persons, -places, -addresses lists'; $page = 'Search RGO Astro-persons, -places, -addresses lists'; } elsif ($qtype eq "result") { $listname = basename("$listfile", ".lis"); $title = "Search result of
RGO $listname list"; $page = "Search result of RGO $listname list"; } print qq ( $page
[ ESO ]

Search Persons, Places, Addresses in Astronomy

HOME INDEX SEARCH HELP NEWS
); } sub PrintBody { if ($qtype eq "query" || $qtype eq "") { print qq (

The data base for this search engine comprises the mirrored files astropersons.lis, astroplaces.lis, and astropostal.lis originally collected by Chris Benn (La Palma) and Ralph Martin (Royal Greenwich Observatory), and from 1999, maintained Kevin Duffey (Starlink).

Alternatively, http://star-www.rl.ac.uk/astrolist/astrosearch.html points to a search engine that goes for the most up to date file.

Search string:
Category:
Case:
Match:
 
 

); } elsif ($qtype eq 'result') { $URI =~ s,mode=result,mode=query,g; print qq (

Not found what you were looking for? just search again!

); print "
";
	&search;
	print "
"; } } sub PrintFooter { print qq (

You can make an addition or amendment to the "Persons in Astronomy" database

Send comments to <webmaster\@eso.org>
Last update: $lm
 [ESO General Facilities] [Overview page for this document] [ESO] [Index] [Search] [Help] [News]
); } sub LastModified { local ($file) = @_; ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime, $mtime,$ctime,$blksize,$blocks) = stat("$file"); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($ctime); $mon = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon]; $wday = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday]; if ($year > 90) { $year = "19" . $year; } return "$wday, $mon $mday $year"; } exit 1; __END__