X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_signup%2Ffs_signup_server;h=0583887657188a7bbbdf3d99cb9d1c86e5df49cc;hb=fbd352236545ea466d41e67a4251202d4f148560;hp=5dfa0e88f1be0aee2bb9b96daf4c862e3b8623e1;hpb=5d1b7f1ec392d0c4a3c48c8fcd046f72c5d9b9b5;p=freeside.git diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index 5dfa0e88f..058388765 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -113,7 +113,7 @@ while (1) { # 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( @@ -165,7 +165,7 @@ while (1) { warn "[fs_signup_server] Sending results...\n" if $Debug; print $writer $error, "\n"; - if ( $conf->config('signup_server-realtime') ) { + if ( $conf->exists('signup_server-realtime') ) { my $bill_error = $cust_main->bill; warn "[fs_signup_server] error billing new customer: $bill_error" @@ -190,6 +190,7 @@ while (1) { #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 ( [