summaryrefslogtreecommitdiff
path: root/fs_signup/FS-SignupClient/SignupClient.pm
diff options
context:
space:
mode:
Diffstat (limited to 'fs_signup/FS-SignupClient/SignupClient.pm')
-rw-r--r--fs_signup/FS-SignupClient/SignupClient.pm162
1 files changed, 0 insertions, 162 deletions
diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm
deleted file mode 100644
index fb2b12f..0000000
--- a/fs_signup/FS-SignupClient/SignupClient.pm
+++ /dev/null
@@ -1,162 +0,0 @@
-package FS::SignupClient;
-
-use strict;
-use vars qw($VERSION @ISA @EXPORT_OK); # $fs_signupd_socket);
-use Exporter;
-#use Socket;
-#use FileHandle;
-#use IO::Handle;
-#use Storable qw(nstore_fd fd_retrieve);
-use FS::SelfService; # qw( new_customer signup_info );
-
-$VERSION = '0.04';
-
-@ISA = qw( Exporter );
-@EXPORT_OK = qw( signup_info new_customer );
-
-=head1 NAME
-
-FS::SignupClient - Freeside signup client API
-
-=head1 SYNOPSIS
-
- use FS::SignupClient qw( signup_info new_customer );
-
- #this is the backwards-compatibility bit
- ( $locales, $packages, $pops, $real_signup_info ) = signup_info;
-
- #this is compatible with FS::SelfService::new_customer
- $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,
- 'paycvv' => $paycvv,
- 'paydate' => $paydate,
- 'payname' => $payname,
- 'invoicing_list' => $invoicing_list,
- 'referral_custnum' => $referral_custnum,
- 'comments' => $comments,
- 'pkgpart' => $pkgpart,
- 'username' => $username,
- '_password' => $password,
- 'sec_phrase' => $sec_phrase,
- 'popnum' => $popnum,
- 'agentnum' => $agentnum, #optional
- } );
-
-=head1 DESCRIPTION
-
-This module provides an API for a remote signup server.
-
-It needs to be run as the freeside user. Because of this, the program which
-calls these subroutines should be written very carefully.
-
-=head1 SUBROUTINES
-
-=over 4
-
-=item signup_info
-
-Returns three array references of hash references.
-
-The first set of hash references is of allowable locales. Each hash reference
-has the following keys:
- taxnum
- state
- county
- country
-
-The second set of hash references is of allowable packages. Each hash
-reference has the following keys:
- pkgpart
- pkg
-
-The third set of hash references is of allowable POPs (Points Of Presence).
-Each hash reference has the following keys:
- popnum
- city
- state
- ac
- exch
-
-(Future expansion: fourth argument is the $init_data hash reference)
-
-=cut
-
-#compatibility bit
-sub signup_info {
-
- my $init_data = FS::SelfService::signup_info();
-
- (map { $init_data->{$_} } qw( cust_main_county part_pkg svc_acct_pop ) ),
- $init_data;
-
-}
-
-=item new_customer HASHREF
-
-Adds a customer to the remote Freeside system. Requires a hash reference as
-a paramater with the following keys:
- first
- last
- ss
- comapny
- address1
- address2
- city
- county
- state
- zip
- country
- daytime
- night
- fax
- payby
- payinfo
- paycvv
- paydate
- payname
- invoicing_list
- referral_custnum
- comments
- pkgpart
- username
- _password
- sec_phrase
- popnum
-
-Returns a scalar error message, or the empty string for success.
-
-=cut
-
-#compatibility bit
-sub new_customer {
- my $hash = FS::SelfService::new_customer(@_);
- $hash->{'error'};
-}
-
-=back
-
-=head1 BUGS
-
-=head1 SEE ALSO
-
-L<fs_signupd>, L<FS::cust_main>
-
-=cut
-
-1;
-