home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / rfc822.pm < prev    next >
Encoding:
Perl POD Document  |  2002-05-29  |  430 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.