From a6cbda0b7e6779b89abc1d466af9c3a880d8e030 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 12 Mar 2005 14:35:12 +0000 Subject: - bring prepaid support into this century (close: Bug#1124) - finally get rid of fs_signup (everything is in fs_selfservice now) (Bug#413) - organize main menu sysadmin section so it is slightly less confusing --- fs_signup/FS-SignupClient/cgi/cvv2.html | 25 - fs_signup/FS-SignupClient/cgi/cvv2.png | Bin 3854 -> 0 bytes fs_signup/FS-SignupClient/cgi/cvv2_amex.png | Bin 4573 -> 0 bytes fs_signup/FS-SignupClient/cgi/decline.html | 5 - fs_signup/FS-SignupClient/cgi/map.gif | Bin 8181 -> 0 bytes fs_signup/FS-SignupClient/cgi/promocode.html | 14 - fs_signup/FS-SignupClient/cgi/regcode.html | 14 - .../FS-SignupClient/cgi/signup-agentselect.html | 195 -------- .../FS-SignupClient/cgi/signup-alternate.html | 218 --------- .../FS-SignupClient/cgi/signup-billaddress.html | 307 ------------- .../FS-SignupClient/cgi/signup-freeoption.html | 262 ----------- fs_signup/FS-SignupClient/cgi/signup-snarf.html | 228 ---------- fs_signup/FS-SignupClient/cgi/signup.cgi | 505 --------------------- fs_signup/FS-SignupClient/cgi/signup.html | 224 --------- fs_signup/FS-SignupClient/cgi/stateselect.html | 134 ------ fs_signup/FS-SignupClient/cgi/success.html | 11 - 16 files changed, 2142 deletions(-) delete mode 100644 fs_signup/FS-SignupClient/cgi/cvv2.html delete mode 100644 fs_signup/FS-SignupClient/cgi/cvv2.png delete mode 100644 fs_signup/FS-SignupClient/cgi/cvv2_amex.png delete mode 100644 fs_signup/FS-SignupClient/cgi/decline.html delete mode 100644 fs_signup/FS-SignupClient/cgi/map.gif delete mode 100644 fs_signup/FS-SignupClient/cgi/promocode.html delete mode 100644 fs_signup/FS-SignupClient/cgi/regcode.html delete mode 100755 fs_signup/FS-SignupClient/cgi/signup-agentselect.html delete mode 100755 fs_signup/FS-SignupClient/cgi/signup-alternate.html delete mode 100755 fs_signup/FS-SignupClient/cgi/signup-billaddress.html delete mode 100755 fs_signup/FS-SignupClient/cgi/signup-freeoption.html delete mode 100755 fs_signup/FS-SignupClient/cgi/signup-snarf.html delete mode 100755 fs_signup/FS-SignupClient/cgi/signup.cgi delete mode 100755 fs_signup/FS-SignupClient/cgi/signup.html delete mode 100644 fs_signup/FS-SignupClient/cgi/stateselect.html delete mode 100644 fs_signup/FS-SignupClient/cgi/success.html (limited to 'fs_signup/FS-SignupClient/cgi') diff --git a/fs_signup/FS-SignupClient/cgi/cvv2.html b/fs_signup/FS-SignupClient/cgi/cvv2.html deleted file mode 100644 index b178c8513..000000000 --- a/fs_signup/FS-SignupClient/cgi/cvv2.html +++ /dev/null @@ -1,25 +0,0 @@ - - - - CVV2 information - - - - The CVV2 number (also called CVC2 or CID) is a three- or four-digit - security code used to reduce credit card fraud.

- - - - - - - - -
Visa / MasterCard / DiscoverAmerican Express
- Visa/MasterCard/Discover - - American Express -
-
(close window)
- - diff --git a/fs_signup/FS-SignupClient/cgi/cvv2.png b/fs_signup/FS-SignupClient/cgi/cvv2.png deleted file mode 100644 index 4610dcbe6..000000000 Binary files a/fs_signup/FS-SignupClient/cgi/cvv2.png and /dev/null differ diff --git a/fs_signup/FS-SignupClient/cgi/cvv2_amex.png b/fs_signup/FS-SignupClient/cgi/cvv2_amex.png deleted file mode 100644 index 21c36a0ab..000000000 Binary files a/fs_signup/FS-SignupClient/cgi/cvv2_amex.png and /dev/null differ diff --git a/fs_signup/FS-SignupClient/cgi/decline.html b/fs_signup/FS-SignupClient/cgi/decline.html deleted file mode 100644 index a37ba3ab6..000000000 --- a/fs_signup/FS-SignupClient/cgi/decline.html +++ /dev/null @@ -1,5 +0,0 @@ -Processing error -Processing error

-There has been an error processing your account. Please contact customer -support. - diff --git a/fs_signup/FS-SignupClient/cgi/map.gif b/fs_signup/FS-SignupClient/cgi/map.gif deleted file mode 100644 index ef884d8f9..000000000 Binary files a/fs_signup/FS-SignupClient/cgi/map.gif and /dev/null differ diff --git a/fs_signup/FS-SignupClient/cgi/promocode.html b/fs_signup/FS-SignupClient/cgi/promocode.html deleted file mode 100644 index f8ee7f6eb..000000000 --- a/fs_signup/FS-SignupClient/cgi/promocode.html +++ /dev/null @@ -1,14 +0,0 @@ -ISP Signup -ISP Signup - promotional code

- -
-Enter promotional code - - -
- - diff --git a/fs_signup/FS-SignupClient/cgi/regcode.html b/fs_signup/FS-SignupClient/cgi/regcode.html deleted file mode 100644 index e639b9b53..000000000 --- a/fs_signup/FS-SignupClient/cgi/regcode.html +++ /dev/null @@ -1,14 +0,0 @@ -ISP Signup -ISP Signup - registration code

- -
-Enter registration code - - -
- - diff --git a/fs_signup/FS-SignupClient/cgi/signup-agentselect.html b/fs_signup/FS-SignupClient/cgi/signup-agentselect.html deleted file mode 100755 index 7851c5601..000000000 --- a/fs_signup/FS-SignupClient/cgi/signup-agentselect.html +++ /dev/null @@ -1,195 +0,0 @@ -ISP Signup form -ISP Signup form

-<%= $error %> -
- - - -Agent

-Contact Information - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*Contact name
(last, first)		, -
Company
*Address
 
*City*State/Country - <%= - ($county_html, $state_html, $country_html) = - regionselector( $county, $state, $country ); - - "$county_html $state_html"; - %> - *Zip
*Country<%= $country_html %>
Day Phone
Night Phone
Fax
* required fields
-
Billing information - - -<%= scalar(@payby) > 1 ? '' : '' %> -
- - <%= - $OUT .= ' - - Postal mail invoice -
Email invoice -
Billing type
- - - - <%= - - my $cardselect = ''; - - my %payby = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD"). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD"). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), - 'PREPAY' => qq!Prepaid card
*!, - ); - - my( $account, $aba ) = split('@', $payinfo); - my %paybychecked = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD", $paydate). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD", $paydate). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", $paydate). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP", $paydate), - 'PREPAY' => qq!Prepaid card
*!, - ); - - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= '"; - } else { - $OUT .= qq!!; - } else { - $OUT .= qq!> $payby{$_}!; - } - - } - } - %> - -
'. - qq!!. - "$paybychecked{$_} $paybychecked{$_}
* required fields for each billing type -

First package - - - - - - - - - - - - - - - - -<%= - if ( $init_data->{'security_phrase'} ) { - $OUT .= < - - - -ENDOUT - } else { - $OUT .= ''; - } -%> -<%= - if ( scalar(@$pops) ) { - $OUT .= ''; - } else { - $OUT .= popselector($popnum); - } -%> -
Username
Password
Re-enter Password
Security Phrase -
Access number'. - popselector($popnum). '
-

-
diff --git a/fs_signup/FS-SignupClient/cgi/signup-alternate.html b/fs_signup/FS-SignupClient/cgi/signup-alternate.html deleted file mode 100755 index 490cefa5e..000000000 --- a/fs_signup/FS-SignupClient/cgi/signup-alternate.html +++ /dev/null @@ -1,218 +0,0 @@ -ISP Signup form -ISP Signup form

-<%= $error %> -
- - - - -Contact Information - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*Contact name
(last, first)		, -
Company
*Address
 
*City*State/Country*Zip
Day Phone
Night Phone
Fax
* required fields
- -

- - - - - - - - - - - - - - -<%= if ( $init_data->{'security_phrase'} ) { - < - - - -ENDOUT - } else { - ''; - } -%> - -<%= if ( scalar(@$pops) ) { - ''; - } else { - popselector($popnum); - } -%> - -
*Username
*Password
*Re-enter Password
Security Phrase -
Access number'. - popselector($popnum). '
* required fields - -

First package - - <%= use Tie::IxHash; - my %pkgpart2payby = map { $_->{pkgpart} => $_->{payby}[0] } @{$packages}; - tie my %options, 'Tie::IxHash', - '' => '(none)', - map { $_->{pkgpart} => $_->{pkg} } - sort { $a->{recur} <=> $b->{recur} } - @{$packages} - ; - - use HTML::Widgets::SelectLayers 0.02; - my @form_text = qw( magic ref ss agentnum - last first company address1 address2 - city zip daytime night fax - username _password _password2 sec_phrase ); - my @form_select = qw( state ); #county country - if ( scalar(@$pops) == 0 or scalar(@$pops) == 1 ) { - push @form_text, 'popnum', - } else { - push @form_select, 'popnum', - } - my $widget = new HTML::Widgets::SelectLayers( - options => \%options, - selected_layer => $pkgpart, - form_name => 'dummy', - form_action => $self_url, - form_text => \@form_text, - form_select => \@form_select, - layer_callback => sub { - my $layer = shift; - my $html = qq( ); - - if ( $pkgpart2payby{$layer} eq 'BILL' ) { - $html .= < - - - - - -

-ENDOUT - } elsif ( $pkgpart2payby{$layer} eq 'CARD' ) { - my $postal_checked = ''; - my @invoicing_list = split(', ', $invoicing_list ); - $postal_checked = 'CHECKED' - if ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list; - - $invoicing_list= join(', ', grep { $_ ne 'POST' } @invoicing_list ); - - my $expselect = expselect("CARD", $paydate); - - my $cardselect = ''; - - $html .= < -

Billing information - - - - - - - - - - - - - - - - - - - - - - -
Email statement to
*Credit card type$cardselect
*Card number
**Exp$expselect
*Name on card
-* required fields -

-ENDOUT - } else { - $html = <Please select a package.
-ENDOUT - - } - - $html; - - }, - ); - - $widget->html; - - - %> - diff --git a/fs_signup/FS-SignupClient/cgi/signup-billaddress.html b/fs_signup/FS-SignupClient/cgi/signup-billaddress.html deleted file mode 100755 index 3cf9d2505..000000000 --- a/fs_signup/FS-SignupClient/cgi/signup-billaddress.html +++ /dev/null @@ -1,307 +0,0 @@ -ISP Signup form - - -ISP Signup form

-<%= $error %> - - - - -Where did you hear about our service?

-Billing Address (where credit card statement is sent) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*Exact name on card
(last, first)		, -
Company
*Address
 
*City*State/Country - <%= - ($county_html, $state_html, $country_html) = - regionselector( $county, $state, $country, '', 'changed(this)' ); - - "$county_html $state_html"; - %> - *Zip
*Country<%= $country_html %>
Day Phone
Night Phone
Fax
- - - -

-Service Address -(>same as billing address)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*Contact name
(last, first)		, -
Company
*Address
 
*City*State/Country - <%= - ($ship_county_html, $ship_state_html, $ship_country_html) = - regionselector( $ship_county, - $ship_state, - $ship_country, - 'ship_', - 'changed(this)', - ); - - "$ship_county_html $ship_state_html"; - %> - *Zip
*Country<%= $ship_country_html %>
Day Phone
Night Phone
Fax
- -* required fields
- -
Billing information - - -<%= scalar(@payby) > 1 ? '' : '' %> -
- - <%= - $OUT .= ' - - Postal mail invoice -
Email invoice -
Billing type
- - - - <%= - - my $cardselect = ''; - - my %payby = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD"), #. qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD"), #. qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $payby{$payby} .= qq!
CVV2 (help) !; - } - } - - my( $account, $aba ) = split('@', $payinfo); - my %paybychecked = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD", $paydate), #. qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD", $paydate), #. qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", $paydate). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP", $paydate), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $paybychecked{$payby} .= qq!
CVV2 (help) !; - } - } - - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= '"; - } else { - $OUT .= qq!!; - } else { - $OUT .= qq!> $payby{$_}!; - } - - } - } - %> - -
'. - qq!!. - "$paybychecked{$_} $paybychecked{$_}
* required fields for each billing type -

First package - - - - - - - - - - - - - - - - - -<%= - if ( $init_data->{'security_phrase'} ) { - $OUT .= < - - - -ENDOUT - } else { - $OUT .= ''; - } -%> -<%= - if ( scalar(@$pops) ) { - $OUT .= ''; - } else { - $OUT .= popselector($popnum); - } -%> -
Username
Password
Re-enter Password
Security Phrase -
Access number'. - popselector($popnum). '
-

- diff --git a/fs_signup/FS-SignupClient/cgi/signup-freeoption.html b/fs_signup/FS-SignupClient/cgi/signup-freeoption.html deleted file mode 100755 index 40ad03c0b..000000000 --- a/fs_signup/FS-SignupClient/cgi/signup-freeoption.html +++ /dev/null @@ -1,262 +0,0 @@ -ISP Signup form - - -ISP Signup form

-<%= $error %> -
- - - -Where did you hear about our service?

-Contact Information - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*Contact name
(last, first)		, -
Company
*Address
 
*City*State/Country - <%= - ($county_html, $state_html, $country_html) = - regionselector( $county, $state, $country ); - - "$county_html $state_html"; - %> - *Zip
*Country<%= $country_html %>
Day Phone
Night Phone
Fax
* required fields
-
-<%= - my $first_payby = $packages->[0]{'payby'}[0]; - unless ( grep { scalar( @{$_->{'payby'}} ) > 1 - || $_->{'payby'}->[0] ne $first_payby - } @$packages - ) { - @payby = ( $first_payby ); - } - - unless ( scalar(@payby) == 1 && $payby[0] eq 'BILL' ) { - - $OUT .= ' Billing information - - '; - - $OUT .= '' - if scalar(@payby) > 1; - - $OUT .= '
-
Billing type
'; - - } else { - $OUT .= ' - '; - } - -%> - - - - - <%= - - my $cardselect = ''; - - my %payby = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD"). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD"). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => <<'END', - - - - -END - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $payby{$payby} .= qq!
CVV2 (help) !; - } - } - - my( $account, $aba ) = split('@', $payinfo); - my %paybychecked = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD", $paydate). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD", $paydate). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => <<'END', - - - - -END - - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP", $paydate), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $paybychecked{$payby} .= qq!
CVV2 (help) !; - } - } - - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= '"; - } else { - $OUT .= qq!!; - } else { - $OUT .= qq!> $payby{$_}!; - } - - } - } - %> - -
'. - qq!!. - "$paybychecked{$_} $paybychecked{$_}
-<%= unless ( scalar(@payby) == 1 && $payby[0] eq 'BILL' ) { - $OUT .= '* required fields for each billing type'; - } - ''; -%> -

First package - - - - - - - - - - - - - - - - -<%= - if ( $init_data->{'security_phrase'} ) { - $OUT .= < - - - -ENDOUT - } else { - $OUT .= ''; - } -%> -<%= - if ( scalar(@$pops) ) { - $OUT .= ''; - } else { - $OUT .= popselector($popnum); - } -%> -
Username
Password
Re-enter Password
Security Phrase -
Access number'. - popselector($popnum). '
-

-
diff --git a/fs_signup/FS-SignupClient/cgi/signup-snarf.html b/fs_signup/FS-SignupClient/cgi/signup-snarf.html deleted file mode 100755 index d167efbf9..000000000 --- a/fs_signup/FS-SignupClient/cgi/signup-snarf.html +++ /dev/null @@ -1,228 +0,0 @@ -ISP Signup form - - -ISP Signup form

-<%= $error %> -
- - - -Contact Information - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*Contact name
(last, first)		, -
Company
*Address
 
*City*State/Country - <%= - ($county_html, $state_html, $country_html) = - regionselector( $county, $state, $country ); - - "$county_html $state_html"; - %> - *Zip
*Country<%= $country_html %>
Day Phone
Night Phone
Fax
* required fields
-
Billing information - - -<%= scalar(@payby) > 1 ? '' : '' %> -
- - <%= - $OUT .= ' - - Postal mail invoice -
Email invoice -
Billing type
- - - - <%= - - my $cardselect = ''; - - my %payby = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD"). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD"). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $payby{$payby} .= qq!
CVV2 (help) !; - } - } - - my( $account, $aba ) = split('@', $payinfo); - my %paybychecked = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD", $paydate). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD", $paydate). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", $paydate). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP", $paydate), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $paybychecked{$payby} .= qq!
CVV2 (help) !; - } - } - - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= '"; - } else { - $OUT .= qq!!; - } else { - $OUT .= qq!> $payby{$_}!; - } - - } - } - %> - -
'. - qq!!. - "$paybychecked{$_} $paybychecked{$_}
* required fields for each billing type -

First package - - - - - - - - - - - - - - - - -<%= - if ( $init_data->{'security_phrase'} ) { - $OUT .= < - - - -ENDOUT - } else { - $OUT .= ''; - } -%> -<%= - if ( scalar(@$pops) ) { - $OUT .= ''; - } else { - $OUT .= popselector($popnum); - } -%> -
Username
Password
Re-enter Password
Security Phrase -
Access number'. - popselector($popnum). '
-

Enter up to ten external accounts from which to retrieve email - - - - - - -<%= - for my $num ( 1..10 ) { - no strict 'vars'; - $OUT .= qq!!. - qq!!. - qq!!. - qq!!. - qq!!; - } -%> -
Mail serverUsernamePassword
- -

-
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi deleted file mode 100755 index aae3fb84a..000000000 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ /dev/null @@ -1,505 +0,0 @@ -#!/usr/bin/perl -T -#!/usr/bin/perl -Tw -# -# $Id: signup.cgi,v 1.55 2005-01-29 12:34:11 ivan Exp $ - -use strict; -use vars qw( @payby $cgi $locales $packages - $pops %pop %popnum2pop - $init_data $error - - $last $first $ss $company $address1 - $address2 $city $state $county - $country $zip $daytime $night $fax - - $ship_last $ship_first $ship_ss $ship_company $ship_address1 - $ship_address2 $ship_city $ship_state $ship_county - $ship_country $ship_zip $ship_daytime $ship_night $ship_fax - - $invoicing_list $payby $payinfo - $paycvv $paydate $payname $referral_custnum $init_popstate - $pkgpart $username $password $password2 $sec_phrase $popnum - $agentnum $refnum - $ieak_file $ieak_template - $signup_html $signup_template - $success_html $success_template - $decline_html $decline_template - $ac $exch $loc - $email_name $pkg - $self_url - ); -use subs qw( print_form print_okay print_decline - success_default decline_default - ); -use CGI; -#use CGI::Carp qw(fatalsToBrowser); -use Text::Template; -use Business::CreditCard; -use HTTP::BrowserDetect; -use FS::SelfService qw( signup_info new_customer expselect ); - -#acceptable payment methods -# -#@payby = qw( CARD BILL COMP ); -#@payby = qw( CARD BILL ); -#@payby = qw( CARD ); -@payby = qw( CARD PREPAY ); - -$ieak_file = '/usr/local/freeside/ieak.template'; -$signup_html = -e 'signup.html' - ? 'signup.html' - : '/usr/local/freeside/signup.html'; -$success_html = -e 'success.html' - ? 'success.html' - : '/usr/local/freeside/success.html'; -$decline_html = -e 'decline.html' - ? 'decline.html' - : '/usr/local/freeside/decline.html'; - - -if ( -e $ieak_file ) { - my $ieak_txt = Text::Template::_load_text($ieak_file) - or die $Text::Template::ERROR; - $ieak_txt =~ /^(.*)$/s; #untaint the template source - it's trusted - $ieak_txt = $1; - $ieak_txt =~ s/\r//g; # don't double \r on old templates - $ieak_txt =~ s/\n/\r\n/g; - $ieak_template = new Text::Template ( TYPE => 'STRING', SOURCE => $ieak_txt ) - or die $Text::Template::ERROR; -} else { - $ieak_template = ''; -} - -$agentnum = ''; -if ( -e $signup_html ) { - my $signup_txt = Text::Template::_load_text($signup_html) - or die $Text::Template::ERROR; - $signup_txt =~ /^(.*)$/s; #untaint the template source - it's trusted - $signup_txt = $1; - $signup_template = new Text::Template ( TYPE => 'STRING', - SOURCE => $signup_txt, - DELIMITERS => [ '<%=', '%>' ] - ) - or die $Text::Template::ERROR; - if ( $signup_txt =~ - /<\s*INPUT TYPE="?hidden"?\s+NAME="?agentnum"?\s+VALUE="?(\d+)"?\s*>/si - ) { - $agentnum = $1; - } -} else { - #too much maintenance hassle to keep in this file - die "can't find ./signup.html or /usr/local/freeside/signup.html"; - #$signup_template = new Text::Template ( TYPE => 'STRING', - # SOURCE => &signup_default, - # DELIMITERS => [ '<%=', '%>' ] - # ) - # or die $Text::Template::ERROR; -} - -if ( -e $success_html ) { - my $success_txt = Text::Template::_load_text($success_html) - or die $Text::Template::ERROR; - $success_txt =~ /^(.*)$/s; #untaint the template source - it's trusted - $success_txt = $1; - $success_template = new Text::Template ( TYPE => 'STRING', - SOURCE => $success_txt, - DELIMITERS => [ '<%=', '%>' ], - ) - or die $Text::Template::ERROR; -} else { - $success_template = new Text::Template ( TYPE => 'STRING', - SOURCE => &success_default, - DELIMITERS => [ '<%=', '%>' ], - ) - or die $Text::Template::ERROR; -} - -if ( -e $decline_html ) { - my $decline_txt = Text::Template::_load_text($decline_html) - or die $Text::Template::ERROR; - $decline_txt =~ /^(.*)$/s; #untaint the template source - it's trusted - $decline_txt = $1; - $decline_template = new Text::Template ( TYPE => 'STRING', - SOURCE => $decline_txt, - DELIMITERS => [ '<%=', '%>' ], - ) - or die $Text::Template::ERROR; -} else { - $decline_template = new Text::Template ( TYPE => 'STRING', - SOURCE => &decline_default, - DELIMITERS => [ '<%=', '%>' ], - ) - or die $Text::Template::ERROR; -} - -$cgi = new CGI; - -$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'}; -$pops = $init_data->{'svc_acct_pop'}; -@payby = @{$init_data->{'payby'}} if @{$init_data->{'payby'}}; -$packages = $init_data->{agentnum2part_pkg}{$agentnum} if $agentnum; -%pop = (); -%popnum2pop = (); -foreach (@$pops) { - push @{ $pop{ $_->{state} }->{ $_->{ac} } }, $_; - $popnum2pop{$_->{popnum}} = $_; -} - -if ( defined $cgi->param('magic') ) { - if ( $cgi->param('magic') eq 'process' ) { - - if ( $cgi->param('state') =~ /^(\w*)( \(([\w ]+)\))? ?\/ ?(\w+)$/ ) { - $state = $1; - $county = $3 || ''; - $country = $4; - } elsif ( $cgi->param('state') =~ /^(\w*)$/ ) { - $state = $1; - $cgi->param('county') =~ /^([\w ]*)$/ - or die "illegal county: ". $cgi->param('county'); - $county = $1; - $cgi->param('country') =~ /^(\w+)$/ - or die "illegal country: ". $cgi->param('country'); - $country = $1; - } 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' ) { - #$payinfo = join('@', map { $cgi->param( $payby. "_payinfo$_" ) } (1,2) ); - $payinfo = $cgi->param($payby. '_payinfo1'). '@'. - $cgi->param($payby. '_payinfo2'); - } else { - $payinfo = $cgi->param( $payby. '_payinfo' ); - } - $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'); - } else { - $invoicing_list = 'POST'; - } - - $error = ''; - - $last = $cgi->param('last'); - $first = $cgi->param('first'); - $ss = $cgi->param('ss'); - $company = $cgi->param('company'); - $address1 = $cgi->param('address1'); - $address2 = $cgi->param('address2'); - $city = $cgi->param('city'); - #$county, - #$state, - $zip = $cgi->param('zip'); - #$country, - $daytime = $cgi->param('daytime'); - $night = $cgi->param('night'); - $fax = $cgi->param('fax'); - - $ship_last = $cgi->param('ship_last'); - $ship_first = $cgi->param('ship_first'); - $ship_ss = $cgi->param('ship_ss'); - $ship_company = $cgi->param('ship_company'); - $ship_address1 = $cgi->param('ship_address1'); - $ship_address2 = $cgi->param('ship_address2'); - $ship_city = $cgi->param('ship_city'); - #$ship_county, - #$ship_state, - $ship_zip = $cgi->param('ship_zip'); - #$ship_country, - $ship_daytime = $cgi->param('ship_daytime'); - $ship_night = $cgi->param('ship_night'); - $ship_fax = $cgi->param('ship_fax'); - - #$payby, - #$payinfo, - #$paydate, - #$payname, - #$invoicing_list, - $referral_custnum = $cgi->param('ref'); - $pkgpart = $cgi->param('pkgpart'); - $username = $cgi->param('username'); - $sec_phrase = $cgi->param('sec_phrase'); - $password = $cgi->param('_password'); - $popnum = $cgi->param('popnum'); - #$agentnum, # = $cgi->param('agentnum'), - $agentnum ||= $cgi->param('agentnum'); - $init_popstate = $cgi->param('init_popstate'); - $refnum = $cgi->param('refnum'); - - if ( $cgi->param('_password') ne $cgi->param('_password2') ) { - $error = $init_data->{msgcat}{passwords_dont_match}; #msgcat - $password = ''; - $password2 = ''; - } else { - $password2 = $cgi->param('_password2'); - - if ( $payby =~ /^(CARD|DCRD)$/ && $cgi->param('CARD_type') ) { - $payinfo =~ s/\D//g; - - $payinfo =~ /^(\d{13,16})$/ - or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo; - $payinfo = $1; - validate($payinfo) - or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo; - cardtype($payinfo) eq $cgi->param('CARD_type') - or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type'); - } - - unless ( $error ) { - - my $r = new_customer ( { - 'last' => $last, - 'first' => $first, - 'ss' => $ss, - 'company' => $company, - 'address1' => $address1, - 'address2' => $address2, - 'city' => $city, - 'county' => $county, - 'state' => $state, - 'zip' => $zip, - 'country' => $country, - 'daytime' => $daytime, - 'night' => $night, - 'fax' => $fax, - 'ship_last' => $ship_last, - 'ship_first' => $ship_first, - 'ship_company' => $ship_company, - 'ship_address1' => $ship_address1, - 'ship_address2' => $ship_address2, - 'ship_city' => $ship_city, - 'ship_county' => $ship_county, - 'ship_state' => $ship_state, - 'ship_zip' => $ship_zip, - 'ship_country' => $ship_country, - 'ship_daytime' => $ship_daytime, - 'ship_night' => $ship_night, - 'ship_fax' => $ship_fax, - 'payby' => $payby, - 'payinfo' => $payinfo, - 'paycvv' => $paycvv, - 'paydate' => $paydate, - 'payname' => $payname, - 'invoicing_list' => $invoicing_list, - 'referral_custnum' => $referral_custnum, - 'promo_code' => scalar($cgi->param('promo_code')), - 'reg_code' => uc(scalar($cgi->param('reg_code'))), - 'pkgpart' => $pkgpart, - 'username' => $username, - 'sec_phrase' => $sec_phrase, - '_password' => $password, - 'popnum' => $popnum, - 'agentnum' => $agentnum, - 'refnum' => $refnum, - map { $_ => $cgi->param($_) } grep { /^snarf_/ } $cgi->param - } ); - $error ||= $r->{'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(); - } - - } else { - die "unrecognized magic: ". $cgi->param('magic'); - } -} else { - #$error = ''; - $last = ''; - $first = ''; - $ss = ''; - $company = ''; - $address1 = ''; - $address2 = ''; - $city = ''; - $state = $init_data->{statedefault}; - $county = ''; - $country = $init_data->{countrydefault}; - $zip = ''; - $daytime = ''; - $night = ''; - $fax = ''; - $ship_last = ''; - $ship_first = ''; - $ship_company = ''; - $ship_address1 = ''; - $ship_address2 = ''; - $ship_city = ''; - $ship_state = $init_data->{statedefault}; - $ship_county = ''; - $ship_country = $init_data->{countrydefault}; - $ship_zip = ''; - $ship_daytime = ''; - $ship_night = ''; - $ship_fax = ''; - $invoicing_list = ''; - $payby = ''; - $payinfo = ''; - $paydate = ''; - $payname = ''; - $pkgpart = ''; - $username = ''; - $password = ''; - $password2 = ''; - $sec_phrase = ''; - $popnum = ''; - $referral_custnum = $cgi->param('ref') || ''; - $init_popstate = $cgi->param('init_popstate') || ''; - $refnum = $init_data->{'refnum'}; - print_form; -} - -sub print_form { - - $cgi->delete('ref'); - $cgi->delete('init_popstate'); - $self_url = $cgi->self_url; - - $error = "Error: $error" if $error; - - print $cgi->header( '-expires' => 'now' ), - $signup_template->fill_in(); - -} - -sub print_decline { - print $cgi->header( '-expires' => 'now' ), - $decline_template->fill_in(); -} - -sub print_okay { - my $user_agent = new HTTP::BrowserDetect $ENV{HTTP_USER_AGENT}; - - $cgi->param('username') =~ /^(.+)$/ - or die "fatal: invalid username got past FS::SelfService::new_customer"; - my $username = $1; - $cgi->param('_password') =~ /^(.+)$/ - or die "fatal: invalid password got past FS::SelfService::new_customer"; - my $password = $1; - ( $cgi->param('first'). ' '. $cgi->param('last') ) =~ /^(.*)$/ - or die "fatal: invalid email_name got past FS::SelfService::new_customer"; - $email_name = $1; #global for template - - my $pop = $popnum2pop{$cgi->param('popnum')}; - #or die "fatal: invalid popnum got past FS::SelfService::new_customer"; - if ( $pop ) { - ( $ac, $exch, $loc ) = ( $pop->{'ac'}, $pop->{'exch'}, $pop->{'loc'} ); - } else { - ( $ac, $exch, $loc ) = ( '', '', ''); #presumably you're not using them. - } - - #global for template - $pkg = ( grep { $_->{'pkgpart'} eq $pkgpart } @$packages )[0]->{'pkg'}; - - if ( $ieak_template && $user_agent->windows && $user_agent->ie ) { - #send an IEAK config - print $cgi->header('application/x-Internet-signup'), - $ieak_template->fill_in(); - } else { #send a simple confirmation - print $cgi->header( '-expires' => 'now' ), - $success_template->fill_in(); - } -} - -sub success_default { #html to use if you don't specify a success file - <<'END'; -Signup successful -Signup successful

-Thanks for signing up! -

-Signup information for <%= $email_name %>: -

-Username: <%= $username %>
-Password: <%= $password %>
-Access number: (<%= $ac %>) / <%= $exch %> - <%= $local %>
-Package: <%= $pkg %>
- -END -} - -sub decline_default { #html to use if there is a decline - <<'END'; -Processing error -Processing error

-There has been an error processing your account. Please contact customer -support. - -END -} - -# subs for the templates... - -=item regionselector SELECTED_COUNTY, SELECTED_STATE, SELECTED_COUNTRY, PREFIX, ONCHANGE - -=cut - -sub regionselector { - my ( $selected_county, $selected_state, $selected_country, - $prefix, $onchange ) = @_; - signup_info() unless $init_data; - FS::SelfService::regionselector({ - selected_county => $selected_county, - selected_state => $selected_state, - selected_country => $selected_country, - prefix => $prefix, - onchange => $onchange, - default_country => $init_data->{countrydefault}, - locales => $init_data->{cust_main_county}, - }); - #default_state => $init_data->{statedefault}, -} - -=item popselector - -=cut - -sub popselector { - my( $popnum ) = @_; - signup_info() unless $init_data; - FS::SelfService::popselector({ - popnum => $popnum, - pops => $init_data->{svc_acct_pop}, - }); - #popac => - #acstate => -} - diff --git a/fs_signup/FS-SignupClient/cgi/signup.html b/fs_signup/FS-SignupClient/cgi/signup.html deleted file mode 100755 index da522f4f4..000000000 --- a/fs_signup/FS-SignupClient/cgi/signup.html +++ /dev/null @@ -1,224 +0,0 @@ -ISP Signup form - - -ISP Signup form

-<%= $error %> -
- - - -Where did you hear about our service?

-Contact Information - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*Contact name
(last, first)		, -
Company
*Address
 
*City*State/Country - <%= - ($county_html, $state_html, $country_html) = - regionselector( $county, $state, $country ); - - "$county_html $state_html"; - %> - *Zip
*Country<%= $country_html %>
Day Phone
Night Phone
Fax
* required fields
-
Billing information - - -<%= scalar(@payby) > 1 ? '' : '' %> -
- - <%= - $OUT .= ' - - Postal mail invoice -
Email invoice -
Billing type
- - - - <%= - - my $cardselect = ''; - - my %payby = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD"). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD"). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", "12-2037"). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP"), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $payby{$payby} .= qq!
CVV2 (help) !; - } - } - - my( $account, $aba ) = split('@', $payinfo); - my %paybychecked = ( - 'CARD' => qq!Credit card
*$cardselect
*Exp !. expselect("CARD", $paydate). qq!
*Name on card
!, - 'DCRD' => qq!Credit card
*$cardselect
*Exp !. expselect("DCRD", $paydate). qq!
*Name on card
!, - 'CHEK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'DCHK' => qq!Electronic check
${r}Account number
${r}ABA/Routing code
${r}Bank name !, - 'LECB' => qq!Phone bill billing
${r}Phone number !, - 'BILL' => qq!Billing
P.O.
*Exp !. expselect("BILL", $paydate). qq!
*Attention
!, - 'COMP' => qq!Complimentary
*Approved by
*Exp !. expselect("COMP", $paydate), - 'PREPAY' => qq!Prepaid card
*!, - ); - - if ( $init_data->{'cvv_enabled'} ) { - foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 - $paybychecked{$payby} .= qq!
CVV2 (help) !; - } - } - - for (@payby) { - if ( scalar(@payby) == 1) { - $OUT .= '"; - } else { - $OUT .= qq!!; - } else { - $OUT .= qq!> $payby{$_}!; - } - - } - } - %> - -
'. - qq!!. - "$paybychecked{$_} $paybychecked{$_}
* required fields for each billing type -

First package - - - - - - - - - - - - - - - - - - -<%= - if ( $init_data->{'security_phrase'} ) { - $OUT .= < - - - -ENDOUT - } else { - $OUT .= ''; - } -%> -<%= - if ( scalar(@$pops) ) { - $OUT .= ''; - } else { - $OUT .= popselector($popnum); - } -%> -
Username
Password
Re-enter Password
Security Phrase -
Access number'. - popselector($popnum). '
-

-
diff --git a/fs_signup/FS-SignupClient/cgi/stateselect.html b/fs_signup/FS-SignupClient/cgi/stateselect.html deleted file mode 100644 index ba55bff74..000000000 --- a/fs_signup/FS-SignupClient/cgi/stateselect.html +++ /dev/null @@ -1,134 +0,0 @@ -ISP Signup -ISP Signup - state selection

- -
-Select your state from the map or dropdown: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
- - diff --git a/fs_signup/FS-SignupClient/cgi/success.html b/fs_signup/FS-SignupClient/cgi/success.html deleted file mode 100644 index 397cc6c30..000000000 --- a/fs_signup/FS-SignupClient/cgi/success.html +++ /dev/null @@ -1,11 +0,0 @@ -Signup successful -Signup successful

-Thanks for signing up! -

-Signup information for <%= $email_name %>: -

-Username: <%= $username %>
-Password: <%= $password %>
-Access number: (<%= $ac %>) / <%= $exch %> - <%= $local %>
-Package: <%= $pkg %>
- -- cgit v1.2.1