projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
38887a1
)
some additional warnings
author
ivan
<ivan>
Mon, 6 Jun 2005 19:54:22 +0000
(19:54 +0000)
committer
ivan
<ivan>
Mon, 6 Jun 2005 19:54:22 +0000
(19:54 +0000)
FS/FS/Misc.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Misc.pm
b/FS/FS/Misc.pm
index
74f73a2
..
5dbb489
100644
(file)
--- a/
FS/FS/Misc.pm
+++ b/
FS/FS/Misc.pm
@@
-69,6
+69,9
@@
FS::UID->install_callback( sub {
sub send_email {
my(%options) = @_;
sub send_email {
my(%options) = @_;
+ warn "FS::Misc::send_email called with options:\n ".
+ join("\n", map { " $_: ". $options{$_} } keys %options ). "\n"
+ if $DEBUG;
$ENV{MAILADDRESS} = $options{'from'};
my $to = ref($options{to}) ? join(', ', @{ $options{to} } ) : $options{to};
$ENV{MAILADDRESS} = $options{'from'};
my $to = ref($options{to}) ? join(', ', @{ $options{to} } ) : $options{to};
@@
-122,6
+125,8
@@
sub send_email {
if ( $options{'from'} =~ /\@([\w\.\-]+)/ ) {
$domain = $1;
} else {
if ( $options{'from'} =~ /\@([\w\.\-]+)/ ) {
$domain = $1;
} else {
+ warn 'no domain found in invoice from address '. $options{'from'}.
+ '; constructing Message-ID @example.com';
$domain = 'example.com';
}
my $message_id = join('.', rand()*(2**32), $$, time). "\@$domain";
$domain = 'example.com';
}
my $message_id = join('.', rand()*(2**32), $$, time). "\@$domain";