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
<%= $OUT .= '
Postal mail invoice
Email invoice
<%= scalar(@payby) > 1 ? '
Billing type
' : '' %>
<%= my $cardselect = '
'; my %types = ( 'VISA' => 'VISA card', 'MasterCard' => 'MasterCard', 'Discover' => 'Discover card', 'American Express' => 'American Express card', ); foreach ( keys %types ) { $selected = $cgi->param('CARD_type') eq $types{$_} ? 'SELECTED' : ''; $cardselect .= qq!
$_
!; } $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 .= '
'. qq!
!. "$paybychecked{$_}
"; } else { $OUT .= qq!
$paybychecked{$_}
!; } else { $OUT .= qq!> $payby{$_}!; } } } %>
*
required fields for each billing type
First package
(none) <%= foreach my $package ( @{$packages} ) { $OUT .= '
{'pkgpart'} == $pkgpart; $OUT .= '>'. $package->{'pkg'}; } %>
Username
Password
Re-enter Password
<%= if ( $init_data->{'security_phrase'} ) { $OUT .= <
Security Phrase
ENDOUT } else { $OUT .= '
'; } %> <%= if ( scalar(@$pops) ) { $OUT .= '
Access number
'. popselector($popnum). '
'; } else { $OUT .= popselector($popnum); } %>
Enter up to ten external accounts from which to retrieve email
Mail server
Username
Password
<%= for my $num ( 1..10 ) { no strict 'vars'; $OUT .= qq!
!. qq!
!. qq!
!. qq!
!. qq!
!; } %>