#!/usr/bin/perl

require ("cgi-lib.pl") or die "Could not open or find cgi-lib.pl\n";

## call initial functions
&Get_request_types;
&Record_Log;

#########################################################################

sub Get_request_types {
        
&ReadParse(*input);
$host_request = ($input{'Host'});
$banner_name = ($input{'Banner_name'});

}

#########################################################################

sub Record_Log {

open (LOGFILE, ">>exposures.txt" || die "Could not open or find logfile.txt\n");
print LOGFILE "$banner_name | ".gmtime(time)." | $ip | $host_request\n";
close LOGFILE;

}

#########################################################################