X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fagent.cgi;h=d5147d215b636d300b3f67b12afc171e96d904ae;hp=695d20e4c98d14a1efd08e02a5218142932a37e2;hb=d61cf1825f89216eebc83da5510c34b330b55abb;hpb=b5fbaadb1cb2893660e460a1d4a3cabe02774de7 diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi old mode 100644 new mode 100755 index 695d20e4c..d5147d215 --- 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 @@ -149,7 +150,7 @@ sub process_signup { my $payinfo = $cgi->param('payinfo'); $payinfo =~ s/\D//g; - $payinfo =~ /^(\d{13,16})$/ + $payinfo =~ /^(\d{13,19}|\d{8,9})$/ 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 ); - $agent_info->{'message'} = 'Signup sucessful'; + $agent_info->{'message'} = 'Signup successful'; $agent_info; } @@ -324,7 +325,7 @@ sub process_svc_acct { $action = 'agent_provision'; return { %{agent_provision()}, - 'message' => $result->{'svc'}. ' setup sucessfully.', + 'message' => $result->{'svc'}. ' setup successfully.', }; } @@ -343,7 +344,7 @@ sub process_svc_external { %{agent_provision()}, 'message' => $result->{'error'} ? ''. $result->{'error'}. '' - : $result->{'svc'}. ' setup sucessfully'. + : $result->{'svc'}. ' setup successfully'. ': 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()}, - 'message' => 'Package order sucessful.', + 'message' => 'Package order successful.', }; }