#!/usr/local/bin/perl require "common.pl"; $webmaster = "Shishir Gundavaram (shishir\@bu\.edu)"; $archie = "/usr/local/bin/archie"; $error = "CGI Archie Gateway Error"; $default_server = "archie.rutgers.edu"; $timeout_value = 180; %servers = ( 'ANS Net (New York, USA)', 'archie.ans.net', 'Australia', 'archie.au', 'Canada', 'archie.mcgill.ca', 'Finland/Mainland Europe', 'archie.funet.fi', 'Germany', 'archie.th-darmstadt.de', 'Great Britain/Ireland', 'archie.doc.ac.ac.uk', 'Internic Net (New York, USA)', 'ds.internic.net', 'Israel', 'archie.ac.il', 'Japan', 'archie.wide.ad.jp', 'Korea', 'archie.kr', 'New Zealand', 'archie.nz', 'Rutgers University (NJ, USA)', 'archie.rutgers.edu', 'Spain', 'archie.rediris.es', 'Sweden', 'archie.luth.se', 'SURANet (Maryland, USA)', 'archie.sura.net', 'Switzerland', 'archie.switch.ch', 'Taiwan', 'archie.ncu.edu.tw', 'University of Nebrasksa (USA)', 'archie.unl.edu' ); $request_method = $ENV{'REQUEST_METHOD'}; if ($request_method eq "GET") { &display_form (); } elsif ($request_method eq "POST") { &parse_form_data (*FORM); $command = &parse_archie_fields (); $SIG{'ALRM'} = "time_to_exit"; alarm ($timeout_value); open (ARCHIE, "$archie $command |"); $first_line = ; if ($first_line =~ /(failed|Usage|WARNING|Timed)/) { &return_error (500, $error, "The archie client encountered a bad request."); } elsif ($first_line =~ /No [Mm]atches/) { &return_error (500, $error, "There were no matches for $FORM{'query'}."); } print "Content-type: text/html", "\n\n"; print "", "\n"; print "", "CGI Archie Gateway", "", "\n"; print "", "\n"; print "

", "Archie search for: ", $FORM{'query'}, "

", "\n"; print "

", "

", "\n";

    while () {
        if ( ($host) = /^Host (\S+)$/ ) {
            $host_url = join ("", "ftp://", $host);
            s|$host|$host|;

            ;

        } elsif (/^\s+Location:\s+(\S+)$/) {
            $location = $1;
            s|$location|$location|;
        } elsif ( ($type, $file) = /^\s+(DIRECTORY|FILE).*\s+(\S+)/) {
            s|$type|$type|;
            s|$file|$file|;
        } elsif (/^\s*$/) {
            print "";
        }

        print;
    }
    
    $SIG{'ALRM'} = "DEFAULT";
    close (ARCHIE);

    print "

"; print "", "\n"; } else { &return_error (500, $error, "Server uses unspecified method"); } exit (0); sub time_to_exit { close (ARCHIE); &return_error (500, $error, "The search was terminated after $timeout_value seconds."); } sub parse_archie_fields { local ($query, $server, $type, $address, $status, $options); $status = 1; $query = $FORM{'query'}; $server = $FORM{'server'}; $type = $FORM{'type'}; if ($query !~ /^\w+$/) { &return_error (500, $error, "Search query contains invalid characters."); } else { foreach $address (keys %servers) { if ($server eq $address) { $server = $servers{$address}; $status = 0; } } if ($status) { &return_error (500, $error, "Please select a valid archie host."); } else { if ($type eq "cs_sub") { $type = "-c"; } elsif ($type eq "ci_sub") { $type = "-s"; } else { $type = "-e"; } $options = "-h $server $type $query"; return ($options); } } } sub display_form { local ($archie); print < Gateway to Internet Information Servers

CGI Archie Gateway

End_of_Archie_Two }