P
Paul
hi, greetings,
I am trying to write a script to log on
https://membership.dell.com/DellLogin/GA/login.aspx, so I can track my
order instantly without log on the site each time.
here is the scripts i wrote, but seems it does not work.
can somebody give me some ideas? thanks.
paul
#!/usr/bin/perl
use strict;
use warnings;
use LWP 5.64;
my $browser = LWP::UserAgent->new;
my $sbresponse;
my $sburl = 'https://membership.dell.com/DellLogin/GA/login.aspx';
#############Get the _viewstate##################
$sbresponse = $browser->get($sburl);
print "Error at $sburl\n ", $sbresponse->status_line, "\n Aborting"
unless $sbresponse->is_success;
my $sbident = 'name="__VIEWSTATE" value="';
my $sbpos1 = index($sbresponse->content, $sbident) + length $sbident;
my $sbpos2 = index $sbresponse->content, '"', $sbpos1;
my $sbviewstate=substr($sbresponse->content, $sbpos1,
$sbpos2-$sbpos1);
#############Get _viewstate ends###################
$sbresponse = $browser->post( $sburl,
[ _txtUserName => '(e-mail address removed)',
_txtPassword => 'xxxx',
__EVENTTARGET=>'subBtn',
__EVENTARGUMENT=>'',
__VIEWSTATE=>$sbviewstate,
]
);
print $sbresponse->content;
I am trying to write a script to log on
https://membership.dell.com/DellLogin/GA/login.aspx, so I can track my
order instantly without log on the site each time.
here is the scripts i wrote, but seems it does not work.
can somebody give me some ideas? thanks.
paul
#!/usr/bin/perl
use strict;
use warnings;
use LWP 5.64;
my $browser = LWP::UserAgent->new;
my $sbresponse;
my $sburl = 'https://membership.dell.com/DellLogin/GA/login.aspx';
#############Get the _viewstate##################
$sbresponse = $browser->get($sburl);
print "Error at $sburl\n ", $sbresponse->status_line, "\n Aborting"
unless $sbresponse->is_success;
my $sbident = 'name="__VIEWSTATE" value="';
my $sbpos1 = index($sbresponse->content, $sbident) + length $sbident;
my $sbpos2 = index $sbresponse->content, '"', $sbpos1;
my $sbviewstate=substr($sbresponse->content, $sbpos1,
$sbpos2-$sbpos1);
#############Get _viewstate ends###################
$sbresponse = $browser->post( $sburl,
[ _txtUserName => '(e-mail address removed)',
_txtPassword => 'xxxx',
__EVENTTARGET=>'subBtn',
__EVENTARGUMENT=>'',
__VIEWSTATE=>$sbviewstate,
]
);
print $sbresponse->content;