diff options
Diffstat (limited to 'fs_signup/FS-SignupClient')
| -rw-r--r-- | fs_signup/FS-SignupClient/SignupClient.pm | 4 | ||||
| -rwxr-xr-x | fs_signup/FS-SignupClient/fs_signupd | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm index d3118467b..7c96609f6 100644 --- a/fs_signup/FS-SignupClient/SignupClient.pm +++ b/fs_signup/FS-SignupClient/SignupClient.pm @@ -133,12 +133,14 @@ sub signup_info { chop ( my $state = <SOCK> ); chop ( my $ac = <SOCK> ); chop ( my $exch = <SOCK> ); + chop ( my $loc = <SOCK> ); { 'popnum' => $popnum, 'city' => $city, 'state' => $state, 'ac' => $ac, 'exch' => $exch, + 'loc' => $loc, }; } 1 .. $n_svc_acct_pop; @@ -201,7 +203,7 @@ sub new_customer { =head1 VERSION -$Id: SignupClient.pm,v 1.1 1999-08-24 07:56:38 ivan Exp $ +$Id: SignupClient.pm,v 1.2 2000-01-28 22:49:28 ivan Exp $ =head1 BUGS diff --git a/fs_signup/FS-SignupClient/fs_signupd b/fs_signup/FS-SignupClient/fs_signupd index 972e3c7b4..f22ab15d4 100755 --- 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"; |