/[suikacvs]/messaging/manakai/lib/Message/MIME/Charset.pm
Suika

Diff of /messaging/manakai/lib/Message/MIME/Charset.pm

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

revision 1.4 by wakaba, Thu May 30 12:51:05 2002 UTC revision 1.5 by wakaba, Sat Jun 1 05:37:18 2002 UTC
# Line 33  $CHARSET{'us-ascii'} = { Line 33  $CHARSET{'us-ascii'} = {
33                    
34          encoder => sub { $_[1] },          encoder => sub { $_[1] },
35          decoder => sub { $_[1] },          decoder => sub { $_[1] },
36            
37            mime_text       => 1,
38  };  };
39    
40  $CHARSET{'iso-2022-int-1'} = {  $CHARSET{'iso-2022-int-1'} = {
# Line 40  $CHARSET{'iso-2022-int-1'} = { Line 42  $CHARSET{'iso-2022-int-1'} = {
42                    
43          encoder => sub { $_[1] },          encoder => sub { $_[1] },
44          decoder => sub { $_[1] },          decoder => sub { $_[1] },
45            
46            mime_text       => 1,
47  };  };
48    
49  $CHARSET{'unknown-8bit'} = {  $CHARSET{'unknown-8bit'} = {
# Line 83  sub make_charset ($%) { Line 87  sub make_charset ($%) {
87  sub encode ($$) {  sub encode ($$) {
88    my ($charset, $s) = (lc shift, shift);    my ($charset, $s) = (lc shift, shift);
89    if (ref $CHARSET{$charset}->{encoder}) {    if (ref $CHARSET{$charset}->{encoder}) {
90      return (&{$CHARSET{$charset}->{encoder}} ($charset, $s), 1);      return (&{$CHARSET{$charset}->{encoder}} ($charset, $s), success => 1);
91    }    }
92    ($s, 0);    ($s, success => 0);
93  }  }
94    
95  sub decode ($$) {  sub decode ($$) {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24