blob: 0eb3595b5e24e207d06fd23c7668c5cdb6fc4bf6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package Mail::Mailer::mail;
use vars qw(@ISA);
@ISA = qw(Mail::Mailer);
my %hdrs = qw(Cc ~c Bcc ~b Subject ~s);
sub set_headers {
my $self = shift;
my $hdrs = shift;
my($k,$v);
while(($k,$v) = each %hdrs) {
print $self join(" ",$v, $self->to_array($hdrs->{$k})), "\n"
if defined $hdrs->{$k};
}
}
sub exec {
# These fail in FCGI under 5.6 due to 5.6 adding an OPEN to the
# tie interface and FCGI not having one.
eval {
open(STDOUT,">/dev/null"); # this is not portable !!!!
open(STDERR,">/dev/null"); # this is not portable !!!!
};
shift->SUPER::exec(@_);
}
1;
|
