Changeset 18392

Timestamp:

08/28/08 17:25:02 (4 months ago)

Author:

yappo

Message:

utef-16, whitespace8 に対応

Files:

• lang/perl/misc/WassrPod/wassrpod.pl (modified) (3 diffs)

lang/perl/misc/WassrPod/wassrpod.pl

@@ -158 +158 @@
         my $detect7 = decode('utf7', $text);
         $text .= " ($detect7)" unless $text eq $detect7;
+
+        do {
+            require Acme::Encode::WhiteSpace8;
+            $text = encode('utf8', $text);
+            $text =~ s{([ \001\002\003\004\005\006\007\010\011\013\014\016\017\020\021]{2,})}{
+                decode('whitespace-8', $1);
+            }ge;
+            $text = decode('utf8', $text);
+        };
+
         if ($status->{reply_user_login_id}) {
-            $text .= sprintf '[Re:%s/%s]', $status->{reply_user_login_id}, $status->{reply_message};
+            $text .= sprintf '[Re:%s/%s]', $status->{reply_user_login_id}, ($status->{reply_message} || '');
         }
         my $tmp = {
@@ -250 +260 @@
             $status = encode('utf7', decode('utf8', $args));
             $self->_update($ua, "$status encoding:utf7", $source);
+        } elsif ($cmd eq '16') {
+            $status = encode('utf16', decode('utf8', $args));
+            $self->_update($ua, "$status encoding:utf16", $source);
+        } elsif ($cmd eq '32') {
+            $status = encode('utf32', decode('utf8', $args));
+            $self->_update($ua, "$status encoding:utf32", $source);
         } elsif ($cmd eq '932') {
             $status = encode('cp932', decode('utf8', $args));
             $self->_update($ua, "$status encoding:cp932", $source);
+        } elsif ($cmd eq 'WS') {
+            require Acme::Encode::WhiteSpace8;
+            $status = encode('whitespace-8', decode('utf8', $args));
+            $self->_update($ua, $status . 'encoding:whitespace8', $source);
         }
     } else {
@@ -261 +281 @@
 sub _update {
     my($self, $ua, $status, $source) = @_;
+
     my $data = {
         status => $status,