Hey I wrote the following code to get the http page from a website. As sending request from behind the firewall,the request has to be sent via a proxy server whose address can be obtained from the ".pac" file.
use HTTP::ProxyPAC; my $pac = HTTP::ProxyPAC->new('c:\perl\proxypac.pac'); my $res = $pac->find_proxy('http://esto*******tt.coml'); #print $res; use LWP::Simple; use LWP::UserAgent; my $ua = LWP::UserAgent->new(); $ua->proxy('http',$res); my $content =$ua->get('http://esto*******tt.com'); print $content->content(); exit 0;
I think the $res is not getting the correct URI,how can I correct it.
Its value was HTTP::ProxyPAC::Result=HASH(0x33ad284)
The output is 500 no host option provided
I am using strawberry perl on windows vista. I have just starting learning Perl about 3 weeks ago so I request you to please be explanative.
One more thing just for if it helps, CPAN was not able to install modules too by the usual command " cpan < module name>" as I think the firewall is rejecting any request sent using LWP library( may be the problem is same with parsing the PAC file). I had to install modules manually.
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |