X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_signup%2Ffs_signup_server;h=4abdafc46a094422442f6c9d2c1b67eef8bf6dc4;hb=4fefe9352f9da1e1dc42e4107fcab6a33ebf9d00;hp=69a07f9c7a4d9bd128a1844bf886ed0306027948;hpb=6565b17f2bc8bff541854ad80578c502fd52134a;p=freeside.git diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index 69a07f9c7..4abdafc46 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -165,8 +165,12 @@ while (1) { warn "[fs_signup_server] Sending results...\n" if $Debug; print $writer $error, "\n"; - if ( $conf->config('signup_server-realtime') ) { - + next if $error; + + if ( $conf->exists('signup_server-realtime') ) { + + warn "[fs_signup_server] Billing customer...\n" if $Debug; + my $bill_error = $cust_main->bill; warn "[fs_signup_server] error billing new customer: $bill_error" if $bill_error; @@ -184,12 +188,13 @@ while (1) { } } - if ( $error && $conf->config('signup_server-email') ) { + if ( $conf->config('signup_server-email') ) { warn "[fs_signup_server] Sending email...\n" if $Debug; #false laziness w/FS::cust_bill::send & FS::cust_pay::delete use Mail::Header; use Mail::Internet; + use Date::Format; my $from = $conf->config('invoice_from'); #??? as good as any $ENV{MAILADDRESS} = $from; my $header = new Mail::Header ( [