# common that are still here and library them.
my $cust_main = new FS::cust_main ( {
#'custnum' => '',
- 'agentnum' => $signup-data->{agentnum} || $agentnum,
+ 'agentnum' => $signup_data->{agentnum} || $agentnum,
'refnum' => $refnum,
map { $_ => $signup_data->{$_} } qw(
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;
}
}
- 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 ( [