#!/usr/bin/perl
#
#
# PIX Logging Architecture
# [Kristof Philipsen]
#
# This file is part of PIX Logging Architecture
#
# PIX Logging Architecture is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# PIX Logging Architecture is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PIX Logging Architecture; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                                                                                                                                                                                                  
use DBI;
use CGI;
use Net::Whois::IP;
                                                                                                                                                                                                  
#
# include configuration
#
require "conf.pl";      # General Configuration
require "subs.pl";      # Subroutines
                                                                                                                                                                                                  
#
# Get CGI Parameters
#
$query = new CGI;
$ip = $query->param("ip");
if(length($addr) >= "16") {
  $addr = "";
}

#
# HTML SECTION
#
printtitle();
                                                                                                                                                                                                  
print <<EOF;
<span class='titlehead'><b>PIX Logs > Whois Lookup > $ip</b></span>
<br>
<br>
The following lists the IP Whois lookup for IP "$ip":<br><br>
<pre>
EOF

  #my ($response,$array_of_responses) = whoisip_query($ip,$optional_multiple_flag,$option_array_of_search_options);

  #my $response = whoisip_query($ip); #foreach (sort keys(%{$response}) ) { print "$_ $response->{$_} \n"; }

  my $response = whoisip_query($ip);
 foreach (sort keys(%{$response}) ) {
print <<EOF;
$_ $response->{$_};
EOF
  }

print <<EOF;
</pre>
EOF
