home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / rfc822.pm < prev    next >
Encoding:
Perl POD Document  |  2003-09-22  |  409 b   |  22 lines
  1. package Mail::Mailer::rfc822;
  2. use vars qw(@ISA);
  3. @ISA = qw(Mail::Mailer);
  4.  
  5. sub set_headers {
  6.     my $self = shift;
  7.     my $hdrs = shift;
  8.     local($\)="";
  9.     foreach(keys %$hdrs) {
  10.     next unless m/^[A-Z]/;
  11.  
  12.         my ($h);
  13.         foreach $h ($self->to_array($hdrs->{$_}))
  14.         {   $h =~ s/\n+\Z//;
  15.             print $self "$_: ", $h, "\n";
  16.         }
  17.     }
  18.     print $self "\n";    # terminate headers
  19. }
  20.  
  21. 1;
  22.