diff options
author | ivan <ivan> | 2005-01-29 12:34:12 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-01-29 12:34:12 +0000 |
commit | 55a68e4aabe10db4d9c3ab1bb8befd2f9f4b9008 (patch) | |
tree | 44ed1c89bce3e5e204e45347b0c97ccc55ae7972 /fs_signup | |
parent | d35298e7ac78dff1fde4bf8e6d8f0104260a527e (diff) |
registration codes
Diffstat (limited to 'fs_signup')
-rw-r--r-- | fs_signup/FS-SignupClient/cgi/regcode.html | 14 | ||||
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 13 | ||||
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.html | 4 |
3 files changed, 26 insertions, 5 deletions
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 @@ +<HTML><HEAD><TITLE>ISP Signup</TITLE></HEAD> +<BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>ISP Signup - registration code</FONT><BR><BR> +<SCRIPT> +function gotoURL(object) { + window.location.href = 'signup.cgi?reg_code=' + object.reg_code.value; +} +</SCRIPT> +<FORM> +Enter registration code <INPUT TYPE="text" NAME="reg_code"> +<INPUT type="submit" VALUE="Signup" onClick="gotoURL(this.form)"> + +</FORM> +</BODY> +</HTML> 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 </TR></TABLE><font color="#ff0000">*</font> required fields for each billing type <BR><BR>First package -<INPUT TYPE="hidden" NAME="promo_code" VALUE="<%= $cgi->param('promo_code') %>"><TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0 WIDTH="100%"> +<INPUT TYPE="hidden" NAME="promo_code" VALUE="<%= $cgi->param('promo_code') %>"> +<INPUT TYPE="hidden" NAME="reg_code" VALUE="<%= uc($cgi->param('reg_code')) %>"> +<TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=0 WIDTH="100%"> <TR> <TD COLSPAN=2><SELECT NAME="pkgpart"> |