/[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.2 by wakaba, Fri Jul 26 06:38:53 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 121  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,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24