Hello There, Myself Sonika , i am currently working on a project involving cgi script where i am working on a proxy server.The problem is i am not able to access a database on the internet server.
i have done the following coding my %parm=( url=>'http://site where cgi to access db is stored', outfile=>'', uatimeout=>120, browser=>'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.6) Gecko/20040113', ); my %proxy=( host=>'http://ip address of my machine/', id=>'user name to access my proxy server', pass=>'password to access my proxy server', ); my $ua=new LWP::UserAgent; $ua->agent($parm{browser}); $ua->timeout($parm{uatimeout}); $ua->proxy(http=>"$proxy{host}") if (defined $proxy{host}); $parm{url}=new URI::URL($parm{url}); my $req=new HTTP::Request "GET" => ($parm{url}); $req->proxy_authorization_basic($proxy{id}, $proxy{pass}) if (defined $proxy{id}); my $res=>$ua->requset($req); if ($res -> is_success) { my $rescount= $res->content; print "\n Success"; } else { print "\n No Success yet"; } well when i am executing the code i am getting 'no Success yet' error message instead of expected 'Success'.Can you kindly look in the code where have i done mistake, i ll be grateful to you! Thank you Sonika __________________________________ Do you Yahoo!? Yahoo! Movies - Buy advance tickets for 'Shrek 2' http://movies.yahoo.com/showtimes/movie?mid=1808405861
