customer-to-customer referrals in singup server

[freeside.git] / fs_signup / FS-SignupClient / fs_signupd

diff --git a/fs_signup/FS-SignupClient/fs_signupd b/fs_signup/FS-SignupClient/fs_signupd
index 972e3c7..8b3cdde 100755 (executable)
--- a/fs_signup/FS-SignupClient/fs_signupd
+++ b/fs_signup/FS-SignupClient/fs_signupd
@@ -57,12 +57,14 @@ my @svc_acct_pop = map {
   chomp( my $state = <STDIN> );
   chomp( my $ac = <STDIN> );
   chomp( my $exch = <STDIN> );
+  chomp( my $loc = <STDIN> );
   {
     'popnum' => $popnum,
     'city'   => $city,
     'state'  => $state,
     'ac'     => $ac,
     'exch'   => $exch,
+    'loc'    => $loc,
   };
 } ( 1 .. $n_svc_acct_pop );
 
@@ -105,6 +107,7 @@ for ( ; $paddr = accept(Client,Server); close Client) {
         $_->{state},
         $_->{ac},
         $_->{exch},
+        $_->{loc},
       } @svc_acct_pop
     ), "\n";
 
@@ -113,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;