3 #some false laziness w/selfservice.cgi
6 use vars qw($cgi $session_id $form_max $template_dir);
7 use subs qw(do_template);
9 use CGI::Carp qw(fatalsToBrowser);
10 use Business::CreditCard;
12 use FS::SelfService qw( agent_login agent_info
14 signup_info new_customer
15 customer_info order_pkg
24 unless ( defined $cgi->param('session') ) {
25 do_template('agent_login',{});
29 if ( $cgi->param('session') eq 'login' ) {
31 $cgi->param('username') =~ /^\s*([a-z0-9_\-\.\&]{0,$form_max})\s*$/i
32 or die "illegal username";
35 $cgi->param('password') =~ /^(.{0,$form_max})$/
36 or die "illegal password";
40 'username' => $username,
41 'password' => $password,
44 do_template('agent_login', {
45 'error' => $rv->{error},
46 'username' => $username,
50 $cgi->param('session' => $rv->{session_id} );
51 $cgi->param('action' => 'agent_main' );
55 $session_id = $cgi->param('session');
57 $cgi->param('action') =~
58 /^(agent_main|signup|process_signup|list_customers|view_customer|process_order_pkg)$/
59 or die "unknown action ". $cgi->param('action');
62 warn "running $action\n";
63 my $result = eval "&$action();";
66 if ( $result->{error} eq "Can't resume session" ) { #ick
67 do_template('agent_login',{});
71 warn "processing template $action\n";
72 do_template($action, {
73 'session_id' => $session_id,
79 sub agent_main { agent_info( 'session_id' => $session_id ); }
81 sub signup { signup_info( 'session_id' => $session_id ); }
85 my $init_data = signup_info( 'session_id' => $session_id );
86 if ( $init_data->{'error'} ) {
87 if ( $init_data->{'error'} eq "Can't resume session" ) { #ick
88 do_template('agent_login',{});
91 die $init_data->{'error'};
97 #some false laziness w/signup.cgi
98 my $payby = $cgi->param('payby');
99 if ( $payby eq 'CHEK' || $payby eq 'DCHK' ) {
100 #$payinfo = join('@', map { $cgi->param( $payby. "_payinfo$_" ) } (1,2) );
101 $cgi->param('payinfo' => $cgi->param($payby. '_payinfo1'). '@'.
102 $cgi->param($payby. '_payinfo2')
105 $cgi->param('payinfo' => $cgi->param( $payby. '_payinfo' ) );
107 $cgi->param('paydate' => $cgi->param( $payby. '_month' ). '-'.
108 $cgi->param( $payby. '_year' )
110 $cgi->param('payname' => $cgi->param( $payby. '_payname' ) );
111 $cgi->param('paycvv' => defined $cgi->param( $payby. '_paycvv' )
112 ? $cgi->param( $payby. '_paycvv' )
116 if ( $cgi->param('invoicing_list') ) {
117 $cgi->param('invoicing_list' => $cgi->param('invoicing_list'). ', POST')
118 if $cgi->param('invoicing_list_POST');
120 $cgi->param('invoicing_list' => 'POST' );
123 if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
124 $error = $init_data->{msgcat}{passwords_dont_match}; #msgcat
125 $cgi->param('_password', '');
126 $cgi->param('_password2', '');
129 if ( $payby =~ /^(CARD|DCRD)$/ && $cgi->param('CARD_type') ) {
130 my $payinfo = $cgi->param('payinfo');
133 $payinfo =~ /^(\d{13,16})$/
134 or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
137 or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
138 cardtype($payinfo) eq $cgi->param('CARD_type')
139 or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type');
143 my $rv = new_customer ( {
144 'session_id' => $session_id,
145 map { $_ => $cgi->param($_) }
146 qw( last first ss company
147 address1 address2 city county state zip country
149 payby payinfo paycvv paydate payname invoicing_list
150 pkgpart username sec_phrase _password popnum refnum
152 grep { /^snarf_/ } $cgi->param
154 $error = $rv->{'error'};
164 #warn join('\n', map "$_ => $r->{$_}", keys %$r )."\n";
167 $action = 'agent_main';
168 my $agent_info = agent_info( 'session_id' => $session_id );
169 $agent_info->{'message'} = 'Signup sucessful';
176 agent_list_customers( 'session_id' => $session_id,
177 map { $_ => $cgi->param($_) }
178 grep defined($cgi->param($_)),
179 qw(prospect active susp cancel)
185 my $init_data = signup_info( 'session_id' => $session_id );
186 if ( $init_data->{'error'} ) {
187 if ( $init_data->{'error'} eq "Can't resume session" ) { #ick
188 do_template('agent_login',{});
191 die $init_data->{'error'};
195 my $customer_info = customer_info (
196 'agent_session_id' => $session_id,
197 'custnum' => $cgi->param('custnum')
202 ( map { $_ => $init_data->{$_} }
203 qw( part_pkg security_phrase svc_acct_pop ),
209 sub process_order_pkg {
211 my $results = order_pkg (
212 'agent_session_id' => $session_id,
213 map { $_ => $cgi->param($_) }
214 qw( custnum pkgpart username _password _password2 sec_phrase popnum )
217 $action = 'view_customer';
218 $cgi->delete( grep { $_ ne 'custnum' } $cgi->param )
219 unless $results->{'error'};
224 'message' => $results->{'error'}
225 ? '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>'
226 : 'Package order sucessful.'
236 #warn join(' / ', map { "$_=>".$fill_in->{$_} } keys %$fill_in). "\n";
239 $fill_in->{'selfurl'} = $cgi->self_url;
240 $fill_in->{'cgi'} = \$cgi;
242 my $template = new Text::Template( TYPE => 'FILE',
243 SOURCE => "$template_dir/$name.html",
244 DELIMITERS => [ '<%=', '%>' ],
246 or die $Text::Template::ERROR;
248 print $cgi->header( '-expires' => 'now' ),
249 $template->fill_in( PACKAGE => 'FS::SelfService::_agentcgi',
254 package FS::SelfService::_agentcgi;
255 use FS::SelfService qw(regionselector expselect popselector);