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 / send.al < prev    next >
Encoding:
Text File  |  2004-03-29  |  651 b   |  31 lines
  1. # NOTE: Derived from blib\lib\Mail/Internet.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Mail::Internet;
  5.  
  6. #line 635 "blib\lib\Mail/Internet.pm (autosplit into blib\lib\auto\Mail\Internet\send.al)"
  7. sub send;
  8.  
  9. use Mail::Mailer;
  10. use strict;
  11.  
  12.  sub send 
  13. {
  14.     my ($src, $type, @args) = @_;
  15.  
  16.     my $hdr = $src->head->dup;
  17.  
  18.     _prephdr($hdr);
  19.  
  20.     my $headers = $hdr->header_hashref;
  21.  
  22.     # Actually send it
  23.     my $mailer = Mail::Mailer->new($type, @args);
  24.     $mailer->open($headers);
  25.     $src->print_body($mailer);
  26.     $mailer->close();
  27. }
  28.  
  29. # end of Mail::Internet::send
  30. 1;
  31.