Tadashi Okoshi
slash****@users*****
2005年 11月 18日 (金) 20:06:21 JST
Index: affelio/lib/Affelio/NetLib/Email.pm
diff -u affelio/lib/Affelio/NetLib/Email.pm:1.6 affelio/lib/Affelio/NetLib/Email.pm:1.7
--- affelio/lib/Affelio/NetLib/Email.pm:1.6 Fri Nov 18 19:59:46 2005
+++ affelio/lib/Affelio/NetLib/Email.pm Fri Nov 18 20:06:21 2005
@@ -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.6 2005/11/18 10:59:46 slash5234 Exp $
+# $Id: Email.pm,v 1.7 2005/11/18 11:06:21 slash5234 Exp $
package Affelio::NetLib::Email;
{
@@ -32,7 +32,7 @@
#send_email
########################################################################
sub send_email{
- my $af = shift;
+ my $sendmail_path = shift;
my $from = shift;
my $to = shift;
my $subject = shift;
@@ -45,9 +45,9 @@
my $body_b = MIME::Base64::Perl::encode_base64($body);
###########################################
- Affelio::misc::Debug::debug_print("send_mail_ack: $af->{cmd__sendmail} -t\n");
+ Affelio::misc::Debug::debug_print("send_mail_ack: $sendmail_path -t\n");
#Sendmail
- open(MAIL, " | $af->{cmd__sendmail} -tf $from ");
+ open(MAIL, " | $sendmail_path -tf $from ");
print MAIL $headers;
print MAIL "To: $to\n";
print MAIL "From: $from\n";