- warn "FS::Misc::send_email called with options:\n ".
- join("\n", map { " $_: ". $options{$_} } keys %options ). "\n"
- if $DEBUG;
+ if ( $DEBUG ) {
+ my %doptions = %options;
+ $doptions{'body'} = '(full body not shown in debug)';
+ warn "FS::Misc::send_email called with options:\n ". Dumper(\%doptions);
+# join("\n", map { " $_: ". $options{$_} } keys %options ). "\n"
+ }