#!/usr/bin/perl print "Content-type: text/html\n\n"; use CGI qw/:standard/; use DBI; use CGI::Session; require ("mpgClasses.pl"); #----- Today's date in yyyy-mm-dd format ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime(time); my $actualmm = $Month + 1; $fixedyy = $Year + 1900; $ntoday_date = ($fixedyy * 10000) + ($actualmm * 100) + $Day; if($actualmm < 10) { $actualmm = "0" . $actualmm; } if($Day < 10) { $Day = "0" . $Day; } $vtoday_date = "$fixedyy-$actualmm-$Day"; #----- Retrieve the query parameters $vsponsorid = param("sponsorid"); $vcoupon_id = param("coupon_id"); $vcoupon_id = "XLV08002"; $vlastname = param("lastname"); $vfirstname = param("firstname"); $vmi = param("mi"); $vaddress1 = param("address1"); $vaddress2 = param("address2"); $vcity = param("city"); $vprovstate = param("provstate"); $vpczip = param("pczip"); $vcurphoneorig = param("curphone"); $vcurphone = param("curphone"); $vemailadd = param("emailadd"); $vremailadd = param("remailadd"); $vplancd = param("plancd"); $vcontract1 = param("contract1"); $vusage = param("usage"); $vwish = param("wish"); $vcurphoneco = param("curphoneco"); $vareacodewish = param("areacodewish"); $visp = param("isp"); $vcctype = param("cctype"); $vccfirstname = param("ccfirstname"); $vcclastname = param("cclastname"); $vccnumber = param("ccnumber"); $vccexpiry = param("ccexpiry"); $vccverify = param("ccverify"); $vbillsame = param("billsame"); $vbaddress1 = param("baddress1"); $vbaddress2 = param("baddress2"); $vbcity = param("bcity"); $vbprovstate = param("bprovstate"); $vbpczip = param("bpczip"); $vshipsame = param("shipsame"); $vsaddress1 = param("saddress1"); $vsaddress2 = param("saddress2"); $vscity = param("scity"); $vsprovstate = param("sprovstate"); $vspczip = param("spczip"); $vjoine = param("joine"); $vplanname = param("planname"); $vplandesc = param("plandesc"); $vplanprice = param("planprice"); $veqr = param("eqr"); $vtmc = param("tmc"); $vec = param("ec"); #$vfmf = param("fmf"); $vrd = param("rd"); $vaf = param("af"); $veg = param("eg"); $vsh = param("sh"); $vst = param("st"); $vtax = param("tax"); $vstbd = param("stbd"); $vcd = param("cd"); $vtotal = param("total"); $vagree = param("agree"); $vdonotship = param("donotship"); $veqoption = param("eqoption"); $vnextstep = param("nextstep"); $vtries = param("tries"); $vthisnext = param("thisnext"); $vccfullname = "$vccfirstname " . "$vcclastname"; $vgst = param("gst"); $pst = param("pst"); $ip = $ENV{'REMOTE_ADDR'}; #-- create the session on first try if ("$vtries" eq "") { #----- delete the session if existing if (param("XLSUSID") ne '') { $vXLSUSID = param("XLSUSID"); $xlsusess = new CGI::Session(undef, $vXLSUSID, {Directory=>'/tmp'}); $xlsusess->delete(); } #----- new session CGI::Session->name("XLSUSID"); $xlsusess = new CGI::Session("driver:File", undef, {Directory=>'/tmp'}); $vXLSUSID = $xlsusess->id; $xlsusess->param('expirethis', 'Yes'); } else { $vXLSUSID = param("XLSUSID"); } if ("$vtries" eq "") { $vtries = 0; } if ($vtries eq 3) { #-- delete the session #----- Retrieve the query parameters $vXLSUSID = param('XLSUSID'); #----- delete the session if existing if ("$vXLSUSID" ne "") { $xlsusess = new CGI::Session(undef, $vXLSUSID, {Directory=>'/tmp'}); $xlsusess->delete(); } push (@xrlarr, "", "", "XLVOX Signup", "", "", "", "", "", "", ""); foreach $xrv (@xrlarr) { print "$xrv\n"; } } if ("$vsponsorid" eq "") { $vsponsorid = '00000000'; } if ("$vnextstep" eq "") { $vnextstep = 'Step1'; } $vaction = "/cgi-bin/signup.cgi"; #----- Retrieve the query parameters if ("$vplancd" eq "") { $pl = param("pl"); } else { $pl = "$vplancd"; } $plRLselected = " "; $plRUselected = " "; $plBLselected = " "; $plBUselected = " "; $plFWselected = " "; $plXNselected = " "; $plNAselected = " "; if ("$pl" eq "RL") { $plRLselected = "selected='selected'"; } elsif ("$pl" eq "RU") { $plRUselected = "selected='selected'"; } elsif ("$pl" eq "BL") { $plBLselected = "selected='selected'"; } elsif ("$pl" eq "BU") { $plBUselected = "selected='selected'"; } elsif ("$pl" eq "FW") { $plFWselected = "selected='selected'"; } elsif ("$pl" eq "XN") { $plXNselected = "selected='selected'"; } else { $plNAselected = "selected='selected'"; } if ("$vcontract1" eq "") { $ct = param("contract1"); } else { $ct = "$vcontract1"; } $c0NoContract = " "; $c1Year = " "; $c2Years = " "; $c3Years = " "; if ("$ct" eq "0") { $c0NoContract = "selected='selected'"; } elsif ("$ct" eq "1") { $c1Year = "selected='selected'"; } elsif ("$ct" eq "2") { $c2Years = "selected='selected'"; } elsif ("$ct" eq "3") { $c3Years = "selected='selected'"; } $vusageYchecked = " "; $vusageNchecked = " "; if ("$vusage" eq "N") { $vusageNchecked = "checked"; } else { $vusageYchecked = "checked"; } $vwishW1checked = " "; $vwishW2checked = " "; if ("$vwish" eq "W2") { $vwishW2checked = "checked"; } else { $vwishW1checked = "checked"; } if ( ("$vbillsame" eq "") and ("$vbaddress1" eq "") ) { $vbillsameYchecked = "checked"; } elsif ("$vbillsame" eq "Y") { $vbillsameYchecked = "checked"; } else { $vbillsameYchecked = " "; } if ( ("$vshipsame" eq "") and ("$vsaddress1" eq "") ) { $vshipsameYchecked = "checked"; } elsif ("$vshipsame" eq "Y") { $vshipsameYchecked = "checked"; } else { $vshipsameYchecked = " "; } if ("$vdonotship" eq "P") { $vdonotshipPchecked = "checked"; } else { $vdonotshipPchecked = " "; } if ("$vjoine" eq "J") { $vjoinJchecked = "checked"; } else { $vjoinJchecked = " "; } $veqoptionBchecked = " "; $veqoptionRchecked = " "; $veqoptionOchecked = " "; $veqoptionBcolor = "black"; $veqoptionRcolor = "black"; $veqoptionOcolor = "black"; if ("$veqoption" eq "B") { $veqoptionBchecked = "checked"; $veqoptionBcolor = "green"; } elsif ("$veqoption" eq "R") { $veqoptionRchecked = "checked"; $veqoptionRcolor = "green"; } elsif ("$veqoption" eq "O") { $veqoptionOchecked = "checked"; $veqoptionOcolor = "green"; } #--- else { $veqoptionBchecked = "checked"; $veqoptionBcolor = "green"; } $vprovstateNONEselected = ""; $vprovstateCAABselected = ""; $vprovstateCABCselected = ""; $vprovstateCAMBselected = ""; $vprovstateCANBselected = ""; $vprovstateCANLselected = ""; $vprovstateCANSselected = ""; $vprovstateCANTselected = ""; $vprovstateCANUselected = ""; $vprovstateCAONselected = ""; $vprovstateCAPEselected = ""; $vprovstateCAQCselected = ""; $vprovstateCASKselected = ""; $vprovstateCAYTselected = ""; $vprovstateUSAKselected = ""; $vprovstateUSALselected = ""; $vprovstateUSARselected = ""; $vprovstateUSASselected = ""; $vprovstateUSAZselected = ""; $vprovstateUSCAselected = ""; $vprovstateUSCOselected = ""; $vprovstateUSCTselected = ""; $vprovstateUSDCselected = ""; $vprovstateUSDEselected = ""; $vprovstateUSFLselected = ""; $vprovstateUSFMselected = ""; $vprovstateUSGAselected = ""; $vprovstateUSGUselected = ""; $vprovstateUSHIselected = ""; $vprovstateUSIAselected = ""; $vprovstateUSIDselected = ""; $vprovstateUSILselected = ""; $vprovstateUSINselected = ""; $vprovstateUSKSselected = ""; $vprovstateUSKYselected = ""; $vprovstateUSLAselected = ""; $vprovstateUSMAselected = ""; $vprovstateUSMDselected = ""; $vprovstateUSMEselected = ""; $vprovstateUSMHselected = ""; $vprovstateUSMIselected = ""; $vprovstateUSMNselected = ""; $vprovstateUSMOselected = ""; $vprovstateUSMPselected = ""; $vprovstateUSMSselected = ""; $vprovstateUSMTselected = ""; $vprovstateUSNCselected = ""; $vprovstateUSNDselected = ""; $vprovstateUSNEselected = ""; $vprovstateUSNHselected = ""; $vprovstateUSNJselected = ""; $vprovstateUSNMselected = ""; $vprovstateUSNVselected = ""; $vprovstateUSNYselected = ""; $vprovstateUSOHselected = ""; $vprovstateUSOKselected = ""; $vprovstateUSORselected = ""; $vprovstateUSPAselected = ""; $vprovstateUSPRselected = ""; $vprovstateUSPWselected = ""; $vprovstateUSRIselected = ""; $vprovstateUSSCselected = ""; $vprovstateUSSDselected = ""; $vprovstateUSTNselected = ""; $vprovstateUSTXselected = ""; $vprovstateUSUTselected = ""; $vprovstateUSVAselected = ""; $vprovstateUSVIselected = ""; $vprovstateUSVTselected = ""; $vprovstateUSWAselected = ""; $vprovstateUSWIselected = ""; $vprovstateUSWVselected = ""; $vprovstateUSWYselected = ""; $vprovstateUSAAselected = ""; $vprovstateUSAEselected = ""; $vprovstateUSAPselected = ""; if ("$vprovstate" eq "CAAB") { $vprovstateCAABselected = "selected='selected'"; } elsif ("$vprovstate" eq "CABC") { $vprovstateCABCselected = "selected='selected'"; } elsif ("$vprovstate" eq "CAMB") { $vprovstateCAMBselected = "selected='selected'"; } elsif ("$vprovstate" eq "CANB") { $vprovstateCANBselected = "selected='selected'"; } elsif ("$vprovstate" eq "CANL") { $vprovstateCANLselected = "selected='selected'"; } elsif ("$vprovstate" eq "CANS") { $vprovstateCANSselected = "selected='selected'"; } elsif ("$vprovstate" eq "CANT") { $vprovstateCANTselected = "selected='selected'"; } elsif ("$vprovstate" eq "CANU") { $vprovstateCANUselected = "selected='selected'"; } elsif ("$vprovstate" eq "CAON") { $vprovstateCAONselected = "selected='selected'"; } elsif ("$vprovstate" eq "CAPE") { $vprovstateCAPEselected = "selected='selected'"; } elsif ("$vprovstate" eq "CAQC") { $vprovstateCAQCselected = "selected='selected'"; } elsif ("$vprovstate" eq "CASK") { $vprovstateCASKselected = "selected='selected'"; } elsif ("$vprovstate" eq "CAYT") { $vprovstateCAYTselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAK") { $vprovstateUSAKselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAL") { $vprovstateUSALselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAR") { $vprovstateUSARselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAS") { $vprovstateUSASselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAZ") { $vprovstateUSAZselected = "selected='selected'"; } elsif ("$vprovstate" eq "USCA") { $vprovstateUSCAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USCO") { $vprovstateUSCOselected = "selected='selected'"; } elsif ("$vprovstate" eq "USCT") { $vprovstateUSCTselected = "selected='selected'"; } elsif ("$vprovstate" eq "USDC") { $vprovstateUSDCselected = "selected='selected'"; } elsif ("$vprovstate" eq "USDE") { $vprovstateUSDEselected = "selected='selected'"; } elsif ("$vprovstate" eq "USFL") { $vprovstateUSFLselected = "selected='selected'"; } elsif ("$vprovstate" eq "USFM") { $vprovstateUSFMselected = "selected='selected'"; } elsif ("$vprovstate" eq "USGA") { $vprovstateUSGAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USGU") { $vprovstateUSGUselected = "selected='selected'"; } elsif ("$vprovstate" eq "USHI") { $vprovstateUSHIselected = "selected='selected'"; } elsif ("$vprovstate" eq "USIA") { $vprovstateUSIAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USID") { $vprovstateUSIDselected = "selected='selected'"; } elsif ("$vprovstate" eq "USIL") { $vprovstateUSILselected = "selected='selected'"; } elsif ("$vprovstate" eq "USIN") { $vprovstateUSINselected = "selected='selected'"; } elsif ("$vprovstate" eq "USKS") { $vprovstateUSKSselected = "selected='selected'"; } elsif ("$vprovstate" eq "USKY") { $vprovstateUSKYselected = "selected='selected'"; } elsif ("$vprovstate" eq "USLA") { $vprovstateUSLAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMA") { $vprovstateUSMAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMD") { $vprovstateUSMDselected = "selected='selected'"; } elsif ("$vprovstate" eq "USME") { $vprovstateUSMEselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMH") { $vprovstateUSMHselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMI") { $vprovstateUSMIselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMN") { $vprovstateUSMNselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMO") { $vprovstateUSMOselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMP") { $vprovstateUSMPselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMS") { $vprovstateUSMSselected = "selected='selected'"; } elsif ("$vprovstate" eq "USMT") { $vprovstateUSMTselected = "selected='selected'"; } elsif ("$vprovstate" eq "USNC") { $vprovstateUSNCselected = "selected='selected'"; } elsif ("$vprovstate" eq "USND") { $vprovstateUSNDselected = "selected='selected'"; } elsif ("$vprovstate" eq "USNE") { $vprovstateUSNEselected = "selected='selected'"; } elsif ("$vprovstate" eq "USNH") { $vprovstateUSNHselected = "selected='selected'"; } elsif ("$vprovstate" eq "USNJ") { $vprovstateUSNJselected = "selected='selected'"; } elsif ("$vprovstate" eq "USNM") { $vprovstateUSNMselected = "selected='selected'"; } elsif ("$vprovstate" eq "USNV") { $vprovstateUSNVselected = "selected='selected'"; } elsif ("$vprovstate" eq "USNY") { $vprovstateUSNYselected = "selected='selected'"; } elsif ("$vprovstate" eq "USOH") { $vprovstateUSOHselected = "selected='selected'"; } elsif ("$vprovstate" eq "USOK") { $vprovstateUSOKselected = "selected='selected'"; } elsif ("$vprovstate" eq "USOR") { $vprovstateUSORselected = "selected='selected'"; } elsif ("$vprovstate" eq "USPA") { $vprovstateUSPAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USPR") { $vprovstateUSPRselected = "selected='selected'"; } elsif ("$vprovstate" eq "USPW") { $vprovstateUSPWselected = "selected='selected'"; } elsif ("$vprovstate" eq "USRI") { $vprovstateUSRIselected = "selected='selected'"; } elsif ("$vprovstate" eq "USSC") { $vprovstateUSSCselected = "selected='selected'"; } elsif ("$vprovstate" eq "USSD") { $vprovstateUSSDselected = "selected='selected'"; } elsif ("$vprovstate" eq "USTN") { $vprovstateUSTNselected = "selected='selected'"; } elsif ("$vprovstate" eq "USTX") { $vprovstateUSTXselected = "selected='selected'"; } elsif ("$vprovstate" eq "USUT") { $vprovstateUSUTselected = "selected='selected'"; } elsif ("$vprovstate" eq "USVA") { $vprovstateUSVAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USVI") { $vprovstateUSVIselected = "selected='selected'"; } elsif ("$vprovstate" eq "USVT") { $vprovstateUSVTselected = "selected='selected'"; } elsif ("$vprovstate" eq "USWA") { $vprovstateUSWAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USWI") { $vprovstateUSWIselected = "selected='selected'"; } elsif ("$vprovstate" eq "USWV") { $vprovstateUSWVselected = "selected='selected'"; } elsif ("$vprovstate" eq "USWY") { $vprovstateUSWYselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAA") { $vprovstateUSAAselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAE") { $vprovstateUSAEselected = "selected='selected'"; } elsif ("$vprovstate" eq "USAP") { $vprovstateUSAPselected = "selected='selected'"; } else { $vprovstateNONEselected = "selected='selected'"; } $vbprovstateNONEselected = ""; $vbprovstateCAABselected = ""; $vbprovstateCABCselected = ""; $vbprovstateCAMBselected = ""; $vbprovstateCANBselected = ""; $vbprovstateCANLselected = ""; $vbprovstateCANSselected = ""; $vbprovstateCANTselected = ""; $vbprovstateCANUselected = ""; $vbprovstateCAONselected = ""; $vbprovstateCAPEselected = ""; $vbprovstateCAQCselected = ""; $vbprovstateCASKselected = ""; $vbprovstateCAYTselected = ""; $vbprovstateUSAKselected = ""; $vbprovstateUSALselected = ""; $vbprovstateUSARselected = ""; $vbprovstateUSASselected = ""; $vbprovstateUSAZselected = ""; $vbprovstateUSCAselected = ""; $vbprovstateUSCOselected = ""; $vbprovstateUSCTselected = ""; $vbprovstateUSDCselected = ""; $vbprovstateUSDEselected = ""; $vbprovstateUSFLselected = ""; $vbprovstateUSFMselected = ""; $vbprovstateUSGAselected = ""; $vbprovstateUSGUselected = ""; $vbprovstateUSHIselected = ""; $vbprovstateUSIAselected = ""; $vbprovstateUSIDselected = ""; $vbprovstateUSILselected = ""; $vbprovstateUSINselected = ""; $vbprovstateUSKSselected = ""; $vbprovstateUSKYselected = ""; $vbprovstateUSLAselected = ""; $vbprovstateUSMAselected = ""; $vbprovstateUSMDselected = ""; $vbprovstateUSMEselected = ""; $vbprovstateUSMHselected = ""; $vbprovstateUSMIselected = ""; $vbprovstateUSMNselected = ""; $vbprovstateUSMOselected = ""; $vbprovstateUSMPselected = ""; $vbprovstateUSMSselected = ""; $vbprovstateUSMTselected = ""; $vbprovstateUSNCselected = ""; $vbprovstateUSNDselected = ""; $vbprovstateUSNEselected = ""; $vbprovstateUSNHselected = ""; $vbprovstateUSNJselected = ""; $vbprovstateUSNMselected = ""; $vbprovstateUSNVselected = ""; $vbprovstateUSNYselected = ""; $vbprovstateUSOHselected = ""; $vbprovstateUSOKselected = ""; $vbprovstateUSORselected = ""; $vbprovstateUSPAselected = ""; $vbprovstateUSPRselected = ""; $vbprovstateUSPWselected = ""; $vbprovstateUSRIselected = ""; $vbprovstateUSSCselected = ""; $vbprovstateUSSDselected = ""; $vbprovstateUSTNselected = ""; $vbprovstateUSTXselected = ""; $vbprovstateUSUTselected = ""; $vbprovstateUSVAselected = ""; $vbprovstateUSVIselected = ""; $vbprovstateUSVTselected = ""; $vbprovstateUSWAselected = ""; $vbprovstateUSWIselected = ""; $vbprovstateUSWVselected = ""; $vbprovstateUSWYselected = ""; $vbprovstateUSAAselected = ""; $vbprovstateUSAEselected = ""; $vbprovstateUSAPselected = ""; if ("$vbprovstate" eq "CAAB") { $vbprovstateCAABselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CABC") { $vbprovstateCABCselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CAMB") { $vbprovstateCAMBselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CANB") { $vbprovstateCANBselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CANL") { $vbprovstateCANLselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CANS") { $vbprovstateCANSselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CANT") { $vbprovstateCANTselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CANU") { $vbprovstateCANUselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CAON") { $vbprovstateCAONselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CAPE") { $vbprovstateCAPEselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CAQC") { $vbprovstateCAQCselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CASK") { $vbprovstateCASKselected = "selected='selected'"; } elsif ("$vbprovstate" eq "CAYT") { $vbprovstateCAYTselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAK") { $vbprovstateUSAKselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAL") { $vbprovstateUSALselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAR") { $vbprovstateUSARselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAS") { $vbprovstateUSASselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAZ") { $vbprovstateUSAZselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USCA") { $vbprovstateUSCAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USCO") { $vbprovstateUSCOselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USCT") { $vbprovstateUSCTselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USDC") { $vbprovstateUSDCselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USDE") { $vbprovstateUSDEselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USFL") { $vbprovstateUSFLselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USFM") { $vbprovstateUSFMselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USGA") { $vbprovstateUSGAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USGU") { $vbprovstateUSGUselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USHI") { $vbprovstateUSHIselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USIA") { $vbprovstateUSIAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USID") { $vbprovstateUSIDselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USIL") { $vbprovstateUSILselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USIN") { $vbprovstateUSINselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USKS") { $vbprovstateUSKSselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USKY") { $vbprovstateUSKYselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USLA") { $vbprovstateUSLAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMA") { $vbprovstateUSMAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMD") { $vbprovstateUSMDselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USME") { $vbprovstateUSMEselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMH") { $vbprovstateUSMHselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMI") { $vbprovstateUSMIselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMN") { $vbprovstateUSMNselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMO") { $vbprovstateUSMOselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMP") { $vbprovstateUSMPselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMS") { $vbprovstateUSMSselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USMT") { $vbprovstateUSMTselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USNC") { $vbprovstateUSNCselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USND") { $vbprovstateUSNDselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USNE") { $vbprovstateUSNEselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USNH") { $vbprovstateUSNHselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USNJ") { $vbprovstateUSNJselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USNM") { $vbprovstateUSNMselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USNV") { $vbprovstateUSNVselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USNY") { $vbprovstateUSNYselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USOH") { $vbprovstateUSOHselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USOK") { $vbprovstateUSOKselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USOR") { $vbprovstateUSORselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USPA") { $vbprovstateUSPAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USPR") { $vbprovstateUSPRselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USPW") { $vbprovstateUSPWselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USRI") { $vbprovstateUSRIselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USSC") { $vbprovstateUSSCselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USSD") { $vbprovstateUSSDselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USTN") { $vbprovstateUSTNselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USTX") { $vbprovstateUSTXselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USUT") { $vbprovstateUSUTselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USVA") { $vbprovstateUSVAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USVI") { $vbprovstateUSVIselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USVT") { $vbprovstateUSVTselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USWA") { $vbprovstateUSWAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USWI") { $vbprovstateUSWIselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USWV") { $vbprovstateUSWVselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USWY") { $vbprovstateUSWYselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAA") { $vbprovstateUSAAselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAE") { $vbprovstateUSAEselected = "selected='selected'"; } elsif ("$vbprovstate" eq "USAP") { $vbprovstateUSAPselected = "selected='selected'"; } else { $vbprovstateNONEselected = "selected='selected'"; } $vsprovstateNONEselected = ""; $vsprovstateCAABselected = ""; $vsprovstateCABCselected = ""; $vsprovstateCAMBselected = ""; $vsprovstateCANBselected = ""; $vsprovstateCANLselected = ""; $vsprovstateCANSselected = ""; $vsprovstateCANTselected = ""; $vsprovstateCANUselected = ""; $vsprovstateCAONselected = ""; $vsprovstateCAPEselected = ""; $vsprovstateCAQCselected = ""; $vsprovstateCASKselected = ""; $vsprovstateCAYTselected = ""; $vsprovstateUSAKselected = ""; $vsprovstateUSALselected = ""; $vsprovstateUSARselected = ""; $vsprovstateUSASselected = ""; $vsprovstateUSAZselected = ""; $vsprovstateUSCAselected = ""; $vsprovstateUSCOselected = ""; $vsprovstateUSCTselected = ""; $vsprovstateUSDCselected = ""; $vsprovstateUSDEselected = ""; $vsprovstateUSFLselected = ""; $vsprovstateUSFMselected = ""; $vsprovstateUSGAselected = ""; $vsprovstateUSGUselected = ""; $vsprovstateUSHIselected = ""; $vsprovstateUSIAselected = ""; $vsprovstateUSIDselected = ""; $vsprovstateUSILselected = ""; $vsprovstateUSINselected = ""; $vsprovstateUSKSselected = ""; $vsprovstateUSKYselected = ""; $vsprovstateUSLAselected = ""; $vsprovstateUSMAselected = ""; $vsprovstateUSMDselected = ""; $vsprovstateUSMEselected = ""; $vsprovstateUSMHselected = ""; $vsprovstateUSMIselected = ""; $vsprovstateUSMNselected = ""; $vsprovstateUSMOselected = ""; $vsprovstateUSMPselected = ""; $vsprovstateUSMSselected = ""; $vsprovstateUSMTselected = ""; $vsprovstateUSNCselected = ""; $vsprovstateUSNDselected = ""; $vsprovstateUSNEselected = ""; $vsprovstateUSNHselected = ""; $vsprovstateUSNJselected = ""; $vsprovstateUSNMselected = ""; $vsprovstateUSNVselected = ""; $vsprovstateUSNYselected = ""; $vsprovstateUSOHselected = ""; $vsprovstateUSOKselected = ""; $vsprovstateUSORselected = ""; $vsprovstateUSPAselected = ""; $vsprovstateUSPRselected = ""; $vsprovstateUSPWselected = ""; $vsprovstateUSRIselected = ""; $vsprovstateUSSCselected = ""; $vsprovstateUSSDselected = ""; $vsprovstateUSTNselected = ""; $vsprovstateUSTXselected = ""; $vsprovstateUSUTselected = ""; $vsprovstateUSVAselected = ""; $vsprovstateUSVIselected = ""; $vsprovstateUSVTselected = ""; $vsprovstateUSWAselected = ""; $vsprovstateUSWIselected = ""; $vsprovstateUSWVselected = ""; $vsprovstateUSWYselected = ""; $vsprovstateUSAAselected = ""; $vsprovstateUSAEselected = ""; $vsprovstateUSAPselected = ""; if ("$vsprovstate" eq "CAAB") { $vsprovstateCAABselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CABC") { $vsprovstateCABCselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CAMB") { $vsprovstateCAMBselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CANB") { $vsprovstateCANBselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CANL") { $vsprovstateCANLselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CANS") { $vsprovstateCANSselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CANT") { $vsprovstateCANTselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CANU") { $vsprovstateCANUselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CAON") { $vsprovstateCAONselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CAPE") { $vsprovstateCAPEselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CAQC") { $vsprovstateCAQCselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CASK") { $vsprovstateCASKselected = "selected='selected'"; } elsif ("$vsprovstate" eq "CAYT") { $vsprovstateCAYTselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAK") { $vsprovstateUSAKselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAL") { $vsprovstateUSALselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAR") { $vsprovstateUSARselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAS") { $vsprovstateUSASselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAZ") { $vsprovstateUSAZselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USCA") { $vsprovstateUSCAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USCO") { $vsprovstateUSCOselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USCT") { $vsprovstateUSCTselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USDC") { $vsprovstateUSDCselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USDE") { $vsprovstateUSDEselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USFL") { $vsprovstateUSFLselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USFM") { $vsprovstateUSFMselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USGA") { $vsprovstateUSGAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USGU") { $vsprovstateUSGUselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USHI") { $vsprovstateUSHIselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USIA") { $vsprovstateUSIAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USID") { $vsprovstateUSIDselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USIL") { $vsprovstateUSILselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USIN") { $vsprovstateUSINselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USKS") { $vsprovstateUSKSselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USKY") { $vsprovstateUSKYselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USLA") { $vsprovstateUSLAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMA") { $vsprovstateUSMAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMD") { $vsprovstateUSMDselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USME") { $vsprovstateUSMEselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMH") { $vsprovstateUSMHselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMI") { $vsprovstateUSMIselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMN") { $vsprovstateUSMNselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMO") { $vsprovstateUSMOselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMP") { $vsprovstateUSMPselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMS") { $vsprovstateUSMSselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USMT") { $vsprovstateUSMTselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USNC") { $vsprovstateUSNCselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USND") { $vsprovstateUSNDselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USNE") { $vsprovstateUSNEselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USNH") { $vsprovstateUSNHselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USNJ") { $vsprovstateUSNJselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USNM") { $vsprovstateUSNMselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USNV") { $vsprovstateUSNVselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USNY") { $vsprovstateUSNYselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USOH") { $vsprovstateUSOHselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USOK") { $vsprovstateUSOKselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USOR") { $vsprovstateUSORselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USPA") { $vsprovstateUSPAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USPR") { $vsprovstateUSPRselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USPW") { $vsprovstateUSPWselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USRI") { $vsprovstateUSRIselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USSC") { $vsprovstateUSSCselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USSD") { $vsprovstateUSSDselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USTN") { $vsprovstateUSTNselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USTX") { $vsprovstateUSTXselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USUT") { $vsprovstateUSUTselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USVA") { $vsprovstateUSVAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USVI") { $vsprovstateUSVIselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USVT") { $vsprovstateUSVTselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USWA") { $vsprovstateUSWAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USWI") { $vsprovstateUSWIselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USWV") { $vsprovstateUSWVselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USWY") { $vsprovstateUSWYselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAA") { $vsprovstateUSAAselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAE") { $vsprovstateUSAEselected = "selected='selected'"; } elsif ("$vsprovstate" eq "USAP") { $vsprovstateUSAPselected = "selected='selected'"; } else { $vsprovstateNONEselected = "selected='selected'"; } $vcctypeNONEselected = ""; $vcctypeVISAselected = ""; $vcctypeMCselected = ""; $vcctypeAMEXselected = ""; if ("$vcctype" eq "VISA") { $vcctypeVISAselected = "selected='selected'"; } elsif ("$vcctype" eq "MC") { $vcctypeMCselected = "selected='selected'"; } elsif ("$vcctype" eq "AMEX") { $vcctypeAMEXselected = "selected='selected'"; } else { $vcctypeNONEselected = "selected='selected'"; } #--- Connect to the database $xld = DBI->connect("DBI:mysql:database=xlvoxcom;host=darwin.prodataservices.net","xlvoxcom","password",{'RaiseError' =>1}); #-- do this only on try 2 and above (skip if this gobackform) if ("$vthisnext" eq "Signup") { if ($vtries >= 0 and $vtries < 3) { #-- Get the maximum order number $qmaxorder = $xld->prepare("select max(order_num) + 1 AS maxordnum from orders;"); $qmaxorder->execute(); $rmaxorder = $qmaxorder->fetchrow_hashref(); $vmaxorder = "$rmaxorder->{'maxordnum'}"; $qmaxorder->finish(); if ("$vmaxorder" eq "") { $vmaxorder = 1010;} #-- perform pre-auth maximum 10 times until complete $loopcnt = 0; $vxtrans_complete = "false"; #-- reverse the expiry date $vrevexpdate = substr("$vccexpiry",2,2) . substr("$vccexpiry",0,2); #-- get the actual total $vntotal = "$vtotal"; $vntotal =~ s/,//g ; $vntotal =~ s/\$//g ; while ($loopcnt <= 10) { if ("$vxtrans_complete" eq "false") { #-- get the cc processing ## pass the store and token values, use the maxorder * 1000 my $storeid='monmpg7267'; my $apitoken='1XjoKga4YXNompLRuGru'; my $orderid=($vmaxorder * 10000) + ($loopcnt * ($vtries+1)); ## step 1) create transaction hash ### my %txnArray=(type=>'preauth', order_id=>$orderid, cust_id=>$vccfullname, amount=>$vntotal, pan=>$vccnumber, expdate=>$vrevexpdate, crypt_type=>'7' ); ## step 2) create a transaction object passing the hash (by reference) created in step 1. ## $mpgTxn = new mpgTransaction(\%txnArray); ## step 3) create mpgHttpsPost object which does an https post ## $mpgHttpPost =new mpgHttpsPost($storeid,$apitoken,$mpgTxn); ## step 4) get an mpgResponse object ## $mpgResponse=$mpgHttpPost->getMpgResponse(); ## step 5) retrieve data using get methods $vxref_num = $mpgResponse->getReferenceNum(); $vxresp_code = $mpgResponse->getResponseCode(); $vxresp_iso = $mpgResponse->getISO(); $vxauth_code = $mpgResponse->getAuthCode(); $vxtrans_time = $mpgResponse->getTransTime(); $vxtrans_date = $mpgResponse->getTransDate(); $vxtrans_type = $mpgResponse->getTransType(); $vxtrans_complete = $mpgResponse->getComplete(); $vxtrans_message = $mpgResponse->getMessage(); $vxtrans_amt = $mpgResponse->getTransAmount(); $vxtxn_num = $mpgResponse->getTxnNumber(); $vxtimed_out = $mpgResponse->getTimedOut(); $vxreceipt_id = $mpgResponse->getReceiptId(); } $loopcnt++; } if ("$vxreceipt_id" eq "" or "$vxreceipt_id" eq "null") { $vnotify = "Unavailable to process at this time. Try Again."; $vaction = "/cgi-bin/signup.cgi"; $vnextstep = 'Step4'; $vtries++; } else { if ($vxresp_code >= 0 and $vxresp_code <= 49) { $vnotify = ""; $vaction = "/cgi-bin/confirmN.cgi"; $vnextstep = 'Step5'; } elsif ($vxresp_code >=50 and $vxresp_code <= 999) { $vnotify = "Please enter a different credit card."; $vaction = "/cgi-bin/signup.cgi"; $vnextstep = 'Step4'; $vtries++; } else { $vnotify = "Credit Card Information incomplete."; $vaction = "/cgi-bin/signup.cgi"; $vnextstep = 'Step4'; $vtries++; } } } else { $vtries++; } } else { if ("$vthisnext" eq "gobackform") { $vaction = "/cgi-bin/signup.cgi"; $vnextstep = 'Step4'; } elsif ("$vthisnext" eq "Page2") { $vaction = "/cgi-bin/signup.cgi"; $vnextstep = 'Step2'; } elsif ("$vthisnext" eq "Page3") { $vaction = "/cgi-bin/signup.cgi"; $vnextstep = 'Step3'; } else { $vaction = "/cgi-bin/signup.cgi"; } } #-- Retrieve the Plan Rates - Equipment Rental $qrt0 = $xld->prepare("select * from rate_plan where plan_cd = 'ER' ;"); $qrt0->execute(); while ($rrt0 = $qrt0->fetchrow_hashref()) { $vrtc0 = "$rrt0->{'plan_monthly_fee'}"; } $qrt0->finish(); if ("$vrtc0" eq "") { $vrtc0 = 0; } $vrtc0des = "\$$vrtc0"; #-- Retrieve the Plan Rates - RL $qrp1 = $xld->prepare("select * from rate_plan where plan_cd = 'RL' ;"); $qrp1->execute(); while ($rrp1 = $qrp1->fetchrow_hashref()) { $vr1plan_desc = "$rrp1->{'plan_desc'}"; $vr1plan_minutes = "$rrp1->{'plan_minutes'}"; $vr1plan_monthly_fee = "$rrp1->{'plan_monthly_fee'}"; if ($vr1plan_minutes eq 9999999) { $vr1plan_minutes_desc = "Unlimited calls in US & Canada. Local calls free."; } else { $vr1plan_minutes_desc = "$vr1plan_minutes minutes free in US & Canada. Local calls free."; } $vr1t_monthly_fee = $vr1plan_monthly_fee; $vr1rt_monthly_fee = $vr1plan_monthly_fee + $vrtc0 ; } $qrp1->finish(); #-- Retrieve the Plan Rates - RU $qrp2 = $xld->prepare("select * from rate_plan where plan_cd = 'RU' ;"); $qrp2->execute(); while ($rrp2 = $qrp2->fetchrow_hashref()) { $vr2plan_desc = "$rrp2->{'plan_desc'}"; $vr2plan_minutes = "$rrp2->{'plan_minutes'}"; $vr2plan_monthly_fee = "$rrp2->{'plan_monthly_fee'}"; if ($vr2plan_minutes eq 9999999) { $vr2plan_minutes_desc = "Unlimited calls in US & Canada. Local calls free."; } else { $vr2plan_minutes_desc = "$vr2plan_minutes minutes free in US & Canada. Local calls free."; } $vr2t_monthly_fee = $vr2plan_monthly_fee; $vr2rt_monthly_fee = $vr2plan_monthly_fee + $vrtc0 ; } $qrp2->finish(); #-- Retrieve the Plan Rates - BL $qrp3 = $xld->prepare("select * from rate_plan where plan_cd = 'BL' ;"); $qrp3->execute(); while ($rrp3 = $qrp3->fetchrow_hashref()) { $vr3plan_desc = "$rrp3->{'plan_desc'}"; $vr3plan_minutes = "$rrp3->{'plan_minutes'}"; $vr3plan_monthly_fee = "$rrp3->{'plan_monthly_fee'}"; if ($vr3plan_minutes eq 9999999) { $vr3plan_minutes_desc = "Unlimited calls in US & Canada. Local calls free."; } else { $vr3plan_minutes_desc = "$vr3plan_minutes minutes free in US & Canada. Local calls free."; } $vr3t_monthly_fee = $vr3plan_monthly_fee; $vr3rt_monthly_fee = $vr3plan_monthly_fee + $vrtc0 ; } $qrp3->finish(); #-- Retrieve the Plan Rates - BU $qrp4 = $xld->prepare("select * from rate_plan where plan_cd = 'BU' ;"); $qrp4->execute(); while ($rrp4 = $qrp4->fetchrow_hashref()) { $vr4plan_desc = "$rrp4->{'plan_desc'}"; $vr4plan_minutes = "$rrp4->{'plan_minutes'}"; $vr4plan_monthly_fee = "$rrp4->{'plan_monthly_fee'}"; if ($vr4plan_minutes eq 9999999) { $vr4plan_minutes_desc = "Unlimited calls in US \& Canada. Local calls free."; } else { $vr4plan_minutes_desc = "$vr4plan_minutes minutes free in US \& Canada. Local calls free."; } $vr4t_monthly_fee = $vr4plan_monthly_fee; $vr4rt_monthly_fee = $vr4plan_monthly_fee + $vrtc0 ; } $qrp4->finish(); #-- Retrieve the Plan Rates - FW $qrp5 = $xld->prepare("select * from rate_plan where plan_cd = 'FZ' ;"); $qrp5->execute(); while ($rrp5 = $qrp5->fetchrow_hashref()) { $vr5plan_desc = "$rrp5->{'plan_desc'}"; $vr5plan_minutes = "$rrp5->{'plan_minutes'}"; $vr5plan_monthly_fee = "$rrp5->{'plan_monthly_fee'}"; $vr5plan_minutes_desc = "Unlimited long distance calls to US/Canada and 20+ countries in the world."; $vr5t_monthly_fee = $vr5plan_monthly_fee; $vr5rt_monthly_fee = $vr5plan_monthly_fee + $vrtc0 ; } $qrp5->finish(); #-- Retrieve the Plan Rates - XN $qrp6 = $xld->prepare("select * from rate_plan where plan_cd = 'XN' ;"); $qrp6->execute(); while ($rrp6 = $qrp6->fetchrow_hashref()) { $vr6plan_desc = "$rrp6->{'plan_desc'}"; $vr6plan_minutes = "$rrp6->{'plan_minutes'}"; $vr6plan_monthly_fee = "$rrp6->{'plan_monthly_fee'}"; $vr6plan_minutes_desc = "Extra number added to Basic Residential."; $vr6t_monthly_fee = $vr6plan_monthly_fee; $vXN_monthly_fee = $vr6plan_monthly_fee; $vr6rt_monthly_fee = $vr6plan_monthly_fee + $vrtc0 ; } $qrp6->finish(); $vr1rt_mffdes = sprintf("%.2f", $vr1rt_monthly_fee); $vr2rt_mffdes = sprintf("%.2f", $vr2rt_monthly_fee); $vr3rt_mffdes = sprintf("%.2f", $vr3rt_monthly_fee); $vr4rt_mffdes = sprintf("%.2f", $vr4rt_monthly_fee); $vr5rt_mffdes = sprintf("%.2f", $vr5rt_monthly_fee); $vr6rt_mffdes = sprintf("%.2f", $vr6rt_monthly_fee); #-- Retrieve the Plan Rates - EC 79.95 to Buy the equipment $qot1 = $xld->prepare("select * from rate_plan where plan_cd = 'EC' ;"); $qot1->execute(); while ($rot1 = $qot1->fetchrow_hashref()) { $votc1 = "$rot1->{'plan_other_charge'}"; } $qot1->finish(); #-- Retrieve the Plan Rates - FM First month fee $qot2 = $xld->prepare("select * from rate_plan where plan_cd = 'FM' ;"); $qot2->execute(); while ($rot2 = $qot2->fetchrow_hashref()) { $votc2 = "$rot2->{'plan_other_charge'}"; } $qot2->finish(); #-- Retrieve the Plan Rates - NT $qot3 = $xld->prepare("select * from rate_plan where plan_cd = 'NT' ;"); $qot3->execute(); while ($rot3 = $qot3->fetchrow_hashref()) { $votc3 = "$rot3->{'plan_monthly_fee'}"; } $qot3->finish(); if ("$vwish" eq "W2") { $votc3 = "0.00"; } #-- Retrieve the Plan Rates - AF 49.95 Activation Fee $qot4 = $xld->prepare("select * from rate_plan where plan_cd = 'AF' ;"); $qot4->execute(); while ($rot4 = $qot4->fetchrow_hashref()) { $votc4 = "$rot4->{'plan_other_charge'}"; } $qot4->finish(); #-- Retrieve the Plan Rates - PG - Partner Fee 60.00 $qot5 = $xld->prepare("select * from rate_plan where plan_cd = 'PG' ;"); $qot5->execute(); while ($rot5 = $qot5->fetchrow_hashref()) { $votc5 = "$rot5->{'plan_other_charge'}"; } $qot5->finish(); #-- Retrieve the Plan Rates - SH shipping 15.95 $qot6 = $xld->prepare("select * from rate_plan where plan_cd = 'SH' ;"); $qot6->execute(); while ($rot6 = $qot6->fetchrow_hashref()) { $votc6 = "$rot6->{'plan_other_charge'}"; } $qot6->finish(); #-- Retrieve the Plan Rates - TX tax rate (GST/PST) #$qot7 = $xld->prepare("select * # from rate_plan # where plan_cd = 'TX' ;"); #$qot7->execute(); #while ($rot7 = $qot7->fetchrow_hashref()) #{ # $votc7 = "$rot7->{'plan_other_charge'}"; #} #$qot7->finish(); #-- Retrieve the Plan Rates - GST tax rate (Canada Goods and Services Tax) $qot8 = $xld->prepare("select * from rate_plan where plan_cd = 'GST' ;"); $qot8->execute(); while ($rot8 = $qot8->fetchrow_hashref()) { $vgst = "$rot8->{'plan_other_charge'}"; } $qot8->finish(); #-- Retrieve the Plan Rates - pst tax rate (provincial sales tax) $qot9 = $xld->prepare("select * from rate_plan where plan_cd = 'PST' ;"); $qot9->execute(); while ($rot9 = $qot9->fetchrow_hashref()) { $vpst = "$rot9->{'plan_other_charge'}"; } $qot9->finish(); $vUSCAN = substr($vprovstate,0,2); $vprov = substr($vprovstate,2,2); $votc7 = "0.00"; if ( $vUSCAN eq "CA") { $votc7 = $vgst; if ($vprov eq "ON") { $votc7 = $votc7 + $vpst; } } if ("$votc1" eq "0.00") { $votc1des = "Free"; } else { $votc1des = "\$$votc1"; } if ("$votc2" eq "0.00") { $votc2des = "Free"; } else { $votc2des = "\$$votc2"; } if ("$votc3" eq "0.00") { $votc3des = "-"; } else { $votc3des = "\$$votc3"; } if ("$votc4" eq "0.00") { $votc4des = "Free"; } else { $votc4des = "\$$votc4"; } if ("$votc5" eq "0.00") { $votc5des = "-"; } else { $votc5des = "\$$votc5"; } if ("$votc6" eq "0.00") { $votc6des = "Free"; } else { $votc6des = "\$$votc6"; } #-- Retrieve the Coupon discount $qcd1 = $xld->prepare("select discount_pcnt, discount_amnt from coupons where coupon_id = '$vcoupon_id' and date_format(now(),'%Y-%m-%d') between date_start and date_end;"); $qcd1->execute(); while ($rcd1 = $qcd1->fetchrow_hashref()) { $vdpcnt = "$rcd1->{'discount_pcnt'}"; $vdamnt = "$rcd1->{'discount_amnt'}"; } $qcd1->finish(); if ($vdpcnt eq "") { $vdpcnt = "0.00"; } if ($vdamnt eq "") { $vdamnt = "0.00"; } if ("$vdamnt" eq "0.00") { $vdamntdes = "-"; } else { $vdamntdes = "\$$vdamnt"; } #-- compute the subtotals with SH $stf = $votc2 + $votc3 + $votc4 + $votc6; $stw = $votc2 + $votc3 + $votc4 + $votc6; #-- compute the subtotals without SH $stfx = $votc2 + $votc3 + $votc4; $stwx = $votc2 + $votc3 + $votc4 ; #-- compute the subtotals Buy $stfb = $stf + $votc1; $stwb = $stw + $votc1; $stfxb = $stfx + $votc1; $stwxb = $stwx + $votc1; #-- compute the subtotals Rent $stfr = $stf; $stwr = $stw; $stfxr = $stfx; $stwxr = $stwx; if ($stf eq 0) { $stfdes = "Free"; } else { $stfdes = "\$" . sprintf("%.2f", $stf); } if ($stw eq 0) { $stwdes = "Free"; } else { $stwdes = "\$" . sprintf("%.2f", $stw); } if ($stfx eq 0) { $stfxdes = "Free"; } else { $stfxdes = "\$" . sprintf("%.2f", $stfx); } if ($stwx eq 0) { $stwxdes = "Free"; } else { $stwxdes = "\$" . sprintf("%.2f", $stwx); } if ($stfb eq 0) { $stfbdes = "Free"; } else { $stfbdes = "\$" . sprintf("%.2f", $stfb); } if ($stwb eq 0) { $stwbdes = "Free"; } else { $stwbdes = "\$" . sprintf("%.2f", $stwb); } if ($stfxb eq 0) { $stfxbdes = "Free"; } else { $stfxbdes = "\$" . sprintf("%.2f", $stfxb); } if ($stwxb eq 0) { $stwxbdes = "Free"; } else { $stwxbdes = "\$" . sprintf("%.2f", $stwxb); } if ($stfr eq 0) { $stfrdes = "Free"; } else { $stfrdes = "\$" . sprintf("%.2f", $stfr); } if ($stwr eq 0) { $stwrdes = "Free"; } else { $stwrdes = "\$" . sprintf("%.2f", $stwr); } if ($stfxr eq 0) { $stfxrdes = "Free"; } else { $stfxrdes = "\$" . sprintf("%.2f", $stfxr); } if ($stwxr eq 0) { $stwxrdes = "Free"; } else { $stwxrdes = "\$" . sprintf("%.2f", $stwxr); } #-- compute the taxes with SH $txf = ($stf * $votc7) / 100 ; $txw = ($stw * $votc7) / 100 ; #-- compute the taxes without SH $txfx = ($stfx * $votc7) / 100 ; $txwx = ($stwx * $votc7) / 100 ; #-- compute the taxes Buy $txfb = ($stfb * $votc7) / 100 ; $txwb = ($stwb * $votc7) / 100 ; $txfxb = ($stfxb * $votc7) / 100 ; $txwxb = ($stwxb * $votc7) / 100 ; #-- compute the taxes Rent $txfr = ($stfr * $votc7) / 100 ; $txwr = ($stwr * $votc7) / 100 ; $txfxr = ($stfxr * $votc7) / 100 ; $txwxr = ($stwxr * $votc7) / 100 ; if ($txf eq 0) { $txfdes = "n/a"; } else { $txfdes = "\$" . sprintf("%.2f", $txf); } if ($txw eq 0) { $txwdes = "n/a"; } else { $txwdes = "\$" . sprintf("%.2f", $txw); } if ($txfx eq 0) { $txfxdes = "n/a"; } else { $txfxdes = "\$" . sprintf("%.2f", $txfx); } if ($txwx eq 0) { $txwxdes = "n/a"; } else { $txwxdes = "\$" . sprintf("%.2f", $txwx); } if ($txfb eq 0) { $txfbdes = "n/a"; } else { $txfbdes = "\$" . sprintf("%.2f", $txfb); } if ($txwb eq 0) { $txwbdes = "n/a"; } else { $txwbdes = "\$" . sprintf("%.2f", $txwb); } if ($txfxb eq 0) { $txfxbdes = "n/a"; } else { $txfxbdes = "\$" . sprintf("%.2f", $txfxb); } if ($txwxb eq 0) { $txwxbdes = "n/a"; } else { $txwxbdes = "\$" . sprintf("%.2f", $txwxb); } if ($txfr eq 0) { $txfrdes = "n/a"; } else { $txfrdes = "\$" . sprintf("%.2f", $txfr); } if ($txwr eq 0) { $txwrdes = "n/a"; } else { $txwrdes = "\$" . sprintf("%.2f", $txwr); } if ($txfxr eq 0) { $txfxrdes = "n/a"; } else { $txfxrdes = "\$" . sprintf("%.2f", $txfxr); } if ($txwxr eq 0) { $txwxrdes = "n/a"; } else { $txwxrdes = "\$" . sprintf("%.2f", $txwxr); } #-- compute the subtotals (before discount) with SH $gdtf = $stf + $txf + $votc5; $gdtw = $stw + $txw; #-- compute the subtotals (before discount) without SH $gdtfx = $stfx + $txfx + $votc5; $gdtwx = $stwx + $txwx; #-- compute the subtotals (before discount) Buy $gdtfb = $stfb + $txfb;+ $votc5; $gdtwb = $stwb + $txwb; $gdtfxb = $stfxb + $txfxb + $votc5; $gdtwxb = $stwxb + $txwxb; #-- compute the subtotals (before discount) Rent $gdtfr = $stfr + $txfr + $votc5; $gdtwr = $stwr + $txwr; $gdtfxr = $stfxr + $txfxr + $votc5; $gdtwxr = $stwxr + $txwxr; if ($gdtf eq 0) { $gdtfdes = "Free"; } else { $gdtfdes = "\$" . sprintf("%.2f", $gdtf); } if ($gdtw eq 0) { $gdtwdes = "Free"; } else { $gdtwdes = "\$" . sprintf("%.2f", $gdtw); } if ($gdtfx eq 0) { $gdtfxdes = "Free"; } else { $gdtfxdes = "\$" . sprintf("%.2f", $gdtfx); } if ($gdtwx eq 0) { $gdtwxdes = "Free"; } else { $gdtwxdes = "\$" . sprintf("%.2f", $gdtwx); } if ($gdtfb eq 0) { $gdtfbdes = "Free"; } else { $gdtfbdes = "\$" . sprintf("%.2f", $gdtfb); } if ($gdtwb eq 0) { $gdtwbdes = "Free"; } else { $gdtwbdes = "\$" . sprintf("%.2f", $gdtwb); } if ($gdtfxb eq 0) { $gdtfxbdes = "Free"; } else { $gdtfxbdes = "\$" . sprintf("%.2f", $gdtfxb); } if ($gdtwxb eq 0) { $gdtwxbdes = "Free"; } else { $gdtwxbdes = "\$" . sprintf("%.2f", $gdtwxb); } if ($gdtfr eq 0) { $gdtfrdes = "Free"; } else { $gdtfrdes = "\$" . sprintf("%.2f", $gdtfr); } if ($gdtwr eq 0) { $gdtwrdes = "Free"; } else { $gdtwrdes = "\$" . sprintf("%.2f", $gdtwr); } if ($gdtfxr eq 0) { $gdtfxrdes = "Free"; } else { $gdtfxrdes = "\$" . sprintf("%.2f", $gdtfxr); } if ($gdtwxr eq 0) { $gdtwxrdes = "Free"; } else { $gdtwxrdes = "\$" . sprintf("%.2f", $gdtwxr); } #-- compute the totals with SH $gtf = $stf + $txf - $vdamnt + $votc5; $gtw = $stw + $txw - $vdamnt; #-- compute the totals without SH $gtfx = $stfx + $txfx - $vdamnt + $votc5; $gtwx = $stwx + $txwx - $vdamnt; #-- compute the totals Buy $gtfb = $stfb + $txfb - $vdamnt + $votc5; $gtwb = $stwb + $txwb - $vdamnt; $gtfxb = $stfxb + $txfxb - $vdamnt + $votc5; $gtwxb = $stwxb + $txwxb - $vdamnt; #-- compute the totals Rent $gtfr = $stfr + $txfr - $vdamnt + $votc5; $gtwr = $stwr + $txwr - $vdamnt; $gtfxr = $stfxr + $txfxr - $vdamnt + $votc5; $gtwxr = $stwxr + $txwxr - $vdamnt; if ($gtf eq 0) { $gtfdes = "Free"; } else { $gtfdes = "\$" . sprintf("%.2f", $gtf); } if ($gtw eq 0) { $gtwdes = "Free"; } else { $gtwdes = "\$" . sprintf("%.2f", $gtw); } if ($gtfx eq 0) { $gtfxdes = "Free"; } else { $gtfxdes = "\$" . sprintf("%.2f", $gtfx); } if ($gtwx eq 0) { $gtwxdes = "Free"; } else { $gtwxdes = "\$" . sprintf("%.2f", $gtwx); } if ($gtfb eq 0) { $gtfbdes = "Free"; } else { $gtfbdes = "\$" . sprintf("%.2f", $gtfb); } if ($gtwb eq 0) { $gtwbdes = "Free"; } else { $gtwbdes = "\$" . sprintf("%.2f", $gtwb); } if ($gtfxb eq 0) { $gtfxbdes = "Free"; } else { $gtfxbdes = "\$" . sprintf("%.2f", $gtfxb); } if ($gtwxb eq 0) { $gtwxbdes = "Free"; } else { $gtwxbdes = "\$" . sprintf("%.2f", $gtwxb); } if ($gtfr eq 0) { $gtfrdes = "Free"; } else { $gtfrdes = "\$" . sprintf("%.2f", $gtfr); } if ($gtwr eq 0) { $gtwrdes = "Free"; } else { $gtwrdes = "\$" . sprintf("%.2f", $gtwr); } if ($gtfxr eq 0) { $gtfxrdes = "Free"; } else { $gtfxrdes = "\$" . sprintf("%.2f", $gtfxr); } if ($gtwxr eq 0) { $gtwxrdes = "Free"; } else { $gtwxrdes = "\$" . sprintf("%.2f", $gtwxr); } #--- check if this had been in the email list $qelc = $xld->prepare("select count(*) AS elc from email_list where email_address = '$vremailadd' and fname = '$vfirstname' and lname = '$vlastname' and date_format(campaign_date,'%Y-%m-%d') = date_format(now(),'%Y-%m-%d');"); $qelc->execute(); while ($relc = $qelc->fetchrow_hashref()) { $velc = "$relc->{'elc'}"; } $qelc->finish(); if ( $velc eq 0 and "$vfirstname" ne "" and "$vlastname" ne "" and "$vremailadd" ne "" ) { $vsource = ""; $vcampaign = ""; $vprov_state = substr($vprovstate,2,2); #-- Insert into the email list $iel = $xld->prepare("insert into email_list ( email_address, phone, fname, lname, source, campaign, campaign_date, address1, address2, city, prov_state, post_zip ) values ( '\Q$vremailadd\E', '\Q$vcurphone\E', '\Q$vfirstname\E', '\Q$vlastname\E', '\Q$vsource\E', '\Q$vcampaign\E', now(), '\Q$vaddress1\E', '\Q$ip\E', '\Q$vcity\E', '\Q$vprov_state\E', '\Q$vpczip\E' );"); $iel->execute(); $iel->finish(); } push (@xlarr, "", "", "on-line signup", "", "", "", "", "", "", "", "", "", "", "", "", "", " ", " ", " ", " ", " ", " ", "", "
", " ", " ", " ", "
", " ", " ", " ", " ", "
", " ", " ", " ", " ", " ", " ", "
", " ", " ", "
", " ", " ", " ", " ", " ", " ", "
", " ", " ", " ", " ", " ", " ", " ", "
", " ", " ", " ", "
REGISTERED SUBSCRIBERS
", " ", " ", " ", " ", " ", "
", " ", " ", " ", " ", " ", "
usernamepassword
", " ", " ", " ", " ", "
", " ", " ", " ", " ", "
ON-LINE SIGNUP
", " ", " ", " ", " ", "
", " ", " ", " ", " ", "
", "
", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", "  
", "
", " Step 1 of 5
", "
", " A. Account Information
", "
", " First Name
", "

", "
", " Last Name
", "

", "
", " M.I.
", "

", "
", " Number & Street
", "

", "
", " Address Line 2
", "

", "
", " City
", "

", "
", " Prov/State
", "

", "
", " Post/Zip
", "

", "
", " Current Phone No.
", "

", "
", " E-mail address
", "

", "
", " Retype E-mail address
", "  

", "
", "   Order confirmation will be sent to this address!
", "
", " Coupon Number
", "   Valid promotion coupon

", "
", " Sponsor User ID
", "   If no sponsor, enter 00000000.

", "
", " ", "
Next » ", "

", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " Step 2 of 5
", "
", "
B. 911 Service

", "
", "  I will only use my XLVOX™ service from the address I stated. ", "   Why is this important?", "
", "  I will use my XLVOX™ service when I travel. ", "
", "
", "
C. Telephone Number Transfer

", "
", " I wish to transfer my existing home phone number to XLVOX service. (", " Check if your number can be migrated):
", "         For phone number migrations, do not contact your current local telephone company!   Why is this important?
", "         There is a $20 charge for telephone transfer.
", "         Current Phone Company ", "

", "
", " I wish to get a new phone number to XLVOX service in area code ", " ( Check for available area codes).", "
", "
", "
D. High Speed Internet Service Provider

", "
", "   High Speed Internet Service Provider
", "   
", "
", "
", "
« Back    ", " Next »

", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", "  
", "
", " Step 3 of 5
", "
", " E. Charges
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " Service Plan", " ", " ", " ", " ", "
", "      
", "
", " Contract", " ", " ", " ", " ", "
", " Equipment Options", "
", "  Buy XLVOX ($votc1des) one time ", "
", "  Rent XLVOX ($vrtc0des) monthly ", "
", "  I will get my own ($0) ", "
", "
", "

", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " Monthly Charges
", "
", " Monthly Fee", " ", "
", "
", " Equipment Rental", " ", "
", "
", " Total Monthly Charges", " ", "
", "
", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", #" ", #" ", #" ", #" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", #" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " Initial Charges
", "
", " Equipment Charge", " ", "
", "
", #" First Month Fee", #" ", #"
", #"
", " Number Transfer Fee", " ", "
", "
", " Activation Fee", " ", "
", "
", " Shipping & Handling", " ", "
", "
", " Sub Total", " ", "
", "
", " Taxes (GST/PST)", " ", "
", "
", " Sales Associate Fee", " ", "
", "
", " Total Before Discount", " ", "
", "
", " Coupon Discount", " ", "
", "
", " Total Charges", " ", "
", "
", "
", "
", " ", "  Do not ship. Product will be picked up.
", "
", " ", "  I want to sign up as a XLVOX Sales Associate. I have read and agree to Sales Associate Terms.
", "
", "
« Back    ", " Next »

", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " ", " Step 4 of 5
", "
", " F. Billing Information
", "
", " $vnotify
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", "
Enter Credit Card Information:

", "
", " Credit Card Type
", " ", "

", "
", " First Name on Credit Card
", "

", "
", " Last Name on Credit Card
", "

", "
", " Credit Card Number
", "

", "
", " Expiry Date (MMYY)
", "

", "
", " ", "
You authorize XLVOX, as stated in the Terms of Service, to automatically charge your credit card on a monthly basis for services provided to you in the amount described in the Service Plan you selected.

", "
", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " ", " Billing Address Same as in Account Information  
", "
", " Number & Street
", "

", "
", " Address Line 2
", "

", "
", "  
", "
", " City
", "

", "
", " Prov/State
", "

", "
", " Post/Zip
", "

", "
", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " ", " Shipping Address Same as in Account Information  
", "
", " Number & Street
", "

", "
", " Address Line 2
", "

", "
", "  
", "
", " City
", "

", "
", " Prov/State
", "

", "
", " Post/Zip
", "

", "
", "
", "
", " ", " ", " ", " ", " ", " ", "
« Back    ", " Next »

", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", "  
", "
", " Step 5 of 5
", "
", " G. Order Summary
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " Service Plan", " ", " ", " ", " ", "
", "      
", "
", " Contract", " ", " ", " ", " ", "
", " Equipment Options", "
", "  Buy XLVOX ($votc1des) one time ", "
", "  Rent XLVOX ($vrtc0des) monthly ", "
", "  I will get my own ($0) ", "
", "
", "

", "
", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " Monthly Charges
", "
", " Monthly Fee", " ", "
", "
", " Equipment Rental", " ", "
", "
", " Total Monthly Charges", " ", "
", "
", "
", "
", "
", " ", " ", " ", " ", " ", " ", " ", " ", #" ", #" ", #" ", #" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", "
", " Initial Charges
", "
", " Equipment Charge", " ", "
", "
", #" First Month Fee", #" ", #"
", #"
", " Number Transfer Fee", " ", "
", "
", " Activation Fee", " ", "
", "
", " Shipping & Handling", " ", "
", "
", " Sub Total", " ", "
", "
", " Taxes (GST/PST)", " ", "
", "
", " Sales Associate Fee", " ", "
", "
", " Total Before Discount", " ", "
", "
", " Coupon Discount", " ", "
", "
", " Total Charges", " ", "
", "
", "
", "
", " H. Confirmation
", "
", " ", "   I agree to the XLVOX Service and Calling Plan as
        described in the Terms of Service.

", "
", "
« Back    ", " Next »

", "
", "
", "
", "
", "

", "

", "
", " ", " ", " ", " ", "
", " ", " ", " ", " ", " ", "
", " ", " ", " ", "
Terms ", " of Service | Privacy ", " Policy | About Us | Contact ", " Us | Home | Copyright © 2006 XLVOX. All Rights Reserved.
", "

 

", "

 

", "

 

", "", ""); foreach $xv (@xlarr) { print "$xv\n"; } $xld->disconnect();