#!/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, "", "
", "| ", " | ![]() | ",
"
", " ", "
| ",
" ![]() | ",
" ", " |