diff options
Diffstat (limited to 'FS/FS/ClientAPI/Signup.pm')
-rw-r--r-- | FS/FS/ClientAPI/Signup.pm | 514 |
1 files changed, 0 insertions, 514 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm deleted file mode 100644 index 61325b9..0000000 --- a/FS/FS/ClientAPI/Signup.pm +++ /dev/null @@ -1,514 +0,0 @@ -package FS::ClientAPI::Signup; - -use strict; -use vars qw($DEBUG $me); -use Data::Dumper; -use Tie::RefHash; -use FS::Conf; -use FS::Record qw(qsearch qsearchs dbdef); -use FS::Msgcat qw(gettext); -use FS::Misc qw(card_types); -use FS::ClientAPI_SessionCache; -use FS::agent; -use FS::cust_main_county; -use FS::part_pkg; -use FS::svc_acct_pop; -use FS::cust_main; -use FS::cust_pkg; -use FS::svc_acct; -use FS::acct_snarf; -use FS::queue; -use FS::reg_code; - -$DEBUG = 0; -$me = '[FS::ClientAPI::Signup]'; - -sub signup_info { - my $packet = shift; - - warn "$me signup_info called on $packet\n" if $DEBUG; - - my $conf = new FS::Conf; - - my $cache = new FS::ClientAPI_SessionCache( { - 'namespace' => 'FS::ClientAPI::Signup', - } ); - my $signup_info_cache = $cache->get('signup_info_cache'); - - if ( $signup_info_cache ) { - - warn "$me loading cached signup info\n" if $DEBUG > 1; - - } else { - - warn "$me populating signup info cache\n" if $DEBUG > 1; - - my $agentnum2part_pkg = - { - map { - my $href = $_->pkgpart_hashref; - $_->agentnum => - [ - map { { 'payby' => [ $_->payby ], - 'freq_pretty' => $_->freq_pretty, - 'options' => { $_->options }, - %{$_->hashref} - } } - grep { $_->svcpart('svc_acct') && $href->{ $_->pkgpart } } - qsearch( 'part_pkg', { 'disabled' => '' } ) - ]; - } qsearch('agent', { 'disabled' => '' }) - }; - - my $msgcat = { map { $_=>gettext($_) } - qw( passwords_dont_match invalid_card unknown_card_type - not_a empty_password illegal_or_empty_text ) - }; - warn "msgcat: ". Dumper($msgcat). "\n" if $DEBUG > 2; - - my $label = { map { $_ => FS::Msgcat::_gettext($_) } - qw( stateid stateid_state ) - }; - warn "label: ". Dumper($label). "\n" if $DEBUG > 2; - - $signup_info_cache = { - 'cust_main_county' => [ map $_->hashref, - qsearch('cust_main_county', {} ) - ], - - 'agent' => [ map $_->hashref, - qsearch('agent', { 'disabled' => '' } ) - ], - - 'part_referral' => [ map $_->hashref, - qsearch('part_referral', { 'disabled' => '' } ) - ], - - 'agentnum2part_pkg' => $agentnum2part_pkg, - - 'svc_acct_pop' => [ map $_->hashref, qsearch('svc_acct_pop',{} ) ], - - 'emailinvoiceonly' => $conf->exists('emailinvoiceonly'), - - 'security_phrase' => $conf->exists('security_phrase'), - - 'payby' => [ $conf->config('signup_server-payby') ], - - 'card_types' => card_types(), - - 'paytypes' => [ @FS::cust_main::paytypes ], - - 'cvv_enabled' => 1, - - 'stateid_enabled' => $conf->exists('show_stateid'), - - 'paystate_enabled' => $conf->exists('show_bankstate'), - - 'ship_enabled' => 1, - - 'msgcat' => $msgcat, - - 'label' => $label, - - 'statedefault' => scalar($conf->config('statedefault')) || 'CA', - - 'countrydefault' => scalar($conf->config('countrydefault')) || 'US', - - 'refnum' => scalar($conf->config('signup_server-default_refnum')), - - 'default_pkgpart' => scalar($conf->config('signup_server-default_pkgpart')), - - }; - - $cache->set('signup_info_cache', $signup_info_cache); - - } - - my $signup_info = { %$signup_info_cache }; - warn "$me signup info loaded\n" if $DEBUG > 1; - warn Dumper($signup_info). "\n" if $DEBUG > 2; - - my @addl = qw( signup_server-classnum2 signup_server-classnum3 ); - - if ( grep { $conf->exists($_) } @addl ) { - - $signup_info->{optional_packages} = []; - - foreach my $addl ( @addl ) { - - warn "$me adding optional package info\n" if $DEBUG > 1; - - my $classnum = $conf->config($addl) or next; - - my @pkgs = map { { - 'freq_pretty' => $_->freq_pretty, - 'options' => { $_->options }, - %{ $_->hashref } - }; - } - qsearch( 'part_pkg', { classnum => $classnum } ); - - push @{$signup_info->{optional_packages}}, \@pkgs; - - warn "$me done adding opt. package info for $classnum\n" if $DEBUG > 1; - - } - - } - - my $agentnum = $packet->{'agentnum'} - || $conf->config('signup_server-default_agentnum'); - $agentnum =~ /^(\d*)$/ or die "illegal agentnum"; - $agentnum = $1; - - my $session = ''; - if ( exists $packet->{'session_id'} ) { - - warn "$me loading agent session\n" if $DEBUG > 1; - my $cache = new FS::ClientAPI_SessionCache( { - 'namespace' => 'FS::ClientAPI::Agent', - } ); - $session = $cache->get($packet->{'session_id'}); - if ( $session ) { - $agentnum = $session->{'agentnum'}; - } else { - return { 'error' => "Can't resume session" }; #better error message - } - warn "$me done loading agent session\n" if $DEBUG > 1; - - } elsif ( exists $packet->{'customer_session_id'} ) { - - warn "$me loading customer session\n" if $DEBUG > 1; - my $cache = new FS::ClientAPI_SessionCache( { - 'namespace' => 'FS::ClientAPI::MyAccount', - } ); - $session = $cache->get($packet->{'customer_session_id'}); - if ( $session ) { - my $custnum = $session->{'custnum'}; - my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum }); - return { 'error' => "Can't find your customer record" } unless $cust_main; - $agentnum = $cust_main->agentnum; - } else { - return { 'error' => "Can't resume session" }; #better error message - } - warn "$me done loading customer session\n" if $DEBUG > 1; - - } - - $signup_info->{'part_pkg'} = []; - - if ( $packet->{'reg_code'} ) { - - warn "$me setting package list via reg_code\n" if $DEBUG > 1; - - $signup_info->{'part_pkg'} = - [ map { { 'payby' => [ $_->payby ], - 'freq_pretty' => $_->freq_pretty, - 'options' => { $_->options }, - %{$_->hashref} - }; - } - grep { $_->svcpart('svc_acct') } - map { $_->part_pkg } - qsearchs( 'reg_code', { 'code' => $packet->{'reg_code'}, - 'agentnum' => $agentnum, } ) - - ]; - - $signup_info->{'error'} = 'Unknown registration code' - unless @{ $signup_info->{'part_pkg'} }; - - warn "$me done setting package list via reg_code\n" if $DEBUG > 1; - - } elsif ( $packet->{'promo_code'} ) { - - warn "$me setting package list via promo_code\n" if $DEBUG > 1; - - $signup_info->{'part_pkg'} = - [ map { { 'payby' => [ $_->payby ], - 'freq_pretty' => $_->freq_pretty, - 'options' => { $_->options }, - %{$_->hashref} - } } - grep { $_->svcpart('svc_acct') } - qsearch( 'part_pkg', { 'promo_code' => { - op=>'ILIKE', - value=>$packet->{'promo_code'} - }, - 'disabled' => '', } ) - ]; - - $signup_info->{'error'} = 'Unknown promotional code' - unless @{ $signup_info->{'part_pkg'} }; - - warn "$me done setting package list via promo_code\n" if $DEBUG > 1; - } - - if ( $agentnum ) { - - warn "$me setting agent-specific package list\n" if $DEBUG > 1; - $signup_info->{'part_pkg'} = $signup_info->{'agentnum2part_pkg'}{$agentnum} - unless @{ $signup_info->{'part_pkg'} }; - warn "$me done setting agent-specific package list\n" if $DEBUG > 1; - - warn "$me setting agent-specific adv. source list\n" if $DEBUG > 1; - $signup_info->{'part_referral'} = - [ - map { $_->hashref } - qsearch( { - 'table' => 'part_referral', - 'hashref' => { 'disabled' => '' }, - 'extra_sql' => "AND ( agentnum = $agentnum ". - " OR agentnum IS NULL ) ", - }, - ) - ]; - warn "$me done setting agent-specific adv. source list\n" if $DEBUG > 1; - - } - # else { - # delete $signup_info->{'part_pkg'}; - #} - - warn "$me sorting package list\n" if $DEBUG > 1; - $signup_info->{'part_pkg'} = [ sort { $a->{pkg} cmp $b->{pkg} } # case? - @{ $signup_info->{'part_pkg'} } - ]; - warn "$me done sorting package list\n" if $DEBUG > 1; - - if ( exists $packet->{'session_id'} ) { - my $agent_signup_info = { %$signup_info }; - delete $agent_signup_info->{agentnum2part_pkg}; - $agent_signup_info->{'agent'} = $session->{'agent'}; - $agent_signup_info; - } else { - $signup_info; - } - -} - -sub domain_select_hash { - my $packet = shift; - - my $response = {}; - - if ($packet->{pkgpart}) { - my $part_pkg = qsearchs('part_pkg' => { 'pkgpart' => $packet->{pkgpart} } ); - #$packet->{svcpart} = $part_pkg->svcpart('svc_acct') - $packet->{svcpart} = $part_pkg->svcpart - if $part_pkg; - } - - if ($packet->{svcpart}) { - my $part_svc = qsearchs('part_svc' => { 'svcpart' => $packet->{svcpart} } ); - $response->{'domsvc'} = $part_svc->part_svc_column('domsvc')->columnvalue - if ($part_svc && $part_svc->part_svc_column('domsvc')->columnflag eq 'D'); - } - - $response->{'domains'} - = { domain_select_hash FS::svc_acct( map { $_ => $packet->{$_} } - qw(svcpart pkgnum) - ) }; - - $response; -} - -sub new_customer { - my $packet = shift; - - my $conf = new FS::Conf; - - #things that aren't necessary in base class, but are for signup server - #return "Passwords don't match" - # if $hashref->{'_password'} ne $hashref->{'_password2'} - return { 'error' => gettext('empty_password') } - unless length($packet->{'_password'}); - # a bit inefficient for large numbers of pops - return { 'error' => gettext('no_access_number_selected') } - unless $packet->{'popnum'} || !scalar(qsearch('svc_acct_pop',{} )); - - my $agentnum; - if ( exists $packet->{'session_id'} ) { - my $cache = new FS::ClientAPI_SessionCache( { - 'namespace' => 'FS::ClientAPI::Agent', - } ); - my $session = $cache->get($packet->{'session_id'}); - if ( $session ) { - $agentnum = $session->{'agentnum'}; - } else { - return { 'error' => "Can't resume session" }; #better error message - } - } else { - $agentnum = $packet->{agentnum} - || $conf->config('signup_server-default_agentnum'); - } - - #shares some stuff with htdocs/edit/process/cust_main.cgi... take any - # common that are still here and library them. - my $cust_main = new FS::cust_main ( { - #'custnum' => '', - 'agentnum' => $agentnum, - 'refnum' => $packet->{refnum} - || $conf->config('signup_server-default_refnum'), - - map { $_ => $packet->{$_} } qw( - - last first ss company address1 address2 - city county state zip country - daytime night fax stateid stateid_state - - ship_last ship_first ship_ss ship_company ship_address1 ship_address2 - ship_city ship_county ship_state ship_zip ship_country - ship_daytime ship_night ship_fax - - payby - payinfo paycvv paydate payname paystate paytype - paystart_month paystart_year payissue - payip - - referral_custnum comments - ) - - } ); - - return { 'error' => "Illegal payment type" } - unless grep { $_ eq $packet->{'payby'} } - $conf->config('signup_server-payby'); - - $cust_main->payinfo($cust_main->daytime) - if $cust_main->payby eq 'LECB' && ! $cust_main->payinfo; - - my @invoicing_list = $packet->{'invoicing_list'} - ? split( /\s*\,\s*/, $packet->{'invoicing_list'} ) - : (); - - $packet->{'pkgpart'} =~ /^(\d+)$/ or '' =~ /^()$/; - my $pkgpart = $1; - return { 'error' => 'Please select a package' } unless $pkgpart; #msgcat - - my $part_pkg = - qsearchs( 'part_pkg', { 'pkgpart' => $pkgpart } ) - or return { 'error' => "WARNING: unknown pkgpart: $pkgpart" }; - my $svcpart = $part_pkg->svcpart('svc_acct'); - - my $reg_code = ''; - if ( $packet->{'reg_code'} ) { - $reg_code = qsearchs( 'reg_code', { 'code' => $packet->{'reg_code'}, - 'agentnum' => $agentnum, } ) - or return { 'error' => 'Unknown registration code' }; - } - - my $cust_pkg = new FS::cust_pkg ( { - #later#'custnum' => $custnum, - 'pkgpart' => $packet->{'pkgpart'}, - 'promo_code' => $packet->{'promo_code'}, - 'reg_code' => $packet->{'reg_code'}, - } ); - #my $error = $cust_pkg->check; - #return { 'error' => $error } if $error; - - my $svc_acct = new FS::svc_acct ( { - 'svcpart' => $svcpart, - map { $_ => $packet->{$_} } - qw( username _password sec_phrase popnum ), - } ); - - my @acct_snarf; - my $snarfnum = 1; - while ( exists($packet->{"snarf_machine$snarfnum"}) - && length($packet->{"snarf_machine$snarfnum"}) ) { - my $acct_snarf = new FS::acct_snarf ( { - 'machine' => $packet->{"snarf_machine$snarfnum"}, - 'protocol' => $packet->{"snarf_protocol$snarfnum"}, - 'username' => $packet->{"snarf_username$snarfnum"}, - '_password' => $packet->{"snarf_password$snarfnum"}, - } ); - $snarfnum++; - push @acct_snarf, $acct_snarf; - } - $svc_acct->child_objects( \@acct_snarf ); - - my $y = $svc_acct->setdefault; # arguably should be in new method - return { 'error' => $y } if $y && !ref($y); - - #$error = $svc_acct->check; - #return { 'error' => $error } if $error; - - #setup a job dependancy to delay provisioning - my $placeholder = new FS::queue ( { - 'job' => 'FS::ClientAPI::Signup::__placeholder', - 'status' => 'locked', - } ); - my $error = $placeholder->insert; - return { 'error' => $error } if $error; - - use Tie::RefHash; - tie my %hash, 'Tie::RefHash'; - %hash = ( $cust_pkg => [ $svc_acct ] ); - #msgcat - $error = $cust_main->insert( - \%hash, - \@invoicing_list, - 'depend_jobnum' => $placeholder->jobnum, - ); - if ( $error ) { - my $perror = $placeholder->delete; - $error .= " (Additionally, error removing placeholder: $perror)" if $perror; - return { 'error' => $error }; - } - - if ( $conf->exists('signup_server-realtime') ) { - - #warn "[fs_signup_server] Billing customer...\n" if $Debug; - - my $bill_error = $cust_main->bill; - #warn "[fs_signup_server] error billing new customer: $bill_error" - # if $bill_error; - - $bill_error = $cust_main->apply_payments_and_credits; - #warn "[fs_signup_server] error applying payments and credits for". - # " new customer: $bill_error" - # if $bill_error; - - $bill_error = $cust_main->collect('realtime' => 1); - #warn "[fs_signup_server] error collecting from new customer: $bill_error" - # if $bill_error; - - if ( $cust_main->balance > 0 ) { - - #this makes sense. credit is "un-doing" the invoice - $cust_main->credit( $cust_main->balance, 'signup server decline', - 'reason_type' => $conf->config('signup_credit_type'), - ); - $cust_main->apply_credits; - - #should check list for errors... - #$cust_main->suspend; - local $FS::svc_Common::noexport_hack = 1; - $cust_main->cancel('quiet'=>1); - - my $perror = $placeholder->depended_delete; - warn "error removing provisioning jobs after decline: $perror" if $perror; - unless ( $perror ) { - $perror = $placeholder->delete; - warn "error removing placeholder after decline: $perror" if $perror; - } - - return { 'error' => '_decline' }; - } - - } - - if ( $reg_code ) { - $error = $reg_code->delete; - return { 'error' => $error } if $error; - } - - $error = $placeholder->delete; - return { 'error' => $error } if $error; - - return { error => '' }; - -} - -1; |