#!/usr/local/bin/perl # Continuously flush the Perl buffer: $| = 1; # Send out header so browser won't time out: print "Content-type: text/html\n\n"; # Require the cgi-lib require "cgi-bin\\sim\\lib\\cgi-lib.pl"; &ReadParse(*form_data); ## Begin Main Switch ## if ($form_data{'get'} ne '') { require "cgi-bin\\reference\\lib\\get.pl"; &get_record; exit; } elsif ($form_data{'search_method'} ne '') { require "cgi-bin\\reference\\lib\\search.pl"; &perform_search; exit; } elsif ($form_data{'doc'} ne '') { require "cgi-bin\\reference\\lib\\link.pl"; &retrieve_doc; exit; } else { require "cgi-bin\\reference\\lib\\list.pl"; &list_database; exit; } ## End of Main Switch