<div>When I run the following code, it generate only printed message, seems like nothing is happening for opening control panel window and creating log file.</div>
<div> </div>
<div>Can someone help?</div>
<div> </div>
<div>here is my code</div>
<div>###############################################################</div>
<div>
<p>#!/usr/bin/perl</p>
<p> use HTTP::Proxy;<br> use HTTP::Recorder;<br> print "Creating http:proxy \n";<br> my $proxy = HTTP::Proxy->new();</p>
<p> # create a new HTTP::Recorder object<br> print "Creating http::recorder \n";<br> my $agent = new HTTP::Recorder(file => "/tmp/myLogfile");<br> <br> print "calling showwindow function \n";
<br> showwindow => 1;<br> <br> # spare futile attempts at accessing control panel<br> <br> print "setting control panel setting \n";<br> control => "<a href="http://http-recorder/">http://http-recorder/
</a>";</p>
<p> # set the log file (optional)<br> #$agent->file("/tmp/myLogfile");</p>
<p> # set HTTP::Recorder as the agent for the proxy<br> print "The proxy is - $proxy \n";</p>
<p><br> $proxy->port( 8080 ); </p>
<p> $proxy->agent( $agent );</p>
<p> # start the proxy<br> print "starting proxy \n";<br> $proxy->start();<br> </p>
<p><br> 1;</p></div>
<div> </div>
<div>############################################################### </div>