summaryrefslogtreecommitdiff
path: root/fs_signup/FS-SignupClient/fs_signupd
diff options
context:
space:
mode:
Diffstat (limited to 'fs_signup/FS-SignupClient/fs_signupd')
-rwxr-xr-xfs_signup/FS-SignupClient/fs_signupd10
1 files changed, 5 insertions, 5 deletions
diff --git a/fs_signup/FS-SignupClient/fs_signupd b/fs_signup/FS-SignupClient/fs_signupd
index f22ab15d4..8b3cdde53 100755
--- a/fs_signup/FS-SignupClient/fs_signupd
+++ b/fs_signup/FS-SignupClient/fs_signupd
@@ -116,16 +116,16 @@ for ( ; $paddr = accept(Client,Server); close Client) {
my(
$first, $last, $ss, $company, $address1, $address2, $city, $county,
$state, $zip, $country, $daytime, $night, $fax, $payby, $payinfo,
- $paydate, $payname, $invoicing_list, $pkgpart, $username, $password,
- $popnum,
- ) = map { scalar(<Client>) } ( 1 .. 23 );
+ $paydate, $payname, $invoicing_list, $referral_custnum,
+ $pkgpart, $username, $password, $popnum,
+ ) = map { scalar(<Client>) } ( 1 .. 24 );
warn "[fs_signupd] sending customer data to remote server...\n" if $Debug;
print
$first, $last, $ss, $company, $address1, $address2, $city, $county,
$state, $zip, $country, $daytime, $night, $fax, $payby, $payinfo,
- $paydate, $payname, $invoicing_list, $pkgpart, $username, $password,
- $popnum,
+ $paydate, $payname, $invoicing_list, $referral_custnum,
+ $pkgpart, $username, $password, $popnum,
;
warn "[fs_signupd] reading error from remote server...\n" if $Debug;