projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
signups with snarf info!
[freeside.git]
/
fs_signup
/
FS-SignupClient
/
cgi
/
signup.cgi
diff --git
a/fs_signup/FS-SignupClient/cgi/signup.cgi
b/fs_signup/FS-SignupClient/cgi/signup.cgi
index
6fa01de
..
5ca93d2
100755
(executable)
--- a/
fs_signup/FS-SignupClient/cgi/signup.cgi
+++ b/
fs_signup/FS-SignupClient/cgi/signup.cgi
@@
-1,6
+1,6
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: signup.cgi,v 1.4
5 2003-09-29 06:51:2
4 ivan Exp $
+# $Id: signup.cgi,v 1.4
8 2003-10-25 02:05:4
4 ivan Exp $
use strict;
use vars qw( @payby $cgi $locales $packages
use strict;
use vars qw( @payby $cgi $locales $packages
@@
-8,7
+8,7
@@
use vars qw( @payby $cgi $locales $packages
$init_data $error
$last $first $ss $company $address1 $address2 $city $state $county
$country $zip $daytime $night $fax $invoicing_list $payby $payinfo
$init_data $error
$last $first $ss $company $address1 $address2 $city $state $county
$country $zip $daytime $night $fax $invoicing_list $payby $payinfo
- $paydate $payname $referral_custnum $init_popstate
+ $pay
cvv $pay
date $payname $referral_custnum $init_popstate
$pkgpart $username $password $password2 $sec_phrase $popnum
$agentnum
$ieak_file $ieak_template $cck_file $cck_template
$pkgpart $username $password $password2 $sec_phrase $popnum
$agentnum
$ieak_file $ieak_template $cck_file $cck_template
@@
-178,6
+178,9
@@
if ( defined $cgi->param('magic') ) {
$paydate =
$cgi->param( $payby. '_month' ). '-'. $cgi->param( $payby. '_year' );
$payname = $cgi->param( $payby. '_payname' );
$paydate =
$cgi->param( $payby. '_month' ). '-'. $cgi->param( $payby. '_year' );
$payname = $cgi->param( $payby. '_payname' );
+ $paycvv = defined $cgi->param( $payby. '_paycvv' )
+ ? $cgi->param( $payby. '_paycvv' )
+ : '';
if ( $invoicing_list = $cgi->param('invoicing_list') ) {
$invoicing_list .= ', POST' if $cgi->param('invoicing_list_POST');
if ( $invoicing_list = $cgi->param('invoicing_list') ) {
$invoicing_list .= ', POST' if $cgi->param('invoicing_list_POST');
@@
-252,6
+255,7
@@
if ( defined $cgi->param('magic') ) {
'fax' => $fax,
'payby' => $payby,
'payinfo' => $payinfo,
'fax' => $fax,
'payby' => $payby,
'payinfo' => $payinfo,
+ 'paycvv' => $paycvv,
'paydate' => $paydate,
'payname' => $payname,
'invoicing_list' => $invoicing_list,
'paydate' => $paydate,
'payname' => $payname,
'invoicing_list' => $invoicing_list,
@@
-262,6
+266,7
@@
if ( defined $cgi->param('magic') ) {
'_password' => $password,
'popnum' => $popnum,
'agentnum' => $agentnum,
'_password' => $password,
'popnum' => $popnum,
'agentnum' => $agentnum,
+ map { $_ => $cgi->param($_) } grep { /^snarf_/ } $cgi->param
} );
}
} );
}
@@
-269,6
+274,9
@@
if ( defined $cgi->param('magic') ) {
if ( $error eq '_decline' ) {
print_decline();
} elsif ( $error ) {
if ( $error eq '_decline' ) {
print_decline();
} elsif ( $error ) {
+ #fudge the snarf info
+ no strict 'refs';
+ ${$_} = $cgi->param($_) foreach grep { /^snarf_/ } $cgi->param;
print_form();
} else {
print_okay();
print_form();
} else {
print_okay();
@@
-647,7
+655,7
@@
Signup information for <%= $email_name %>:
<BR><BR>
Username: <%= $username %><BR>
Password: <%= $password %><BR>
<BR><BR>
Username: <%= $username %><BR>
Password: <%= $password %><BR>
-Access number: (<%= $ac %>) /
$exch - $local
<BR>
+Access number: (<%= $ac %>) /
<%= $exch %> - <%= $local %>
<BR>
Package: <%= $pkg %><BR>
</BODY></HTML>
END
Package: <%= $pkg %><BR>
</BODY></HTML>
END