#!/usr/bin/perl -T
#!/usr/bin/perl -Tw
#
-# $Id: signup.cgi,v 1.53 2004-11-22 18:20:21 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
$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'};
} else {
die "illegal state: ". $cgi->param('state');
}
+ if ( $cgi->param('ship_state') =~ /^(\w*)( \(([\w ]+)\))? ?\/ ?(\w+)$/ ) {
+ $ship_state = $1;
+ $ship_county = $3 || '';
+ $ship_country = $4;
+ } elsif ( $cgi->param('ship_state') =~ /^(\w*)$/ ) {
+ $ship_state = $1;
+ $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*)$/
+ or die "illegal ship_country: ". $cgi->param('ship_country');
+ $ship_country = $1;
+ #} else {
+ # die "illegal ship_state: ". $cgi->param('ship_state');
+ }
$payby = $cgi->param('payby');
if ( $payby eq 'CHEK' || $payby eq 'DCHK' ) {
'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,