[HTTP-Recorder] use double slash in perl

jaya sim jayasim_it at yahoo.com
Mon Dec 26 01:14:50 EST 2005


Hi,
      if u use 
  
$agent->file("//tmp//proxy"); instead of $agent->file("/tmp/proxy");
it may work..

  
http-recorder-request at lists.bestpractical.com wrote:  Send HTTP-Recorder mailing list submissions to
 http-recorder at lists.bestpractical.com

To subscribe or unsubscribe via the World Wide Web, visit
 http://lists.bestpractical.com/cgi-bin/mailman/listinfo/http-recorder
or, via email, send a message with subject or body 'help' to
 http-recorder-request at lists.bestpractical.com

You can reach the person managing the list at
 http-recorder-owner at lists.bestpractical.com

When replying, please edit your Subject line so it is more specific
than "Re: Contents of HTTP-Recorder digest..."


Today's Topics:

   1. HTTP::Recorder can't go passed java as it seems (liran tal)


----------------------------------------------------------------------

Message: 1
Date: Fri, 23 Dec 2005 14:05:31 +0200
From: liran tal 

Subject: [HTTP-Recorder] HTTP::Recorder can't go passed java as it
 seems
To: http-recorder at lists.bestpractical.com
Message-ID:
 <3ed55890512230405s71151bfeta2675883491e08b4 at mail.gmail.com>
Content-Type: text/plain; charset="iso-8859-1"

Hey guys,

I'm using the cpan version - HTTP::Recorder 0.05 with the following code:

   #!/usr/bin/perl

   use HTTP::Proxy;
   use HTTP::Recorder;
   use URI::QueryParam;
                                           # we're adding this to enable
login pages as according
                                           # solutions at:
http://www.spanner.org/lists/osxperl/2005/08/22/905b481c.html

   my $proxy = HTTP::Proxy->new();

   # create a new HTTP::Recorder object
   my $agent = new HTTP::Recorder;

   # set the log file (optional)
    $agent->file("/tmp/proxy");

   # set HTTP::Recorder as the agent for the proxy
   $proxy->agent( $agent );

   # start the proxy
   $proxy->start();

   1;



when I try to login to a website which is (i assume) java enabled,
HTTP::Recorder stumbles upon some
errors or missing some libraries maybe.

Here's the output:

Use of uninitialized value in substitution (s///) at
/usr/local/share/perl/5.8.4 /HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value in concatenation (.) or string at
/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 173.
Can't locate object method "query_param" via package
"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"
(perhaps you forgot to load
"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"?)
at /usr/local/share/perl/5.8.4/HTTP/Recorder.pm line 347.
Use of uninitialized value in substitution (s///) at
/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value in concatenation (.) or string at
/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 173.
Can't locate object method "query_param" via package
"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"
(perhaps you forgot to load
"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"?)
at /usr/local/share/perl/5.8.4/HTTP/Recorder.pm line 347.
Use of uninitialized value in substitution (s///) at
/usr/local/share/perl/5.8.4/HTTP/Recorder/Logger.pm line 171.


While the appending to the log file seems just fine, but it won't go passed
it:


liran at octave:~/Programming/perls$ tail -f /tmp/proxy

$agent->get('http://www.example.net/') ;

$agent->get('http://www.example.net/index.html')
;
$agent->form_name('p');
$agent->field('password', '123123');
$agent->field('language', '');
$agent->field('userName', 'test');
$agent->click();

$agent->form_name('p');
$agent->field('password', '123123');
$agent->field('language', '');
$agent->field('userName', 'test');
$agent->click();



Any comment is welcome.
thanks.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.bestpractical.com/pipermail/http-recorder/attachments/20051223/68b0358d/attachment.html

------------------------------

_______________________________________________
HTTP-Recorder mailing list
HTTP-Recorder at lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/http-recorder


End of HTTP-Recorder Digest, Vol 12, Issue 3
********************************************



		
---------------------------------
Yahoo! for Good - Make a difference this year. 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.bestpractical.com/pipermail/http-recorder/attachments/20051225/e71c1893/attachment.htm


More information about the HTTP-Recorder mailing list