Tatsuki SUGIURA
sugi****@users*****
2006年 8月 3日 (木) 18:02:50 JST
SRADIndex: slashjp/Slash/Custom/Bulkmail/Bulkmail.pm
diff -u slashjp/Slash/Custom/Bulkmail/Bulkmail.pm:1.3 slashjp/Slash/Custom/Bulkmail/Bulkmail.pm:1.4
--- slashjp/Slash/Custom/Bulkmail/Bulkmail.pm:1.3 Mon Jul 24 17:43:57 2006
+++ slashjp/Slash/Custom/Bulkmail/Bulkmail.pm Thu Aug 3 18:02:50 2006
@@ -9,6 +9,7 @@
use Socket;
use Carp 'cluck';
use 5.004;
+use Slash::Utility::Environment;
use strict;
@@ -1182,6 +1183,7 @@
sub build_envelope {
my $self = shift || undef;
my $email = shift || undef;
+ my $constants = getCurrentStatic();
#print map {"EMAIL HASH KEYS: ($_): " . $email->{$_} . "\n"} keys %$email;
$email = ref $email eq "HASH" ? $email->{"BULK_EMAIL"} : $email;
#print "CONNECTING\n";