Posting a html form using LWP

[sharif]

Anyone could help me out for n=my code ......I have written following code ,Here i m able to get and post the form successfuly..but after posting im not gettng proper response content...

#!usr/bin/perl -w
use strict;
use LWP;
use LWP::Simple;
use LWP::UserAgent;
use HTML::Form;
use Switch;
use HTTP::Cookies;
#use HTTP::Headers;
my $name = "";
my $url='https://192.168.2.24:10443/index.php';
my $usr_agent = new LWP::UserAgent;
$usr_agent->env_proxy;
#my $browser = LWP::UserAgent->new(agent =>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; T312461)',
# 'cookie_jar' => {file => "lwpcookies.txt", autosave => 1,ignore_discard => 1});

#Request the page

my $req = new HTTP::Request('POST', 'https://193.168.2.24:10443/index.php');
my $cookie_jar = HTTP::Cookies-> new( file => "cookie.txt",
autosave => 1,
ignore_discard => 1
);
$usr_agent->cookie_jar($cookie_jar);
my $response = $usr_agent->request($req);

# my $response =$browser->get($url);

my $my_string1 = $response->content;
open(OUT,">web_request.txt");
print OUT $my_string1;
close OUT;
#my @forms = HTML::Form->parse($response);
if (!($response->is_success))
{
print "Cannot get $url: ", $response->status_line, "\n";
}
if ($usr_agent->cookie_jar->as_string)
{ # they set cookies
print "///////////////////////////////";
print "use HTTP::Cookies; $usr_agent->cookie_jar(HTTP::Cookies->new)", "\n";
# to set cookies
print "$usr_agent->request($req)","\n";
print "///////////////////////////////";

}
# my $abb = $cookie_jar->extract_cookies($response);
my @forms = HTML::Form->parse($response);#parse the form got by request
my @inputs = $forms[0]->inputs; #parse all the input tags
my %parsed_inputs = ();
my %parsed_actions = ();
my %parsed_checks = ();
my %parsed_others = ();
foreach my $input(@inputs)
{
$name = $input->name;
my $input_type = $input->type;
switch($input_type)
{
case "text" { $parsed_inputs{ $name } = {
value => $input->value,
type => $input->type,
};
}
case "password" {$parsed_inputs{ $name } = {
value => $input->value,
type => $input->type,
};
}
case "option" {$parsed_inputs{ $name } = {
value => $input->value,
type => $input->type,
};
}
case "button" {$parsed_actions{ $name } = {
value => $input->value,
type => $input->type,
};
}
case "reset" {$parsed_actions{ $name } = {
value => $input->value,
type => $input->type,
};
}

case "submit" {$parsed_actions{ $name } = {
value => $input->value,
type => $input->type,
};
}
case "checkbox"{$parsed_checks{ $name } = {
value => $input->value,
type => $input->type,
};
}
case "radio" {$parsed_checks{ $name } = {
value => $input->value,
type => $input->type,
};
}
else {$parsed_others{ $name } = {
value => $input->value,
type => $input->type,
};
}#file/hidden/image
}
}
my $req1 = new HTTP::Request('POST',$url,['uname' =>'[e-mail]',
'pass'=>'jitu123',
'login'=>'Login', ]);

my $respons = $usr_agent->request($req1);
my $my_string = $respons->content;
open(OUT,">web_response.txt");
print OUT $my_string;
close OUT;