/[suikacvs]/messaging/manakai/lib/Message/Field/MsgID.pm
Suika

Diff of /messaging/manakai/lib/Message/Field/MsgID.pm

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

revision 1.5 by wakaba, Tue May 14 13:42:40 2002 UTC revision 1.6 by wakaba, Sun Jun 9 11:08:28 2002 UTC
# Line 52  sub _init ($;%) { Line 52  sub _init ($;%) {
52      #hook_decode_string      #hook_decode_string
53      -software_name      => 'MFMpm',      -software_name      => 'MFMpm',
54      -software_name_hash => '%none',      -software_name_hash => '%none',
55      -validate   => 1,      -validate   => 0,
56    );    );
57    $self->SUPER::_init (%DEFAULT, %options);    $self->SUPER::_init (%DEFAULT, %options);
58  }  }
# Line 81  sub new ($;%) { Line 81  sub new ($;%) {
81  sub parse ($;$%) {  sub parse ($;$%) {
82    my $class = shift;    my $class = shift;
83    my $self = bless {}, $class;    my $self = bless {}, $class;
84    my ($body, @c) = $self->Message::Util::delete_comment_to_array (shift);    my $body = shift;  my @c;
85    $self->_init (@_);    $self->_init (@_);
86      ($body, @c) = $self->Message::Util::delete_comment_to_array ($body);
87        
88    $body = Message::Util::remove_wsp ($body);    $body = Message::Util::remove_wsp ($body);
89    if ($body =~ /$REG{M_addr_spec}/) {    if ($body =~ /$REG{M_addr_spec}/) {
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24