freeside/FS/FS Misc.pm,1.11,1.12
Ivan Kohler
ivan at pouncequick.420.am
Tue Jun 7 14:02:16 PDT 2005
Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv2054
Modified Files:
Misc.pm
Log Message:
debugging output change in send_email
Index: Misc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Misc.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Misc.pm 6 Jun 2005 19:54:22 -0000 1.11
+++ Misc.pm 7 Jun 2005 21:02:13 -0000 1.12
@@ -4,6 +4,7 @@
use vars qw ( @ISA @EXPORT_OK $DEBUG );
use Exporter;
use Carp;
+use Data::Dumper;
@ISA = qw( Exporter );
@EXPORT_OK = qw( send_email send_fax );
@@ -69,9 +70,12 @@
sub send_email {
my(%options) = @_;
- 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"
+ }
$ENV{MAILADDRESS} = $options{'from'};
my $to = ref($options{to}) ? join(', ', @{ $options{to} } ) : $options{to};
More information about the freeside-commits
mailing list