13 |
$server{nntp} ||= 'suika.fam.cx'; |
$server{nntp} ||= 'suika.fam.cx'; |
14 |
my $debug_msg_log = 0; |
my $debug_msg_log = 0; |
15 |
|
|
|
my $myhostname = 'send-msg'; |
|
|
|
|
16 |
open LOG, '>> send.slog'; binmode LOG; |
open LOG, '>> send.slog'; binmode LOG; |
17 |
my $date = Message::Field::Date->new (zone => [+1, 9, 0]); |
my $date = Message::Field::Date->new (zone => [+1, 9, 0]); |
18 |
$date->unix_time (time); |
$date->unix_time (time); |
297 |
|
|
298 |
sub Send::SMTP::Connect (;%) { |
sub Send::SMTP::Connect (;%) { |
299 |
my %o = @_; |
my %o = @_; |
300 |
my $myname = $o{myname} || 'send.pl.'.$server{smtp}; |
my $myname = $o{myname} || &Message::Util::get_host_fqdn || 'send.pl.'.$server{smtp}; |
301 |
pmsg('connecting to '.$server{smtp}.':25...'); |
pmsg('connecting to '.$server{smtp}.':25...'); |
302 |
socket (SMTP, PF_INET, SOCK_STREAM, (getprotobyname('tcp'))[2]); |
socket (SMTP, PF_INET, SOCK_STREAM, (getprotobyname('tcp'))[2]); |
303 |
my $aton = inet_aton($server{smtp}); |
my $aton = inet_aton($server{smtp}); |