home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2005 March / PCWELT_3_2005.ISO / pcwsoft / framework-2.2.exe / open_proxy_tcp_connection.al < prev    next >
Encoding:
Text File  |  2004-02-17  |  1003 b   |  29 lines
  1. # NOTE: Derived from blib/lib/Net/SSLeay.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Net::SSLeay;
  5.  
  6. #line 1481 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/open_proxy_tcp_connection.al)"
  7. ### Open connection via standard web proxy, if one was defined
  8. ### using set_proxy().
  9.  
  10. sub open_proxy_tcp_connection {
  11.     my ($dest_serv, $port) = @_;
  12.     
  13.     return open_tcp_connection($dest_serv, $port) if !$proxyhost;
  14.     
  15.     warn "Connect via proxy: $proxyhost:$proxyport" if $trace>2;
  16.     my @ret = open_tcp_connection($proxyhost, $proxyport);
  17.     return wantarray ? @ret : 0 if !$ret[0];  # Connection fail
  18.     
  19.     warn "Asking proxy to connect to $dest_serv:$port" if $trace>2;
  20.     print SSLCAT_S "CONNECT $dest_serv:$port HTTP/1.0$proxyauth$CRLF$CRLF";
  21.     my $line = <SSLCAT_S>; 
  22.     warn "Proxy response: $line" if $trace>2;
  23.     
  24.     return wantarray ? (1,undef) : 1;  # Success
  25. }
  26.  
  27. # end of Net::SSLeay::open_proxy_tcp_connection
  28. 1;
  29.