CGI header problem

[rajiv07]

Hi to all

I have a script to get geo IP which is successfully running on Linux server.but when i run this script on windows server it gives some header error

#!C:/Perl/bin/perl.exe
use CGI qw/:standard/;
use LWP::UserAgent;
use HTTP::Request qw(GET POST);
use HTTP::Headers;
 
use CGI::Cookie;
use CGI::Session;
 
use CGI::Carp qw(fatalsToBrowser);
 
my $q=new CGI;
 
my $c=new CGI::Cookie;
 
my $cIP = $ENV{'REMOTE_ADDR'} ;
 
# replace this value with license key
my $license_key ="key";
 
 
my $ua = LWP::UserAgent->new(timeout =>10);
 
my $h = HTTP::Headers->new;
 
$h->content_type('application/x-www-form-urlencoded');
 
my $request = HTTP::Request->new('POST','http://maxmind.com:8010/a',
                                 $h,"l=$license_key&i=$cIP");
my $res = $ua->request($request);
 
my $content = $res->content;
#print "Content-type: text/html\n\n" ;
############ again send request    #######
if($content eq "")
{
 sleep(1);
 
 $request = HTTP::Request->new('POST','http://maxmind.com:8010/a', 
                               $h,"l=$license_key&i=$cIP");        
 $res = $ua->request($request);                                    
 
 $content = $res->content;                                         
}
if($content eq "")
{
 sleep(1);
 
 $request = HTTP::Request->new('POST','http://maxmind.com:8010/a', 
                               $h,"l=$license_key&i=$cIP");        
 $res = $ua->request($request);                                    
 
 $content = $res->content;                                         
}
if($content eq "")
{
    $content="Server-Error";
}
 
my $session = "" ;
 
my $sid = "" ;
 
$sid = _Checkcookie();
 
if($sid eq "")
{
 $session = new CGI::Session("driver:File", $q, {Directory=>'/tmp'});
 
 my $server = $ENV{'HTTP_HOST'};
 
 my $path = "/";
 
 $sid = $session->id();
 
 print "Set-Cookie: CGISESSID\=$sid; path\=$path;domain\=$server\n" ;
}
else
{
 $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});
}
 
my $cFlag = 0 ;
 
my $referer=$q->param('referer');
 
my $albumid=$q->param('albumid');
 
my $action=$q->param('action');
 
my $shopping_info=$session->param('shopping_info');
 
my %shopping_info=%{$shopping_info};
 
$shopping_info{geo}=$content; 
 
 
$session->param("shopping_info",\%shopping_info);
 
$session->expire('+12h');
 
if($action eq "direct"){
#print "location: /cgi-bin/elearning/query/el_alb_details.pl?albumid=$albumid&action=geo\n\n" ;
print "Status: 302 Moved", "\r\n","Location: http://www.mysitename.com/cgi-bin/elearning/query/el_alb_details.pl?albumid=$albumid&action=geo", "\r\n\r\n";
exit;
}
 
print 'Status: 302 Moved', "\r\n",'Location:/cgi-bin/elearning/query/el_show_cat.pl', "\r\n\r\n"; 
 
exit;
 
sub _Checkcookie{
 
my %cookies=fetch CGI::Cookie;
 
my $name=$cookies{CGISESSID};
 
my @temp=split(/CGISESSID\=/,$name);
 
my @temp1=split(/;/,$temp[1]);
 
return $temp1[0];
}

My error

The specified CGI application misbehaved by not returning a complete set of HTTP headers.

Please help on this

Thanks in advance
Rajiv

[KevinADC]

for now do this, change these lines:

print 'Status: 302 Moved', "\r\n",'Location:/cgi-bin/elearning/query/el_show_cat.pl', "\r\n\r\n";

to:

print 'Location: http://www.yoursite.com/cgi-bin/elearning/query/el_show_cat.pl', "\r\n\r\n";

and see if that gets the script running. If it does, the problem is in the header your script is printing. If not, I don't know what the problem is.

[rajiv07]

Thanks Kevin,

Actually i am trying to move all script from Linux Server to windows server.No program is work.All script gives the same error.i could not find any problem.But when i run a simple test script its working fine.

My testing script

#!C:/perl/bin/perl.exe
use CGI qw/:standard/;
 
use CGI::Carp qw(fatalsToBrowser);
 
my $q=new CGI;
 
my $cFlag = 0 ;
 
my $referer=$q->param('referer');
 
my $albumid=$q->param('albumid');
 
my $action=$q->param('action');
 
print $q->header;
 
print "Hello world";
 
exit;
 
 

Is any server configuration fault has involved in this problem.

Plesae suggest me any idea or solution please.

Thanks in advance

Rajiv