home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / ssl / make_headers.al < prev    next >
Encoding:
Text File  |  2004-03-20  |  596 b   |  22 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 1927 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\make_headers.al)"
  7. sub make_headers {
  8.     my (@headers) = @_;
  9.     my $headers;
  10.     while (@headers) {
  11.     my $header = shift(@headers);
  12.     my $value = shift(@headers);
  13.     $header =~ s/:$//;
  14.     $value =~ s/\x0d?\x0a$//; # because we add it soon, see below
  15.     $headers .= "$header: $value$CRLF";
  16.     }
  17.     return $headers;
  18. }
  19.  
  20. # end of Net::SSLeay::make_headers
  21. 1;
  22.