diff options
Diffstat (limited to 'fs_signup')
-rw-r--r-- | fs_signup/FS-SignupClient/cgi/map.gif | bin | 0 -> 8181 bytes | |||
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup-agentselect.html | 4 | ||||
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 3 | ||||
-rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.html | 4 | ||||
-rw-r--r-- | fs_signup/FS-SignupClient/cgi/stateselect.html | 176 | ||||
-rwxr-xr-x | fs_signup/fs_signup_server | 289 |
6 files changed, 121 insertions, 355 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/map.gif b/fs_signup/FS-SignupClient/cgi/map.gif Binary files differnew file mode 100644 index 000000000..ef884d8f9 --- /dev/null +++ b/fs_signup/FS-SignupClient/cgi/map.gif diff --git a/fs_signup/FS-SignupClient/cgi/signup-agentselect.html b/fs_signup/FS-SignupClient/cgi/signup-agentselect.html index 24513611f..7851c5601 100755 --- a/fs_signup/FS-SignupClient/cgi/signup-agentselect.html +++ b/fs_signup/FS-SignupClient/cgi/signup-agentselect.html @@ -1,7 +1,7 @@ <HTML><HEAD><TITLE>ISP Signup form</TITLE></HEAD> <BODY BGCOLOR="#e8e8e8"><FONT SIZE=7>ISP Signup form</FONT><BR><BR> <FONT SIZE="+1" COLOR="#ff0000"><%= $error %></FONT> -<FORM ACTION="<%= $self_url %>" METHOD=POST> +<FORM NAME="OneTrueForm" ACTION="<%= $self_url %>" METHOD=POST onSubmit="document.OneTrueForm.signup.disabled=true"> <INPUT TYPE="hidden" NAME="magic" VALUE="process"> <INPUT TYPE="hidden" NAME="ref" VALUE="<%= $referral_custnum %>"> <INPUT TYPE="hidden" NAME="ss" VALUE=""> @@ -191,5 +191,5 @@ ENDOUT } %> </TABLE> -<BR><BR><INPUT TYPE="submit" VALUE="Signup"> +<BR><BR><INPUT TYPE="submit" NAME="signup" VALUE="Signup" > </FORM></BODY></HTML> diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 28dc4c95b..fa28bdf66 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,6 +1,7 @@ +#!/usr/bin/perl -T #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.29.2.21 2004-01-04 03:52:57 ivan Exp $ +# $Id: signup.cgi,v 1.29.2.22 2004-10-01 01:38:03 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages diff --git a/fs_signup/FS-SignupClient/cgi/signup.html b/fs_signup/FS-SignupClient/cgi/signup.html index 2b35d4a51..115eee285 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.html +++ b/fs_signup/FS-SignupClient/cgi/signup.html @@ -14,7 +14,7 @@ //--></script> <FONT SIZE=7>ISP Signup form</FONT><BR><BR> <FONT SIZE="+1" COLOR="#ff0000"><%= $error %></FONT> -<FORM ACTION="<%= $self_url %>" METHOD=POST> +<FORM NAME="OneTrueForm" ACTION="<%= $self_url %>" METHOD=POST onSubmit="document.OneTrueForm.signup.disabled=true"> <INPUT TYPE="hidden" NAME="magic" VALUE="process"> <INPUT TYPE="hidden" NAME="ref" VALUE="<%= $referral_custnum %>"> <INPUT TYPE="hidden" NAME="ss" VALUE=""> @@ -211,5 +211,5 @@ ENDOUT } %> </TABLE> -<BR><BR><INPUT TYPE="submit" VALUE="Signup"> +<BR><BR><INPUT TYPE="submit" NAME="signup" VALUE="Signup"> </FORM></BODY></HTML> diff --git a/fs_signup/FS-SignupClient/cgi/stateselect.html b/fs_signup/FS-SignupClient/cgi/stateselect.html index 39823be83..ba55bff74 100644 --- a/fs_signup/FS-SignupClient/cgi/stateselect.html +++ b/fs_signup/FS-SignupClient/cgi/stateselect.html @@ -6,74 +6,128 @@ function gotoURL(object) { } </SCRIPT> <FORM> -Select your state: +Select your state from the map or dropdown: +<MAP NAME=usmap> +<area shape=poly COORDS="264,157,286,155,292,193,276,195,270,199,264,157" href="signup.cgi?init_popstate=AL"> +<area shape=poly COORDS="28,197,46,185,72,199,72,241,88,243,102,261,92,263,70,241,42,243,28,257,12,259,34,243,20,233,16,223,34,215,22,207,30,205,28,197" href="../states/Alaska.html"> +<area shape=poly COORDS="70,137,106,137,100,189,84,187,60,173,70,133,70,137,70,137" href="signup.cgi?init_popstate=AZ"> +<area shape=poly COORDS="250,153,242,179,220,177,218,171,216,145,252,143,250,155,250,153" href="signup.cgi?init_popstate=AR"> +<area shape=poly COORDS="10,79,38,81,30,109,62,151,56,173,40,169,20,145,4,101,10,75,26,79,10,79,10,79" href="signup.cgi?init_popstate=CA"> +<area shape=poly COORDS="108,103,158,107,154,141,104,137,110,101,128,103,108,103" href="signup.cgi?init_popstate=CO"> +<area shape=poly COORDS="374,107,405,105,405,123,372,125,374,107" href="signup.cgi?init_popstate=CT"> +<area shape=poly COORDS="370,143,402,145,405,157,362,157,370,143" href="signup.cgi?init_popstate=DE"> +<area shape=poly COORDS="275,193,325,187,327,197,341,219,341,233,335,237,317,215,315,205,307,195,293,203,275,193" href="signup.cgi?init_popstate=FL"> +<area shape=poly COORDS="297,153,283,155,297,191,321,189,321,169,297,153" href="signup.cgi?init_popstate=GA"> +<area shape=poly COORDS="98,233,142,263,156,251,162,239,164,229,136,231,94,221,100,235,98,233" href="signup.cgi?init_popstate=HI"> +<area shape=poly COORDS="68,21,76,21,72,35,80,47,80,55,84,65,100,69,94,93,56,83,66,51,70,19,68,21" href="signup.cgi?init_popstate=ID"> +<area shape=poly COORDS="242,91,258,89,266,123,256,139,234,109,248,87,242,91" href="signup.cgi?init_popstate=IL"> +<area shape=poly COORDS="261,95,265,123,265,131,285,117,277,91,261,95" href="signup.cgi?init_popstate=IN"> +<area shape=poly COORDS="198,87,206,111,232,109,240,99,240,91,232,79,198,87" href="signup.cgi?init_popstate=IA"> +<area shape=poly COORDS="158,111,158,135,214,139,214,127,208,113,158,111" href="signup.cgi?init_popstate=KS"> +<area shape=poly COORDS="263,133,275,129,289,115,303,121,307,129,299,135,251,141,269,131,263,133" href="signup.cgi?init_popstate=KY"> +<area shape=poly COORDS="222,179,246,179,244,197,258,193,262,213,226,209,224,177,222,179" href="signup.cgi?init_popstate=LA"> +<area shape=poly COORDS="363,37,373,59,373,47,387,31,377,9,365,15,363,37" href="signup.cgi?init_popstate=ME"> +<area shape=poly COORDS="376,159,405,159,405,175,374,177,376,159" href="signup.cgi?init_popstate=MD"> +<area shape=poly COORDS="378,74,380,88,404,88,404,72,378,74" href="signup.cgi?init_popstate=MA"> +<area shape=poly COORDS="265,73,269,83,265,93,293,91,295,71,281,53,271,53,267,69,265,73,265,73" href="signup.cgi?init_popstate=MI"> +<area shape=poly COORDS="194,31,222,33,242,35,224,51,222,63,222,73,234,79,196,85,194,31" href="signup.cgi?init_popstate=MN"> +<area shape=poly COORDS="265,159,271,199,257,201,259,195,241,197,251,155,265,159" href="signup.cgi?init_popstate=MS"> +<area shape=poly COORDS="206,113,234,111,256,139,248,147,214,145,208,111,206,113" href="signup.cgi?init_popstate=MO"> +<area shape=poly COORDS="78,23,148,31,146,67,84,63,78,35,80,19,78,23" href="signup.cgi?init_popstate=MT"> +<area shape=poly COORDS="146,85,148,103,158,105,164,109,206,109,198,85,144,87,146,85" href="signup.cgi?init_popstate=NE"> +<area shape=poly COORDS="40,83,76,87,64,151,32,109,40,83,40,83" href="signup.cgi?init_popstate=NV"> +<area shape=poly COORDS="298,11,330,9,330,25,298,25,298,11" href="signup.cgi?init_popstate=NH"> +<area shape=poly COORDS="372,127,404,125,405,141,368,139,376,125,372,127" href="signup.cgi?init_popstate=NJ"> +<area shape=poly COORDS="106,137,100,191,122,187,148,187,150,139,106,137,106,137" href="signup.cgi?init_popstate=NM"> +<area shape=poly COORDS="313,79,331,63,337,45,349,45,359,65,357,79,345,65,315,77,313,79,313,79" href="signup.cgi?init_popstate=NY"> +<area shape=poly COORDS="309,137,295,151,319,149,337,153,357,131,351,129,309,137,309,137" href="signup.cgi?init_popstate=NC"> +<area shape=poly COORDS="146,31,148,57,198,57,190,31,146,31,146,31" href="signup.cgi?init_popstate=ND"> +<area shape=poly COORDS="281,93,285,113,299,121,311,101,309,85,299,93,281,93,281,93" href="signup.cgi?init_popstate=OH"> +<area shape=poly COORDS="148,145,174,145,174,163,218,171,216,143,150,139,150,145,156,143,148,145,148,145" href="signup.cgi?init_popstate=OK"> +<area shape=poly COORDS="20,41,8,73,16,77,22,77,28,77,36,79,42,81,48,83,56,83,66,49,20,41,20,41" href="signup.cgi?init_popstate=OR"> +<area shape=poly COORDS="309,83,345,71,351,93,313,105,309,83,309,83" href="signup.cgi?init_popstate=PA"> +<area shape=poly COORDS="376,93,405,93,405,107,376,105,376,93" href="signup.cgi?init_popstate=RI"> +<area shape=poly COORDS="301,155,321,149,337,155,325,175,301,157,301,155,301,155" href="signup.cgi?init_popstate=SC"> +<area shape=poly COORDS="146,59,198,61,198,83,146,83,148,57,146,59,146,59" href="signup.cgi?init_popstate=SD"> +<area shape=poly COORDS="255,145,251,157,297,153,311,133,255,145,255,145" href="signup.cgi?init_popstate=TN"> +<area shape=poly COORDS="150,145,172,145,174,167,198,173,218,173,228,207,204,221,198,231,202,247,180,241,154,207,146,219,120,189,154,189,152,145,150,145,150,145" href="signup.cgi?init_popstate=TX"> +<area shape=poly COORDS="78,89,96,91,96,103,110,103,106,135,70,133,78,89,78,89" href="signup.cgi?init_popstate=UT"> +<area shape=poly COORDS="298,29,332,29,332,47,294,45,298,29" href="signup.cgi?init_popstate=VT"> +<area shape=poly COORDS="307,127,297,137,351,127,349,113,341,111,341,105,329,107,315,131,307,127,307,127" href="signup.cgi?init_popstate=VA"> +<area shape=poly COORDS="32,13,68,19,64,47,20,39,20,13,30,19,32,13,32,13" href="signup.cgi?init_popstate=WA"> +<area shape=poly COORDS="303,119,313,129,329,103,311,105,299,121,313,127,303,119,303,119" href="signup.cgi?init_popstate=WV"> +<area shape=poly COORDS="228,51,256,55,254,89,238,89,234,77,224,71,230,49,236,53,228,51,228,51" href="signup.cgi?init_popstate=WI"> +<area shape=poly COORDS="146,71,144,103,96,99,102,63,148,69,146,71,146,71" href="signup.cgi?init_popstate=WY"> +</MAP> +<IMG SRC="map.gif" usemap=#usmap WIDTH=405 HEIGHT=270 border=0><BR> <SELECT NAME="init_popstate" onChange="gotoURL(this.form.init_popstate)"> <OPTION VALUE="stateselect.html"></OPTION> -<OPTION VALUE="signup.cgi?init_popstate=AL">ALABAMA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=AK">ALASKA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=AS">AMERICAN SAMOA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=AZ">ARIZONA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=AR">ARKANSAS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=CA">CALIFORNIA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=CO">COLORADO</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=CT">CONNECTICUT</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=DE">DELAWARE</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=DC">DISTRICT OF COLUMBIA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=FM">FEDERATED STATES OF MICRONESIA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=FL">FLORIDA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=GA">GEORGIA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=GU">GUAM</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=HI">HAWAII</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=ID">IDAHO</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=IL">ILLINOIS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=IN">INDIANA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=IA">IOWA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=KS">KANSAS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=KY">KENTUCKY</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=LA">LOUISIANA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=ME">MAINE</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MH">MARSHALL ISLANDS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MD">MARYLAND</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MA">MASSACHUSETTS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MI">MICHIGAN</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MN">MINNESOTA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MS">MISSISSIPPI</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MO">MISSOURI</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MT">MONTANA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=NE">NEBRASKA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=NV">NEVADA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=NH">NEW HAMPSHIRE</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=NJ">NEW JERSEY</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=NM">NEW MEXICO</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=NY">NEW YORK</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=NC">NORTH CAROLINA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=ND">NORTH DAKOTA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=MP">NORTHERN MARIANA ISLANDS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=OH">OHIO</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=OK">OKLAHOMA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=OR">OREGON</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=PW">PALAU</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=PA">PENNSYLVANIA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=PR">PUERTO RICO</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=RI">RHODE ISLAND</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=SC">SOUTH CAROLINA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=SD">SOUTH DAKOTA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=TN">TENNESSEE</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=TX">TEXAS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=UT">UTAH</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=VT">VERMONT</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=VI">VIRGIN ISLANDS</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=VA">VIRGINIA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=WA">WASHINGTON</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=WV">WEST VIRGINIA</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=WI">WISCONSIN</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=WY">WYOMING</OPTION> -<OPTION VALUE="signup.cgi?init_popstate=AE">Armed Forces Africa</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=AL">Alabama</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=AK">Alaska</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=AS">American Samoa</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=AZ">Arizona</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=AR">Arkansas</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=CA">California</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=CO">Colorado</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=CT">Connecticut</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=DE">Delaware</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=DC">District of Columbia</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=FM">Federated States of Micronesia</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=FL">Florida</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=GA">Georgia</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=GU">Guam</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=HI">Hawaii</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=ID">Idaho</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=IL">Illinois</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=IN">Indiana</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=IA">Iowa</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=KS">Kansas</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=KY">Kentucky</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=LA">Louisiana</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=ME">Maine</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=MH">Marshall Islands</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=MD">Maryland</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=MA">Massachusetts</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=MI">Michigan</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=MN">Minnesota</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=MS">Mississippi</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=MO">Missouri</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=MT">Montana</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=NE">Nebraska</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=NV">Nevada</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=NH">New Hampshire</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=NJ">New Jersey</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=NM">New Mexico</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=NY">New York</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=NC">North Carolina</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=ND">North Dakota</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=MP">Northern Mariana Islands</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=OH">Ohio</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=OK">Oklahoma</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=OR">Oregon</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=PW">Palau</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=PA">Pennsylvania</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=PR">Puerto Rico</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=RI">Rhode Island</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=SC">South Carolina</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=SD">South Dakota</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=TN">Tennessee</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=TX">Texas</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=UT">Utah</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=VT">Vermont</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=VI">Virgin Islands</OPTION>--> +<OPTION VALUE="signup.cgi?init_popstate=VA">Virginia</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=WA">Washington</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=WV">West Virginia</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=WI">Wisconsin</OPTION> +<OPTION VALUE="signup.cgi?init_popstate=WY">Wyoming</OPTION> +<!--<OPTION VALUE="signup.cgi?init_popstate=AE">Armed Forces Africa</OPTION> <OPTION VALUE="signup.cgi?init_popstate=AA">Armed Forces Americas</OPTION> <OPTION VALUE="signup.cgi?init_popstate=AE">Armed Forces Canada</OPTION> <OPTION VALUE="signup.cgi?init_popstate=AE">Armed Forces Europe</OPTION> <OPTION VALUE="signup.cgi?init_popstate=AE">Armed Forces Middle East</OPTION> <OPTION VALUE="signup.cgi?init_popstate=AP">Armed Forces Pacific</OPTION> +--> </SELECT> </FORM> </BODY> diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server deleted file mode 100755 index d6eb4a8d5..000000000 --- a/fs_signup/fs_signup_server +++ /dev/null @@ -1,289 +0,0 @@ -#!/usr/bin/perl -Tw -# -# fs_signup_server -# - -use strict; -use vars qw($pid); -use IO::Handle; -use Storable qw(nstore_fd fd_retrieve); -use Tie::RefHash; -use Net::SSH qw(sshopen2); -use FS::UID qw(adminsuidsetup); -use FS::Conf; -use FS::Record qw( qsearch qsearchs ); -use FS::cust_main_county; -use FS::cust_main; -use FS::cust_bill; -use FS::cust_pkg; -use FS::Msgcat qw(gettext); - -use vars qw( $opt $Debug ); - -$Debug = 2; - -my $user = shift or die &usage; -&adminsuidsetup( $user ); - -my $conf = new FS::Conf; - -if ($conf->exists('signup_server-quiet')) { - $FS::cust_bill::quiet = 1; - $FS::cust_pkg::quiet = 1; -} - -#my @payby = qw(CARD PREPAY); -my @payby = $conf->config('signup_server-payby'); -my $smtpmachine = $conf->config('smtpmachine'); - -my $machine = shift or die &usage; - -my $agentnum = shift or die &usage; -my $agent = qsearchs( 'agent', { 'agentnum' => $agentnum } ) or die &usage; -my $pkgpart_href = $agent->pkgpart_hashref; - -my $refnum = shift or die &usage; - -#causing trouble for some folks -#$SIG{CHLD} = sub { wait() }; - -$SIG{HUP} = \&killssh; -$SIG{INT} = \&killssh; -$SIG{QUIT} = \&killssh; -$SIG{TERM} = \&killssh; -$SIG{PIPE} = \&killssh; -sub killssh { kill 'TERM', $pid if $pid; exit; }; - -my($fs_signupd)="/usr/local/sbin/fs_signupd"; - -while (1) { - my($reader,$writer)=(new IO::Handle, new IO::Handle); - #seems to be broken - calling ->flush explicitly# $writer->autoflush(1); - warn "[fs_signup_server] Connecting to $machine...\n" if $Debug; - $pid = sshopen2($machine,$reader,$writer,$fs_signupd); - - my @pops = qsearch('svc_acct_pop',{} ); - my $init_data = { - - #'_protocol' => 'signup', - #'_version' => '0.1', - #'_packet' => 'init' - - 'cust_main_county' => - [ map { $_->hashref } qsearch('cust_main_county', {}) ], - - 'part_pkg' => - [ - #map { $_->hashref } - map { { 'payby' => [ $_->payby ], %{$_->hashref} } } - grep { $_->svcpart('svc_acct') && $pkgpart_href->{ $_->pkgpart } } - qsearch( 'part_pkg', { 'disabled' => '' } ) - ], - - 'agentnum2part_pkg' => - { - map { - my $href = $_->pkgpart_hashref; - $_->agentnum => - [ - map { { 'payby' => [ $_->payby ], %{$_->hashref} } } - grep { $_->svcpart('svc_acct') && $href->{ $_->pkgpart } } - qsearch( 'part_pkg', { 'disabled' => '' } ) - ]; - } qsearch('agent', {} ) - }, - - 'svc_acct_pop' => [ map { $_->hashref } @pops ], - - 'security_phrase' => $conf->exists('security_phrase'), - - 'payby' => [ $conf->config('signup_server-payby') ], - - 'msgcat' => { map { $_=>gettext($_) } qw( - passwords_dont_match invalid_card unknown_card_type not_a - ) }, - - 'statedefault' => $conf->config('statedefault') || 'CA', - - 'countrydefault' => $conf->config('countrydefault') || 'US', - - }; - - warn "[fs_signup_server] Sending init data...\n" if $Debug; - nstore_fd($init_data, $writer) or die "can't send init data: $!"; - $writer->flush; - - warn "[fs_signup_server] Entering main loop...\n" if $Debug; - while (1) { - warn "[fs_signup_server] Reading (waiting for) signup data...\n" if $Debug; - my $signup_data = fd_retrieve($reader); - - if ( $Debug > 1 ) { - warn join('', - map { " $_ => ". $signup_data->{$_}. "\n" } keys %$signup_data ); - } - - warn "[fs_signup_server] Processing signup...\n" if $Debug; - - my $error = ''; - - #things that aren't necessary in base class, but are for signup server - #return "Passwords don't match" - # if $hashref->{'_password'} ne $hashref->{'_password2'} - $error ||= gettext('empty_password') unless $signup_data->{'_password'}; - $error ||= gettext('no_access_number_selected') - unless $signup_data->{'popnum'} || !scalar(@pops); - - #shares some stuff with htdocs/edit/process/cust_main.cgi... take any - # common that are still here and library them. - my $cust_main = new FS::cust_main ( { - #'custnum' => '', - 'agentnum' => $signup_data->{agentnum} || $agentnum, - 'refnum' => $refnum, - - map { $_ => $signup_data->{$_} } qw( - last first ss company address1 address2 city county state zip country - daytime night fax payby payinfo paydate payname referral_custnum comments - ), - - } ); - - $error ||= "Illegal payment type" - unless grep { $_ eq $signup_data->{'payby'} } @payby; - - $cust_main->payinfo($cust_main->daytime) - if $cust_main->payby eq 'LECB' && ! $cust_main->payinfo; - - my @invoicing_list = split( /\s*\,\s*/, $signup_data->{'invoicing_list'} ); - - $signup_data->{'pkgpart'} =~ /^(\d+)$/ or '' =~ /^()$/; - my $pkgpart = $1; - - my $part_pkg = - qsearchs( 'part_pkg', { 'pkgpart' => $pkgpart } ) - or $error ||= "WARNING: unknown pkgpart: $pkgpart"; - my $svcpart = $part_pkg->svcpart('svc_acct') unless $error; - - my $cust_pkg = new FS::cust_pkg ( { - #later#'custnum' => $custnum, - 'pkgpart' => $signup_data->{'pkgpart'}, - } ); - $error ||= $cust_pkg->check; - - my $svc_acct = new FS::svc_acct ( { - 'svcpart' => $svcpart, - map { $_ => $signup_data->{$_} } - qw( username _password sec_phrase popnum ), - } ); - - my $y = $svc_acct->setdefault; # arguably should be in new method - $error ||= $y unless ref($y); - - $error ||= $svc_acct->check; - - use Tie::RefHash; - tie my %hash, 'Tie::RefHash'; - %hash = ( $cust_pkg => [ $svc_acct ] ); - $error ||= $cust_main->insert( \%hash, \@invoicing_list ); #msgcat - - if ( ! $error && $conf->exists('signup_server-realtime') ) { - - warn "[fs_signup_server] Billing customer...\n" if $Debug; - - my $bill_error = $cust_main->bill; - warn "[fs_signup_server] error billing new customer: $bill_error" - if $bill_error; - - $cust_main->apply_payments; - $cust_main->apply_credits; - - $bill_error = $cust_main->collect; - warn "[fs_signup_server] error collecting from new customer: $bill_error" - if $bill_error; - - if ( $cust_main->balance > 0 ) { - - #this makes sense. credit is "un-doing" the invoice - $cust_main->credit( $cust_main->balance, 'signup server decline' ); - $cust_main->apply_credits; - - #should check list for errors... - #$cust_main->suspend; - $cust_main->cancel; - - $error = '_decline'; - } - } - - warn "[fs_signup_server] Sending results...\n" if $Debug; - print $writer $error, "\n"; - - next if $error; - - if ( $conf->config('signup_server-email') ) { - warn "[fs_signup_server] Sending email...\n" if $Debug; - - #false laziness w/FS::cust_bill::send & FS::cust_pay::delete - use Mail::Header; - use Mail::Internet 1.44; - use Date::Format; - my $from = $conf->config('invoice_from'); #??? as good as any - $ENV{MAILADDRESS} = $from; - my $header = new Mail::Header ( [ - "From: $from", - "To: ". $conf->config('signup_server-email'), - "Sender: $from", - "Reply-To: $from", - "Date: ". time2str("%a, %d %b %Y %X %z", time), - "Subject: FREESIDE NOTIFICATION: Signup Server", - ] ); - my $body = [ - "This is an automatic message from your Freeside installation\n", - "informing you a customer has signed up via the signup server:\n", - "\n", - 'custnum : '. $cust_main->custnum. "\n", - 'Name : '. $cust_main->last. ", ". $cust_main->first. "\n", - 'Agent : '. $cust_main->agent->agent. "\n", - 'Package : '. $part_pkg->pkg. ' - '. $part_pkg->comment. "\n", - 'Signup Date : '. time2str('%C', time). "\n", - 'Username : '. $svc_acct->username. "\n", - #'Password : '. # config file to turn this on if noment insists - 'Day phone : '. $cust_main->daytime. "\n", - 'Night phone : '. $cust_main->night. "\n", - 'Address : '. $cust_main->address1. "\n", - ( $cust_main->address2 - ? ' '. $cust_main->address2. "\n" - : '' ), - ' '. $cust_main->city. ', '. $cust_main->state. ' '. - $cust_main->zip. "\n", - ( $cust_main->country eq 'US' - ? '' - : ' '. $cust_main->country. "\n" ), - "\n", - ]; - #if ( $cust_main->balance > 0 ) { - # push @$body, - # "This customer has an outstanding balance and has been suspended.\n"; - #} - my $message = new Mail::Internet ( 'Header' => $header, 'Body' => $body ); - $!=0; - $message->smtpsend( Host => $smtpmachine ) - or $message->smtpsend( Host => $smtpmachine, Debug => 1 ) - or warn "[fs_signup_server] can't send email to ". - $conf->config('signup_server-email'). - " via server $smtpmachine with SMTP: $!"; - #end-of-send mail - } - - } - close $writer; - close $reader; - warn "connection to $machine lost! waiting 60 seconds...\n"; - sleep 60; - warn "reconnecting...\n"; -} - -sub usage { - die "Usage:\n\n fs_signup_server user machine agentnum refnum\n"; -} - |