projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
templates!!!
[freeside.git]
/
fs_signup
/
FS-SignupClient
/
SignupClient.pm
diff --git
a/fs_signup/FS-SignupClient/SignupClient.pm
b/fs_signup/FS-SignupClient/SignupClient.pm
index
d311846
..
5769c18
100644
(file)
--- a/
fs_signup/FS-SignupClient/SignupClient.pm
+++ b/
fs_signup/FS-SignupClient/SignupClient.pm
@@
-4,6
+4,7
@@
use strict;
use vars qw($VERSION @ISA @EXPORT_OK $fs_signupd_socket);
use Exporter;
use Socket;
use vars qw($VERSION @ISA @EXPORT_OK $fs_signupd_socket);
use Exporter;
use Socket;
+use FileHandle;
use IO::Handle;
$VERSION = '0.01';
use IO::Handle;
$VERSION = '0.01';
@@
-133,12
+134,14
@@
sub signup_info {
chop ( my $state = <SOCK> );
chop ( my $ac = <SOCK> );
chop ( my $exch = <SOCK> );
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,
{
'popnum' => $popnum,
'city' => $city,
'state' => $state,
'ac' => $ac,
'exch' => $exch,
+ 'loc' => $loc,
};
} 1 .. $n_svc_acct_pop;
};
} 1 .. $n_svc_acct_pop;
@@
-201,7
+204,7
@@
sub new_customer {
=head1 VERSION
=head1 VERSION
-$Id: SignupClient.pm,v 1.
1 1999-08-24 07:56:38
ivan Exp $
+$Id: SignupClient.pm,v 1.
3 2000-02-02 07:44:00
ivan Exp $
=head1 BUGS
=head1 BUGS