Hi Everyone
I am using the perl script in php but at the time of
calling of this script it gives error at
http::request::form.
Please if anyone could help me in solving the problem.
I am unable to understand why it is crashing at this
point.
Thanks.
=
#!/usr/bin/perl -w
use strict;
use URI::URL;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
use HTTP::Request::Form;
use HTTP::Cookies;
use HTML::TreeBuilder 3.0;
use DBI;
my ($db_table, $db_user, $db_pass) = (tab, dbu,
pass);
my $url = https://abc.def;;
my $ua = new LWP::UserAgent;
push @{ $ua-requests_redirectable }, 'POST';
$ua-cookie_jar(new HTTP::Cookies(file =
./cookies.txt));
my $req = new HTTP::Request(GET $url);
my $res = $ua-request($req);
my $tree = new HTML::TreeBuilder;
$tree-parse($res-content);
$tree-eof();
my @forms = $tree-find_by_tag_name('FORM');
if([EMAIL PROTECTED]) {
die No forms found;
}
my $form = new HTTP::Request::Form($forms[0], $url);
$form-field({actionForm.username}, user);
$form-field({actionForm.password}, password);
$res = $ua-request($form-press());
__
Enjoy this Diwali with Y! India Click here
http://in.promos.yahoo.com/fabmall/index.html
___
Perl-Win32-Web mailing list
Perl-Win32-Web@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
