Products & Services | Insufficient Information

#!/usr/bin/perl # req-quote.cgi - handles online service requests $0="dsl-req.cgi"; $next="dsl-req2.cgi"; # host, urlpath, auth or subroutine, extra info regex, speeds, postdata, # hash of regexs by service, hash of substitutions, hash of adsl up speeds %PROVIDER=( 'Netrail/C' => ['dslqual.zyan.com', # prequal script location '/netrail/dsl.cgi', # authorization string 'bmV0cmFpbDpld2FtNDg1OA==', # extra information the provider gives us { 'Covad Wire Distance' => '([0-9.]+ miles $[0-9]+ feet$)', }, # available speeds (in case they just give us the maximum) '', # query string (GET type begins with '?') '?phone=%s%s%s&street=%s&city=%s&state=%s&zip=%s&&map=No&telco=Covad', # foreach service regex should return speed, type {'Business' => 'TeleSpeed ([0-9.]+)(\<)', 'Residential' => 'Tele(Surfer|Surfer Pro|Speed) (ADSL|144)', }, # fixup regex's for dsl types { '\<' => 'SDSL', '144' => 'IDSL', }, # maps adsl downspeeds to upspeeds {'608' => '128', '1500' => '384'}, # fixup regex's for dsl speeds { 'Surfer Pro' => '1500', 'Surfer' => '608', 'Speed' => '144', } ], 'Netrail/N' => ['dslqual.zyan.com', # prequal script location '/netrail/dsl.cgi', # authorization string 'bmV0cmFpbDpld2FtNDg1OA==', # extra information the provider gives us { 'NorthPoint Wire Distance' => '([0-9.]+ miles $[0-9]+ feet$)', }, # available speeds (in case they just give us the maximum) '', # query string (GET type begins with '?') '?phone=%s%s%s&street=%s&city=%s&state=%s&zip=%s&&map=No&telco=Covad', # foreach service regex should return speed, type {'Business' => '\([0-9.]+)(\<)', }, # fixup regex's for dsl types { '\<' => 'SDSL', }, # maps adsl downspeeds to upspeeds {}, # fixup regex's for dsl speeds {} ], ); # the following providers are excluded from the list foreach('Netrail/N') { delete $PROVIDER{$_}; } # This line prepares the server to parse HTML style output print "Content-type: text/html\n\n"; print ""; print join('',`cat $ENV{'DOCUMENT_ROOT'}/stdhdr.html`)."

"; # Get input from the form if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer=$ENV{'QUERY_STRING'}; } $buffer =~ s/\000//g; # Split the buffer into name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } #if($FORM{'Service'} ne "" and !exists($PRICE{$FORM{'Service'}})) { # print <Products & Services | DSL - Invalid Service #We do not currently have pricing for that type of service.

#EOF # print join('',`cat $ENV{'DOCUMENT_ROOT'}/stdftr.html`); # print ""; # exit; #} if(scalar keys %FORM < 2) { print <Products & Services | $FORM{Service} DSL - PreQual Service

$FORM{Service} DSL Pre-Qualification Form:

To determine if your location qualifies for $FORM{Service} DSL service and if so what levels of that service, please complete the following web-based form.

Note: Exact information is needed. If the phone number does not correspond to the street address provided, you will not get the proper results.

EOF print join('',`cat $ENV{'DOCUMENT_ROOT'}/stdftr.html`); print ""; exit; } # Check that required fields are filled in foreach("FRM_ADDR", "FRM_CITY", "FRM_STATE", "FRM_ZIP", "FRM_NPA", "FRM_NXX", "FRM_XXXX") { &blank_response if($FORM{$_} eq ''); $FRM{$_}=$FORM{$_}; $FRM{$_}=~s/([^0-9A-Za-z])/sprintf("%%%02x",ord($1))/ge; } foreach("FRM_NPA", "FRM_NXX", "FRM_XXXX") { &blank_response if(length($FORM{$_}) != length($_)-4); } $dsl=getDSL($FRM{"FRM_NPA"}, $FRM{"FRM_NXX"}, $FRM{"FRM_XXXX"}, $FRM{"FRM_ADDR"}, $FRM{"FRM_CITY"}, $FRM{"FRM_STATE"}, $FRM{"FRM_ZIP"}); print < EOF if($dsl==0) { print <Products & Services | DSL - Service Unavailable Based on your location, $FORM{Service} DSL is currently not available, we expect to have service to this area in the near future as the coverage for DSL grows. Please feel free to check back with us on a monthly basis.

EOF print <here.

EOF } else { my $serv=lc $FORM{'Service'}; my $table; print <Products & Services | DSL - $FORM{Service} Service Available Based on your location you qualify for our $serv service:
EOF foreach(sort keys %DSL) { my $type=$_; foreach(sort {$a<=>$b} @{$DSL{$_}}) { $table.="$type$_ Kbps"; push(@options, "$type $_ Kbps"); $FORM{$type}.="$_,"; } $FORM{$type}=~s/,$//; } print < $table

Type Speed

EOF $accts="$FORM{Service} DSL"; if($#options >= 0) { $accts=""; } print <

To sign up now for $accts service

To have a DSL representative phone you to further discuss your needs.
EOF $extras=''; foreach(sort keys %EXTRA) { $extras.="$_: $EXTRA{$_}\n"; } $extras=~s/([^0-9A-Za-z])/sprintf("%%%02x",ord($1))/ge; print "" if($extras ne ''); foreach(keys %FORM) { print ""; } print ""; } print join('',`cat $ENV{'DOCUMENT_ROOT'}/stdftr.html`); print ""; exit; # Insufficient Info Response # Put up a web page asking the user to complete the required fields. # Remember to put a literal escape (backslash) in front of all quotes in the HTML sub blank_response { print "Products & Services | Insufficient Information"; print "

Sorry, your DSL pre-qualification form was not properly completed.

"; print "In order to process your request, we need all the DSL location information.

"; print "Please use the \"Back\" command in your browser to return to the form and supply the necessary information.

"; print "If you wish to abandon the form, simply use the icons below to go on to any portion of the AIC Web Site or go back to the AIC Home Page

"; print join('',`cat $ENV{'DOCUMENT_ROOT'}/stdftr.html`); print ""; exit; } use Socket; sub getDSL { foreach(keys %PROVIDER) { $provider=$_; $regex=${$PROVIDER{$provider}[6]}{$FORM{'Service'}}; next if($regex eq '' and $PROVIDER{$provider}[3] eq ''); if(ref $PROVIDER{$provider}[2] ne 'CODE') { $postdata=sprintf($PROVIDER{$provider}[5], @_); $len=length($postdata)+1; socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')); connect(SOCKET, sockaddr_in(80, inet_aton($PROVIDER{$provider}[0]))); select(SOCKET); $|=1; select(STDOUT); if($postdata=~s/^\?//) { print SOCKET <) { if($PROVIDER{$provider}[3] ne '') { my $line=$_; grep { $EXTRA{$_}=$1 if($line=~m/${$PROVIDER{$provider}[3]}{$_}/); } (keys %{$PROVIDER{$provider}[3]}); } if($regex ne '' and m/$regex/) { my $speed=$1; my $service=$2; grep { $speed=~s/$_/${$PROVIDER{$provider}[9]}{$_}/g; } (keys %{$PROVIDER{$provider}[9]}); $speed*=1000 if($speed=~m/\./); grep { $service=~s/$_/${$PROVIDER{$provider}[7]}{$_}/g; } (keys %{$PROVIDER{$provider}[7]}); $service='IDSL' if($speed == 144); @speed=( $speed ); if(ref($PROVIDER{$provider}[4]) eq 'ARRAY') { grep { push(@speed, $_) if($_ < $speed); } @{$PROVIDER{$provider}[4]}; } grep({s/$/\/${$PROVIDER{$provider}[8]}{$_}/}, @speed) if($service eq 'ADSL'); if(ref($DSL{$service}) ne 'ARRAY') { $DSL{$service}=[ @speed ]; } else { push(@{$DSL{$service}},@speed); } } } close(SOCKET); } return(keys %DSL); } sub npGet { ## get the session cookie ## socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')); select(SOCKET); $|=1; select(STDOUT); connect(SOCKET, sockaddr_in(80, inet_aton("prequal.northpointcom.com"))); print SOCKET <) { $cookie=$1 if(m/^Set-(Cookie: [^\s]*); /m); } close(SOCKET); ## log in to the session ## socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')); connect(SOCKET, sockaddr_in(80, inet_aton("prequal.northpointcom.com"))); print SOCKET <) {}; close(SOCKET); $postdata="submitbutton=PreQual%20this%20address&FRM_NPA=$_[0]&FRM_NXX=$_[1]&FRM_XXXX=$_[2]&FRM_ADDR=$_[3]&FRM_CITY=$_[4]&FRM_STATE=$_[5]&FRM_ZIP=$_[6]"; $len=length($postdata)+1; ## ask about the service ## socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')); connect(SOCKET, sockaddr_in(80, inet_aton("prequal.northpointcom.com"))); print SOCKET <

Phone:	() -
Street Address:
City:
State:
Zip:
Business Residential

	To sign up now for $accts service
	To have a DSL representative phone you to further discuss your needs.