Tadashi Okoshi
slash****@users*****
2006年 1月 19日 (木) 18:26:57 JST
Index: affelio/lib/Affelio/NetLib/Email.pm
diff -u affelio/lib/Affelio/NetLib/Email.pm:1.10 affelio/lib/Affelio/NetLib/Email.pm:1.11
--- affelio/lib/Affelio/NetLib/Email.pm:1.10 Thu Jan 5 17:17:02 2006
+++ affelio/lib/Affelio/NetLib/Email.pm Thu Jan 19 18:26:57 2006
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: Email.pm,v 1.10 2006/01/05 08:17:02 higefuku Exp $
+# $Id: Email.pm,v 1.11 2006/01/19 09:26:57 slash5234 Exp $
package Affelio::NetLib::Email;
{
@@ -22,7 +22,7 @@
use lib("../../../extlib");
use Exporter;
use Jcode;
- use MIME::Base64::Perl;
+ use MIME::Base64;
use lib("../../../lib");
use Affelio::misc::Debug;
@Affelio::NetLib::Email::ISA = "Exporter";
@@ -43,19 +43,19 @@
my $boundary = "-*-*-*-*-*-*-*-*-Boundary_" . time . "_" . $$;
my $eol = "";
- my $subject_b = MIME::Base64::Perl::encode_base64($subject, $eol);
+ my $subject_b = MIME::Base64::encode_base64($subject, $eol);
$subject_b = "=?utf-8?B?" . $subject_b . "?=";
my $headers = "From: $from_name <$from_addr>\nMIME-Version: 1.0\n";
if ($attach ne "" && $filename ne ""){
- $filename = MIME::Base64::Perl::encode_base64($filename, $eol);
+ $filename = MIME::Base64::encode_base64($filename, $eol);
$filename = "=?utf-8?B?" . $filename . "?=";
- $attach = MIME::Base64::Perl::encode_base64($attach);
+ $attach = MIME::Base64::encode_base64($attach);
$headers .= "Content-Type: Multipart/Mixed; boundary=\"$boundary\"\n";
}else{
$headers .= "Content-Type: text/plain; charset=utf-8\n";
}
$headers .= "Content-Transfer-Encoding: base64\n";
- my $body_b = MIME::Base64::Perl::encode_base64($body);
+ my $body_b = MIME::Base64::encode_base64($body);
###########################################
Affelio::misc::Debug::debug_print("send_mail_ack: $sendmail_path -t\n");