/[suikacvs]/messaging/manakai/doc/example/sendmsg/send-msg.pl
Suika

Diff of /messaging/manakai/doc/example/sendmsg/send-msg.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Fri Jul 26 06:25:30 2002 UTC revision 1.2 by wakaba, Fri Jul 26 06:38:53 2002 UTC
# Line 13  $server{smtp} ||= 'suika.fam.cx'; Line 13  $server{smtp} ||= 'suika.fam.cx';
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);
# Line 299  sub smsg119 {pmsg('S119: '.shift,@_)} Line 297  sub smsg119 {pmsg('S119: '.shift,@_)}
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});

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24