Am Freitag, 24. November 2006 16:04 schrieb Gedanken:
> On Thu, 23 Nov 2006, Carl A. Schreiber wrote:
>
> I think i can help, but i only have this msg and Andy's (aka Big
> Poppa) messages, so i really need to ask your forgiveness to forward
> me the originial code please.
:) Do you speak Deutsch?
Well my code is just the standard code:
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( agent => 'Linux Konqueror' );
$mech->get( $url );
$mech->success or die "Can't get this url $url\n\n";
# ok, I got the login page..
my $r = $mech->submit_form(
fields => {
$usrFld => $usrNme,
$pwdFld => $pwdPwd
}
);
die "Couldn't submit form" unless $r->is_success;
# ok, now I am logged in and have gotb that meta-page..
print $r content; # shows that meta="refresh"-page, and
$m->links();
has all what I think I need for the refresh..
To test you can just open an account at voipBuster.com and try to the
login with this piece of code.
To obey what you don't need for testing just use this direct login-site:
https://myaccount.voipbuster.com/clx/index.php?part=plogin&username=pney-fpuervore&password=xwq
Do you need more?
There is not much more,
Calli
>
> Andy can vouch for me - Im the guy who asks obvious, moronic
> questions to this list but realizes the solution the instant he hits
> send - Im 100 percent accurrate!!
>
> mfp.
>
> Am Donnerstag, 23. November 2006 19:12 schrieb Andy Lester:
> > On Nov 23, 2006, at 3:21 AM, Carl A. Schreiber wrote:
> > > How do I get beyond the that meta="Refresh" page.
> > > I konw the answer of Andy Lester in the archive, that
> > > "The address of the META REFRESH should be available to you in
> > > the $mech->links() method."
> > > Yes it is - as you can see below, but how should I use it, all
> > > what I tried either
> >
> > Did you do a straight get() on it?
>
> hmm ?? do you mean $mech->get(); or $r->get();
> Well, after
> my $r = $mech->submit_form(
> fields => {
> $uFld => $uNme,
> $pFld => $pPwd
> }
> );
> I did:
> $mech->get();
> That gives me again the login page :(
>
> But if I did instead
> $r->get();
> I get:
> Can't locate object method "get" via package "HTTP::Headers" at
> (eval 14) line 1.
>
> Still not where I want to be.
> Carl
