home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / do_https3.al < prev    next >
Text File  |  2004-02-17  |  1KB  |  35 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 1957 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/do_https3.al)"
  7. sub do_https3 {
  8.     my ($method, $site, $port, $path, $headers,
  9.     $content, $mime_type, $crt_path, $key_path) = @_;
  10.     my ($response, $page, $h,$v);
  11.  
  12.     if ($content) {
  13.     $mime_type = "application/x-www-form-urlencoded" unless $mime_type;
  14.     my $len = blength($content);
  15.     $content = "Content-Type: $mime_type$CRLF"
  16.         . "Content-Length: $len$CRLF$CRLF$content";
  17.     } else {
  18.     $content = "$CRLF$CRLF";
  19.     }
  20.     my $req = "$method $path HTTP/1.0$CRLF"."Host: $site:$port$CRLF"
  21.       . (defined $headers ? $headers : '') . "Accept: */*$CRLF$content";    
  22.  
  23.     my ($http, $errs, $server_cert)
  24.     = https_cat($site, $port, $req, $crt_path, $key_path);
  25.     return (undef, "HTTP/1.0 900 NET OR SSL ERROR$CRLF$CRLF$errs") if $errs;
  26.     
  27.     $http = '' if !defined $http;
  28.     ($headers, $page) = split /\s?\n\s?\n/, $http, 2;
  29.     ($response, $headers) = split /\s?\n/, $headers, 2;
  30.     return ($page, $response, $headers, $server_cert);
  31. }
  32.  
  33. # end of Net::SSLeay::do_https3
  34. 1;
  35.