Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-02-28 21:28:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Made the SMTP 'timeout' value configurable at setup time (defaults to 5 seconds)

Browse Source
This commit is contained in:
ian%hixie.ch 2002-07-06 16:02:07 +00:00
parent 3f748a7c22
commit 927a78dfd7
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
webtools/PLIF/PLIF/Output/Generic/Email.pm
View File

@ -65,7 +65,7 @@ sub open {
eval { eval {
local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required (so it says in man perlfunc) local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required (so it says in man perlfunc)
local $^W = 0; # XXX shut up warnings in Net::SMTP local $^W = 0; # XXX shut up warnings in Net::SMTP
$self->handle(Net::SMTP->new($self->host, 'Timeout' => 15)); # XXX hard coded timeout $self->handle(Net::SMTP->new($self->host, 'Timeout' => $self->timeout));
alarm(0); alarm(0);
}; };
if ($@) { if ($@) {
@ -133,7 +133,7 @@ sub DESTROY {
# dataSource.configuration.client # dataSource.configuration.client
sub settings { sub settings {
return qw(host address); return qw(host address timeout);
} }
# setup.configure # setup.configure
@ -170,6 +170,16 @@ sub setupConfigure {
} }
$self->address($value); $self->address($value);
$value = $self->timeout;
if (not defined($value)) {
$value = 5;
}
$value = $app->input->getArgument('protocol.email.timeout', $value);
if (not defined($value)) {
return 'protocol.email.timeout';
}
$self->timeout($value);
$self->open(); $self->open();
$app->getService('dataSource.configuration')->setSettings($app, $self, 'protocol.email'); $app->getService('dataSource.configuration')->setSettings($app, $self, 'protocol.email');
$self->dump(9, 'done configuring protocol.email'); $self->dump(9, 'done configuring protocol.email');
@ -179,6 +189,7 @@ sub setupConfigure {
sub hash { sub hash {
my $self = shift; my $self = shift;
return { return {
'address' => $self->address, 'address' => $self->address,
}; # XXX RFC822 date -- need to provide this WITHOUT duplicating code in StdOut outputter
};
} }