diff options
| -rw-r--r-- | FS/FS/Misc.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm index 74f73a234..5dbb489ac 100644 --- a/FS/FS/Misc.pm +++ b/FS/FS/Misc.pm @@ -69,6 +69,9 @@ FS::UID->install_callback( sub { 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}; @@ -122,6 +125,8 @@ sub send_email { 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"; |