in reply to WWW:Mechanize and Cookies
#!/usr/bin/perl -- use strict; use warnings; use WWW::Mechanize; my $ua = WWW::Mechanize->new; $ua->get(qw! https://utdirect.utexas.edu/registrar/nrclav !); print "\n\n", $ua->response->status_line, " ", $ua->uri, "\n\n", $ua->cookie_jar->as_string, "\n\n"; $ua->set_visible(qw' TESTusername TESTpassword'); print $ua->current_form->dump,"\n\n"; $ua->submit; print "\n\n", $ua->response->request->as_string, "\n\n", $ua->cookie_jar->as_string, "\n\n"; print "Error: $1 " if $ua->content =~ m{\Q<span class="error">\E(.+?)\ +Q</span>\E}s; __END__ 200 OK https://utdirect.utexas.edu/registrar/nrclav/index.WBX Set-Cookie3: DOC="/registrar/nrclav/index.WBX"; path="/"; domain=.utex +as.edu; path_spec; discard; version=0 Set-Cookie3: FC=NONE; path="/"; domain=.utexas.edu; path_spec; discard +; version=0 Set-Cookie3: PDLK=NONE; path="/"; domain=.utexas.edu; path_spec; disca +rd; version=0 Set-Cookie3: SC=NONE; path="/"; domain=.utexas.edu; path_spec; discard +; version=0 POST https://utdirect.utexas.edu/security-443/logon_check.logonform [l +ogonform] CDT=20090331212639 (hidden readonly) NEW_PASSWORD= (hidden readonly) CONFIRM_NEW_PASSWORD= (hidden readonly) PASSWORDS= (hidden readonly) LOGON=TESTusername (text) PASSWORDS=TESTpassword (password) <NONAME>=Log In (submit) POST https://utdirect.utexas.edu/security-443/logon_check.logonform Accept-Encoding: gzip Referer: https://utdirect.utexas.edu/registrar/nrclav User-Agent: WWW-Mechanize/1.54 Content-Length: 107 Content-Type: application/x-www-form-urlencoded Cookie: SC=NONE; PDLK=NONE; FC=NONE; DOC=/registrar/nrclav/index.WBX Cookie2: $Version="1" CDT=20090331212639&NEW_PASSWORD=&CONFIRM_NEW_PASSWORD=&PASSWORDS=&LOGO +N=TESTusername&PASSWORDS=TESTpassword Set-Cookie3: DOC="/registrar/nrclav/index.WBX"; path="/"; domain=.utex +as.edu; path_spec; discard; version=0 Set-Cookie3: FC=NONE; path="/"; domain=.utexas.edu; path_spec; discard +; version=0 Set-Cookie3: PDLK=NONE; path="/"; domain=.utexas.edu; path_spec; disca +rd; version=0 Set-Cookie3: SC=NONE; path="/"; domain=.utexas.edu; path_spec; discard +; version=0 Set-Cookie3: TS=20090331212639; path="/"; domain=.utexas.edu; path_spe +c; discard; version=0 Error: An error has occurred. You are not at fault. This error has +automatically been reported to the System Administrator. Please try a +gain later.
|
|---|