Guy Davis wrote: > I apologize if this is making no sense. Since I am using someone > else's code I still have a lot of fuzziness about what is actually > happening. A little nudge in the right direction would be helpful and > greatly appreciated.
Maybe you would find the webchatpp application (provided with in the webchat distribution: http://search.cpan.org/search?dist=webchat) This application creates the whole code for requesting pages, submitting forms, fetching other pages according to the results of the submission, etc. Here's a quick example ---%<-------- chatscript ---------------- # Initialize some perl stuff $ua ||= new LWP::UserAgent; my $agent = shift || 'Mozilla/4.0 (compatible; MSIE 5.0; Windows NT; DigExt)'; ## Set some User Agent properties. $ua->agent($agent); $ua->timeout(30); # 1) I pass a URL, username, password GET https://secure.overture.com/s/dtc/center/ EXPECT OK # 2) The URL is opened and scanned for a login form FORM login # 3) The form once found is populated with the passed username and # password F UserName=username F /go2/directraffic/handler/LoginFormHandler.password=s33kr3t # 4) form->click is called which makes the $click->is_redirect() routine # equal to true at this point SUBMIT login EXPECT OK # 5) open the redirected page as in #2 above and do some more form and # submit stuff (this is where I'm having problems... I don't know how # to 'open' this redirected page) # The content redirected form is stored in $_ FORM another_form F foo=bar SUBMIT EXPECT ERROR __END__ ------------- chatscript ----------->%--- Then, you can type: $ webchatpp chatscript | perl And hopefully it will do what you want... -- briac << dynamic .sig on strike, we apologize for the inconvenience >> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
