diff options
author | ivan <ivan> | 2000-01-28 22:49:28 +0000 |
---|---|---|
committer | ivan <ivan> | 2000-01-28 22:49:28 +0000 |
commit | 5e39e2d7963d6f8304e5afb5d8b5f50aa6eaaf14 (patch) | |
tree | 44d33f11b35026ed97e02a6e3188c032ad0387f0 /fs_signup/FS-SignupClient/fs_signupd | |
parent | 7fa1271c9e0be6e154aa12d31466109407bb03b4 (diff) |
full phone number
Diffstat (limited to 'fs_signup/FS-SignupClient/fs_signupd')
-rwxr-xr-x | fs_signup/FS-SignupClient/fs_signupd | 3 |
1 files changed, 3 insertions, 0 deletions
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"; |