[Affelio-cvs 251] CVS update: affelio/lib/Affelio/App/Admin

Back to archive index

Tadashi Okoshi slash****@users*****
2005年 6月 28日 (火) 23:07:21 JST


Index: affelio/lib/Affelio/App/Admin/Messaging.pm
diff -u affelio/lib/Affelio/App/Admin/Messaging.pm:1.8 affelio/lib/Affelio/App/Admin/Messaging.pm:1.9
--- affelio/lib/Affelio/App/Admin/Messaging.pm:1.8	Tue Jun 28 21:32:23 2005
+++ affelio/lib/Affelio/App/Admin/Messaging.pm	Tue Jun 28 23:07:21 2005
@@ -4,7 +4,7 @@
 #    http://affelio.jp/ (Japan)
 #    http://affelio.jp/ (USA and other area)
 #
-# $Id: Messaging.pm,v 1.8 2005/06/28 12:32:23 slash5234 Exp $
+# $Id: Messaging.pm,v 1.9 2005/06/28 14:07:21 slash5234 Exp $
 
 package Affelio::App::Admin::Messaging;
 {
@@ -12,6 +12,7 @@
 
     use lib("../../../../extlib/");
     use Error qw(:try);
+    use MIME::Base64::Perl;
     use lib("../../../");
     use Affelio;
     use Affelio::misc::CGIError;
@@ -171,6 +172,10 @@
 	my @message= $af->{mesgm}->retrieve_message($mid);
 	my ($msg_mid, $msg_timestamp, $msg_title, $msg_type,
 	    $msg_from, $msg_body, $msg_readflag) = @message;
+
+	if($msg_type=~ /Encode\-Base64/){
+	    $msg_body = decode_base64($msg_body);
+	}
 	debug_print("show_message: $msg_from $msg_title $msg_type $msg_body");
 
 	$msg_timestamp = timestamp2string($msg_timestamp);


Affelio-cvs メーリングリストの案内
Back to archive index