Hey guys,<br>
<br>
I'm using the cpan version - HTTP::Recorder 0.05 with the following code:<br>
<br>
#!/usr/bin/perl<br>
<br>
use HTTP::Proxy;<br>
use HTTP::Recorder;<br>
use URI::QueryParam;<br>
# we're adding this to enable<br>
login pages as according<br>
# solutions at:<br>
<a onclick="return top.js.OpenExtLink(window,event,this)" href="http://www.spanner.org/lists/osxperl/2005/08/22/905b481c.html" target="_blank">http://www.spanner.org/lists/osxperl/2005/08/22/905b481c.html</a><br>
<br>
my $proxy = HTTP::Proxy->new();<br>
<br>
# create a new HTTP::Recorder object<br>
my $agent = new HTTP::Recorder;<br>
<br>
# set the log file (optional)<br>
$agent->file("/tmp/proxy");<br>
<br>
# set HTTP::Recorder as the agent for the proxy<br>
$proxy->agent( $agent );<br>
<br>
# start the proxy<br>
$proxy->start();<br>
<br>
1;<br>
<br>
<br>
<br>
when I try to login to a website which is (i assume) java enabled,<br>
HTTP::Recorder stumbles upon some<br>
errors or missing some libraries maybe.<br>
<br>
Here's the output:<br>
<br>
Use of uninitialized value in substitution (s///) at<br>
/usr/local/share/perl/5.8.4
<div id="mb_0">/HTTP/Recorder/Logger.pm line 171.<br>Use of uninitialized value in concatenation (.) or string at<br>/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 173.<br>Can't locate object method "query_param" via package
<br>"rec-action=submitform&rec-formname=p&rec-formnumber=1&rec-form1-unknown-userName=1&userName=colloron&rec-form1-password-password=1&password=t040682&rec-form1-unknown-language=1&language=&rec-form1-image-refresh=1&refresh.x=113&refresh.y=9"
<br>(perhaps you forgot to load<br>"rec-action=submitform&rec-formname=p&rec-formnumber=1&rec-form1-unknown-userName=1&userName=colloron&rec-form1-password-password=1&password=t040682&rec-form1-unknown-language=1&language=&rec-form1-image-refresh=1&refresh.x=113&refresh.y=9"?)
<br>at /usr/local/share/perl/5.8.4/HTTP/Recorder.pm line 347.<br>Use of uninitialized value in substitution (s///) at<br>/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 171.<br>Use of uninitialized value in concatenation (.) or string at
<br>/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 173.<br>Can't locate object method "query_param" via package<br>"rec-action=submitform&rec-formname=p&rec-formnumber=1&rec-form1-unknown-userName=1&userName=colloron&rec-form1-password-password=1&password=t040682&rec-form1-unknown-language=1&language=&rec-form1-image-refresh=1&refresh.x=113&refresh.y=9"
<br>(perhaps you forgot to load<br>"rec-action=submitform&rec-formname=p&rec-formnumber=1&rec-form1-unknown-userName=1&userName=colloron&rec-form1-password-password=1&password=t040682&rec-form1-unknown-language=1&language=&rec-form1-image-refresh=1&refresh.x=113&refresh.y=9"?)
<br>at /usr/local/share/perl/5.8.4/HTTP/Recorder.pm line 347.<br>Use of uninitialized value in substitution (s///) at<br>/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 171.<br><br><br>While the appending to the log file seems just fine, but it won't go passed
<br>it:<br><br><br>liran@octave:~/Programming/perls$ tail -f /tmp/proxy<br><br>$agent->get('<a onclick="return top.js.OpenExtLink(window,event,this)" href="http://www.example.net/%27%29" target="_blank">http://www.example.net/')
</a>;<br><br>$agent->get('<a onclick="return top.js.OpenExtLink(window,event,this)" href="http://www.example.net/index.html%27%29" target="_blank">http://www.example.net/index.html')</a>;<br>$agent->form_name('p');<br>
$agent->field('password', '123123');<br>$agent->field('language', '');<br>$agent->field('userName', 'test');<br>$agent->click();<br><br>$agent->form_name('p');<br>$agent->field('password', '123123');<br>
$agent->field('language', '');<br>$agent->field('userName', 'test');<br>$agent->click();<br><br><br><br>Any comment is welcome.<br>thanks.</div>