use vars qw($VERSION @ISA @EXPORT_OK $fs_signupd_socket);
use Exporter;
use Socket;
+use FileHandle;
use IO::Handle;
-$VERSION = '0.01';
+$VERSION = '0.02';
@ISA = qw( Exporter );
@EXPORT_OK = qw( signup_info new_customer );
( $locales, $packages, $pops ) = signup_info;
$error = new_customer ( {
- 'first' => $first,
- 'last' => $last,
- 'ss' => $ss,
- 'comapny' => $company,
- 'address1' => $address1,
- 'address2' => $address2,
- 'city' => $city,
- 'county' => $county,
- 'state' => $state,
- 'zip' => $zip,
- 'country' => $country,
- 'daytime' => $daytime,
- 'night' => $night,
- 'fax' => $fax,
- 'payby' => $payby,
- 'payinfo' => $payinfo,
- 'paydate' => $paydate,
- 'payname' => $payname,
- 'invoicing_list' => $invoicing_list,
- 'pkgpart' => $pkgpart,
- 'username' => $username,
- '_password' => $password,
- 'popnum' => $popnum,
+ 'first' => $first,
+ 'last' => $last,
+ 'ss' => $ss,
+ 'comapny' => $company,
+ 'address1' => $address1,
+ 'address2' => $address2,
+ 'city' => $city,
+ 'county' => $county,
+ 'state' => $state,
+ 'zip' => $zip,
+ 'country' => $country,
+ 'daytime' => $daytime,
+ 'night' => $night,
+ 'fax' => $fax,
+ 'payby' => $payby,
+ 'payinfo' => $payinfo,
+ 'paydate' => $paydate,
+ 'payname' => $payname,
+ 'invoicing_list' => $invoicing_list,
+ 'referral_custnum' => $referral_custnum,
+ 'pkgpart' => $pkgpart,
+ 'username' => $username,
+ '_password' => $password,
+ 'popnum' => $popnum,
} );
=head1 DESCRIPTION
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;
paydate
payname
invoicing_list
+ referral_custnum
pkgpart
username
_password
sub new_customer {
my $hashref = shift;
+ #things that aren't necessary in base class, but are for signup server
+ return "Empty password" unless $hashref->{'_password'};
+ return "No POP selected" unless $hashref->{'popnum'};
+
socket(SOCK, PF_UNIX, SOCK_STREAM, 0) or die "socket: $!";
connect(SOCK, sockaddr_un($fs_signupd_socket)) or die "connect: $!";
print SOCK "new_customer\n";
print SOCK join("\n", map { $hashref->{$_} } qw(
first last ss company address1 address2 city county state zip country
daytime night fax payby payinfo paydate payname invoicing_list
- pkgpart username _password popnum
+ referral_custnum pkgpart username _password popnum
) ), "\n";
SOCK->flush;
=back
-=head1 VERSION
-
-$Id: SignupClient.pm,v 1.1 1999-08-24 07:56:38 ivan Exp $
-
=head1 BUGS
=head1 SEE ALSO