Re: Mechanize && meta="Refresh"

"Carl A. Schreiber" <[email protected]> Fri, 24 Nov 2006 10:16:45 +0100

Newsgroups	gmane.comp.lang.perl.modules.lwp
Message-ID	<[email protected]>

Am Donnerstag, 23. November 2006 19:24 schrieb Carl A. Schreiber:
> 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?
>
I just have tried another login - same problem!!

after:

   $r = $m->submit_form(
        fields      => {
            $XuFld    => $XuNme,
            $XpFld    => $XpPwd
        }
    );
    die "Couldn't submit form" unless $r->is_success;

I get:
     <HTML><HEAD><TITLE>Connecting..</TITLE>
     <META http-equiv="Refresh" 
           content="0;url=sel?S=Ro9Lze7S&lang=en_US">
    </HEAD></HTML>

and if I follow your recommandation 'straight get()', I get:

   <HTML><HEAD><META http-equiv="Content-Type" 
     content="text/html;charset=iso-8859-1">
    <TITLE>Access Denied</TITLE></HEAD><BODY>
    <FORM METHOD=GET ACTION="reports"><BR><BR>
    <CENTER><FONT face="Arial, Helvetica, sans-serIF" size="4"
        color="#FF0000"><BR><BR><BR><BR>
     <b>YOUR LOGON is INVALID!<BR>
     <BR> PLEASE, LOGIN ONCE MORE.<BR></b></FONT><BR><BR>
     <BR><BR>
     <INPUT TYPE="SUBMIT" VALUE="Login"></CENTER>
     </FORM></BODY></HTML>

It seems to be a bug?
Carl