/[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.3 by wakaba, Sat Jul 27 04:56:38 2002 UTC
# Line 1  Line 1 
1  use strict;  use strict;
2  use vars qw($MYNAME $VERSION);  use vars qw($MYNAME $MYVERSION $VERSION);
3  $MYNAME = 'send.pl'; $VERSION = '2.4';  $MYNAME = 'send.pl';
4    $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
5    $MYVERSION = qq{2.5.$VERSION};
6  use lib qw(/home/wakaba/temp/msg/);  use lib qw(/home/wakaba/temp/msg/);
7  use Message::Entity;  use Message::Entity;
8  use Message::Field::Date;  use Message::Field::Date;
# Line 13  $server{smtp} ||= 'suika.fam.cx'; Line 15  $server{smtp} ||= 'suika.fam.cx';
15  $server{nntp} ||= 'suika.fam.cx';  $server{nntp} ||= 'suika.fam.cx';
16  my $debug_msg_log = 0;  my $debug_msg_log = 0;
17    
 my $myhostname = 'send-msg';  
   
18  open LOG, '>> send.slog';  binmode LOG;  open LOG, '>> send.slog';  binmode LOG;
19  my $date = Message::Field::Date->new (zone => [+1, 9, 0]);  my $date = Message::Field::Date->new (zone => [+1, 9, 0]);
20  $date->unix_time (time);  $date->unix_time (time);
# Line 123  for my $file (@files) { Line 123  for my $file (@files) {
123    }    }
124    #my $jv=do{my @r=($jcode::rcsid=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};    #my $jv=do{my @r=($jcode::rcsid=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
125    $ua->add ('jcode.pl' => ['',$jcode::rcsid]);    $ua->add ('jcode.pl' => ['',$jcode::rcsid]);
126    $ua->add ($MYNAME => $VERSION);    $ua->add ($MYNAME => $MYVERSION);
127        
128    $header->delete (qw(bcc date-received relay-version resent-bcc status x-envelope-from x-envelope-to xref));    $header->delete (qw(date-received relay-version status x-envelope-from x-envelope-to xref));
129      $header->option (field_sort => 'good-practice') unless $resent;
130        
131    my %sopt = (    my %sopt = (
132      -fill_date  => 0,   -fill_msgid     => 0,      -fill_date  => 0,   -fill_msgid     => 0,
# Line 299  sub smsg119 {pmsg('S119: '.shift,@_)} Line 300  sub smsg119 {pmsg('S119: '.shift,@_)}
300    
301  sub Send::SMTP::Connect (;%) {  sub Send::SMTP::Connect (;%) {
302    my %o = @_;    my %o = @_;
303    my $myname = $o{myname} || 'send.pl.'.$server{smtp};    my $myname = $o{myname} || &Message::Util::get_host_fqdn || 'send.pl.'.$server{smtp};
304    pmsg('connecting to '.$server{smtp}.':25...');    pmsg('connecting to '.$server{smtp}.':25...');
305      socket (SMTP, PF_INET, SOCK_STREAM, (getprotobyname('tcp'))[2]);      socket (SMTP, PF_INET, SOCK_STREAM, (getprotobyname('tcp'))[2]);
306      my $aton = inet_aton($server{smtp});      my $aton = inet_aton($server{smtp});
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24