#!/usr/bin/perl
use CGI qw(:standard);
use URI::Escape;
use CGI;
use CGI::Cookie;
use lmhandler;
use strict;
my $cookie;
my $loadmap = "/data/vdrive/Loadmaps/SmallLoadMap.txt";
my $message = "";
my $type;
my $buffer = $ENV{'QUERY_STRING'};
my($type,$find) = split(/=/,$buffer);
my $query = new CGI;
my $theCookie = $query->cookie('MY_COOKIE');
my $encode = uri_unescape($theCookie);
if ($encode)
{
$loadmap = $encode;
}
else
{
$loadmap = "/data/vdrive/Loadmaps/SmallLoadMap.txt"
}
if ($type eq "nme") #check the parameter (determines sub to be used)
{
$message = lmhandler::getAdd($find,$loadmap);
}
elsif ($type eq "addr")
{
$message = lmhandler::getmod($find,$loadmap);
}
elsif ($type eq "root") #create new cookie
{
$cookie = $query->cookie(-name=>'MY_COOKIE',
-value=> $find,
-expires=>'+1y',
-path=>'/');
print header(-cookie=>$cookie);
}
print "Content-type:text/html\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "LoadMap Browser\n";
#Start body
#search through chosen loadmap
print "
\n";
print "\n";
print "
\n";
print "
\n";
#end body
print "\n";