LoadMap Browser

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); <-- Printing headers here ... } print "Content-type:text/html\n\n"; <--- and here. print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "LoadMap Browser\n"; ##

##

if ($type eq "nme")                                     #check the parameter (determines sub to be used)
    {
    $message = lmhandler::getAdd($find,$loadmap);
    print "Content-type:text/html\n\n";
    }
elsif ($type eq "addr")
    {
    $message = lmhandler::getmod($find,$loadmap);
    print "Content-type:text/html\n\n";
    }
elsif ($type eq "root")                                #create new cookie
    {
    $cookie = $query->cookie(-name=>'MY_COOKIE',
    -value=> $find,
    -expires=>'+1y',
    -path=>'/');
    print header(-cookie=>$cookie);
    }
    
print "\n";
...