I use proxomitron for exactly this purpose:
http://www.proxomitron.org/
You will have to track down windows dlls for ssleay,
etc., (see the proxomitron doc) but once you drop them
in the proxomitron directory, ssl support starts
working.
-David
On Thu, 29 May 2003 08:39:17 -0700 (PDT), Jack Yang
wrote:
>
> William:
>
> By using the sample script you provided, I will no
> longer go back to login page after successfully log in
> once. Thank you very much.
>
> I have another quick question for all of you. I used
> to use Internet Junkbuster to log all the HTTP
requests
> that went through the webbrowser, and this feature
> makes my life much easier to write down a Perl
script.
> Unfortunately, JunkBuster doesn't work under HTTPS,
> because all the HTTP requests are encrypted. Is there
> a similar program which works under HTTPS and can log
> all HTTP requests?
>
> Thank all of you for your help
>
> Jack
>
>
>
>
> "(William) Wenjie Wang" <[EMAIL PROTECTED]> wrote:
> Hi Jack,
>
> I've done something like following code snip and it
> works fine for me. Hope
> it'll help:
>
>
---------------------------8<------------------------------------
> my $myUserAgent = LWP::UserAgent->new(keep_active =>
2);
> $myUserAgent->agent("Mozilla/4.0 (compatible; MSIE
6.0;
> Win32)");
> $myUserAgent->cookie_jar(HTTP::Cookies->new(autosave
=>
> 1));
>
>
> # download login form
> .....
> # parse and fill out form data
> my $LoginForm =
HTML::Form->parse($myResponse->content,
> $myResponse->base());
> $LoginForm ->value('username' => $username);
> $LoginForm ->value('password' => $password);
> ....
> # submit form
> $myResponse = $myUserAgent->request($myForm->click()
);
>
> # Get the page you want if login was sucess.
> my $myResponse =
> $myUserAgent->request(HTTP::Request->new($Verb,
> $PageURL));
>
>
---------------------------8<------------------------------------
>
>
> Regards,
> WWang
>
>
>
> ---------------------------------
> Do you Yahoo!?
> Free online calendar with sync to Outlook(TM).
