From 55a68e4aabe10db4d9c3ab1bb8befd2f9f4b9008 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 29 Jan 2005 12:34:12 +0000 Subject: registration codes --- fs_signup/FS-SignupClient/cgi/regcode.html | 14 ++++++++++++++ fs_signup/FS-SignupClient/cgi/signup.cgi | 13 +++++++++---- fs_signup/FS-SignupClient/cgi/signup.html | 4 +++- 3 files changed, 26 insertions(+), 5 deletions(-) create mode 100644 fs_signup/FS-SignupClient/cgi/regcode.html (limited to 'fs_signup/FS-SignupClient/cgi') diff --git a/fs_signup/FS-SignupClient/cgi/regcode.html b/fs_signup/FS-SignupClient/cgi/regcode.html new file mode 100644 index 000000000..e639b9b53 --- /dev/null +++ b/fs_signup/FS-SignupClient/cgi/regcode.html @@ -0,0 +1,14 @@ +ISP Signup +ISP Signup - registration code

+ +
+Enter registration code + + +
+ + diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index f49ad3285..aae3fb84a 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,7 +1,7 @@ #!/usr/bin/perl -T #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.54 2004-12-01 18:38:22 ivan Exp $ +# $Id: signup.cgi,v 1.55 2005-01-29 12:34:11 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -134,7 +134,10 @@ if ( -e $decline_html ) { $cgi = new CGI; -$init_data = signup_info( 'promo_code' => $cgi->param('promo_code') ); +$init_data = signup_info( 'agentnum' => $agentnum, + 'promo_code' => scalar($cgi->param('promo_code')), + 'reg_code' => uc(scalar($cgi->param('reg_code'))), + ); $error = $init_data->{'error'}; $locales = $init_data->{'cust_main_county'}; $packages = $init_data->{'part_pkg'}; @@ -175,7 +178,8 @@ if ( defined $cgi->param('magic') ) { $cgi->param('ship_county') =~ /^([\w ]*)$/ or die "illegal county: ". $cgi->param('ship_county'); $ship_county = $1; - $cgi->param('ship_country') =~ /^(\w+)$/ + #$cgi->param('ship_country') =~ /^(\w+)$/ + $cgi->param('ship_country') =~ /^(\w*)$/ or die "illegal ship_country: ". $cgi->param('ship_country'); $ship_country = $1; #} else { @@ -307,7 +311,8 @@ if ( defined $cgi->param('magic') ) { 'payname' => $payname, 'invoicing_list' => $invoicing_list, 'referral_custnum' => $referral_custnum, - 'promo_code' => $cgi->param('promo_code'), + 'promo_code' => scalar($cgi->param('promo_code')), + 'reg_code' => uc(scalar($cgi->param('reg_code'))), 'pkgpart' => $pkgpart, 'username' => $username, 'sec_phrase' => $sec_phrase, diff --git a/fs_signup/FS-SignupClient/cgi/signup.html b/fs_signup/FS-SignupClient/cgi/signup.html index c0e4f73eb..da522f4f4 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.html +++ b/fs_signup/FS-SignupClient/cgi/signup.html @@ -167,7 +167,9 @@ Contact Information * required fields for each billing type

First package - + + +