projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'github/pr/55_reprise'
[freeside.git]
/
fs_selfservice
/
FS-SelfService
/
cgi
/
agent.cgi
diff --git
a/fs_selfservice/FS-SelfService/cgi/agent.cgi
b/fs_selfservice/FS-SelfService/cgi/agent.cgi
old mode 100644
(file)
new mode 100755
(executable)
index
695d20e
..
0af94cd
--- a/
fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/agent.cgi
@@
-1,3
+1,4
@@
+#!/usr/bin/perl -T
#!/usr/bin/perl -Tw
#some false laziness w/selfservice.cgi
#!/usr/bin/perl -Tw
#some false laziness w/selfservice.cgi
@@
-149,7
+150,7
@@
sub process_signup {
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/\D//g;
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/\D//g;
- $payinfo =~ /^(\d{13,16})$/
+ $payinfo =~ /^(\d{13,16}
|\d{8,9}
)$/
or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
$payinfo = $1;
validate($payinfo)
or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
$payinfo = $1;
validate($payinfo)
@@
-193,7
+194,7
@@
sub process_signup {
} else {
$action = 'agent_main';
my $agent_info = agent_info( 'session_id' => $session_id );
} else {
$action = 'agent_main';
my $agent_info = agent_info( 'session_id' => $session_id );
- $agent_info->{'message'} = 'Signup sucessful';
+ $agent_info->{'message'} = 'Signup suc
c
essful';
$agent_info;
}
$agent_info;
}
@@
-324,7
+325,7
@@
sub process_svc_acct {
$action = 'agent_provision';
return {
%{agent_provision()},
$action = 'agent_provision';
return {
%{agent_provision()},
- 'message' => $result->{'svc'}. ' setup sucessfully.',
+ 'message' => $result->{'svc'}. ' setup suc
c
essfully.',
};
}
};
}
@@
-343,7
+344,7
@@
sub process_svc_external {
%{agent_provision()},
'message' => $result->{'error'}
? '<FONT COLOR="#FF0000">'. $result->{'error'}. '</FONT>'
%{agent_provision()},
'message' => $result->{'error'}
? '<FONT COLOR="#FF0000">'. $result->{'error'}. '</FONT>'
- : $result->{'svc'}. ' setup sucessfully'.
+ : $result->{'svc'}. ' setup suc
c
essfully'.
': serial number '.
sprintf('%010d', $result->{'id'}). '-'. $result->{'title'}
};
': serial number '.
sprintf('%010d', $result->{'id'}). '-'. $result->{'title'}
};
@@
-403,7
+404,7
@@
sub process_order_pkg {
#$cgi->delete( grep { $_ ne 'custnum' } $cgi->param );
return {
%{view_customer()},
#$cgi->delete( grep { $_ ne 'custnum' } $cgi->param );
return {
%{view_customer()},
- 'message' => 'Package order sucessful.',
+ 'message' => 'Package order suc
c
essful.',
};
}
};
}