Hi,
How do I get beyond the that meta=3D"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
loads again the login-page to start again or
loads again that meta-page or
looses the session, so re-login is required
So how shall I do it?=09
My little piece of code using WWW::Mechanize that logs me in is just:
use WWW::Mechanize;
my $mech =3D WWW::Mechanize->new( agent =3D> 'Linux Konqueror' );
$mech->get( 'https://acct.server.com/clx/index.php?part=3Dlogoff&noclos=
e=3Dtrue' );
$mech->success or die "Can't get this url $url\n\n";
# ok, got the login page..
my $r =3D $mech->submit_form(
fields =3D> {
$uFld =3D> $uNme,
$pFld =3D> $pPwd
}
);
die "Couldn't submit form" unless $r->is_success;
# ok, being here, submit was successfull
# and this is what I've got
=A0 =A0 print $r->content # prints this
=A0 =A0 =A0 #<html><head>
=A0 =A0 =A0 #<meta http-equiv=3D"Refresh"
=A0 =A0 =A0 #content=3D"0;url=3Dindex.php?part=3Dmenu&justloggedin=3Dtru e">
=A0 =A0 =A0 #</head><body><a
=A0 =A0 =A0 #href=3D"index.php?part=3Dmenu&justloggedin=3Dtrue"></a></body>=
</html>
=A0If I do one of these:
=A0 =A0 $mech->follow_link(n=3D>0);
=A0 =A0 $mech->follow_link(n=3D>1);
I loose the session (need to re-login) and get:
#<html><head>
#<meta http-equiv=3D"Refresh" content=3D"0;url=3Dindex.php?part=3Dtimeo=
ut">
#</head>
#<body>Session lost<br>
#<a href=3D"index.php?part=3Dtimeout">
#Click here to go back to the login pa+ge</a>
#<a href=3D"index.php?part=3Dtimeout"></a></body></html>
=A0If I try to create the url by myself by
=A0Step 1:
=A0 =A0 print join('; ', [at] {${$mech->links()}[0]}),"\n\n";
=A0 =A0 print join('; ', [at] {${$mech->links()}[1]}),"\n";
gives me for [0] the mate-url:
# index.php?part=3Dmenu&justloggedin=3Dtrue; ; ; meta;
# https://acct.server.com/clx/index.php; HASH(0x864c5f8)
and for the second url at [1]
# index.php?part=3Dmenu&justloggedin=3Dtrue; ; ; a;
# https://acct.server.com/clx/index.php; HASH(0x86168bc)
So I just try:
$mech->get( 'https://acct.server.com/clx/index.php?part=3Dmenu&justlogg=
edin=3Dtrue' )
and again the session is lost =3D> re-login.
And even what I have found for WWW-Mechanize
(http://rt.cpan.org/Public/Bug/Display.html?id=3D12882)
=A0 =A0 =A0 print $mech->response->request->uri;
=A0shows:
# https://acct.server.com/clx/index.php
which ist the base not what I need and therefore this:
=A0=A0=A0=A0=A0$mech->get ( $mech->response->request->uri );
only reloads the first login-form and not what I want.
If I do a reload after submitting the form,
=A0 =A0 $mech->reload();
it just reloads the meta=3D"Refresh.. page.
=A0Anybody with an idea how I can get beyond this "meta-page"?
=A0Thanks a lot in advance;
=A0Carl
