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

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

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

revision 1.2 by wakaba, Sat Jun 29 09:31:46 2002 UTC revision 1.3 by wakaba, Mon Jul 22 02:42:17 2002 UTC
# Line 91  some options as parameters to the constr Line 91  some options as parameters to the constr
91  sub _decode_parameters ($\@\%) {  sub _decode_parameters ($\@\%) {
92    my $self = shift;    my $self = shift;
93    my ($param, $option) = @_;    my ($param, $option) = @_;
94      my @a;
95    if ($param->[0]->{no_value} && $param->[0]->{charset} eq '*bare') {    if ($param->[0]->{no_value} && $param->[0]->{charset} eq '*bare') {
96        ## first item doesn't have value and is not a quoted-string itself,
97      my $name = shift (@$param)->{attribute};      my $name = shift (@$param)->{attribute};
98      my $from = '';      my $from = '';
99      if ($name =~ m#^((?:$REG{quoted_string}|[^\x22\x2F])+)/((?:$REG{quoted_string}|[^\x22])+)$#) {      if ($name =~ m#^((?:$REG{quoted_string}|[^\x22\x2F])+)/((?:$REG{quoted_string}|[^\x22])+)$#) {
# Line 104  sub _decode_parameters ($\@\%) { Line 106  sub _decode_parameters ($\@\%) {
106      $from =~ s/^$REG{WSP}+//; $from =~ s/$REG{WSP}+$//;      $from =~ s/^$REG{WSP}+//; $from =~ s/$REG{WSP}+$//;
107      $from = Message::Util::decode_quoted_string ($self, $from) if length $from;      $from = Message::Util::decode_quoted_string ($self, $from) if length $from;
108      if (length $from) {      if (length $from) {
109        push @$param, {attribute => 'of', value => $from};        push @a, {attribute => 'of', value => $from};
110      }      }
111    } elsif ($param->[0]->{no_value}) {   ## was A quoted-string    } elsif ($param->[0]->{no_value}) {   ## was A quoted-string
112      my %s = &{$option->{hook_decode_string}}      my %s = &{$option->{hook_decode_string}}
# Line 112  sub _decode_parameters ($\@\%) { Line 114  sub _decode_parameters ($\@\%) {
114      $self->{value} = $s{value};      $self->{value} = $s{value};
115    }    }
116    $self->SUPER::_decode_parameters ($param, $option);    $self->SUPER::_decode_parameters ($param, $option);
117      push @$param, @a;
118  }  }
119    
120  =back  =back
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24