#!/usr/bin/perl use strict; use CGI qw/:standard :html3 *table/; my ($req_serv,$firstname,$middle,$lastname,$dayphone,$eveningphone,$companyname,$statecountry); my ($appaddress,$appcity,$appstate,$appzip,$cpfirstname,$cplastname,$cemail,$trdmk_type,$tgs); my ($bizaddress,$bizcity,$bizstate,$bizzip,$cvvs); $req_serv=(param('req_serv'))?param('req_serv'):""; $firstname=(param('firstname'))?param('firstname'):""; $middle=(param('middle'))?param('middle'):""; $lastname=(param('lastname'))?param('lastname'):""; $dayphone=(param('dayphone'))?param('dayphone'):""; $eveningphone=(param('eveningphone'))?param('eveningphone'):""; $companyname=(param('companyname'))?param('companyname'):""; $statecountry=(param('statecountry'))?param('statecountry'):""; $appaddress=(param('appaddress'))?param('appaddress'):""; $appcity=(param('appcity'))?param('appcity'):""; $appstate=(param('appstate'))?param('appstate'):""; $appzip=(param('appzip'))?param('appzip'):""; $cpfirstname=(param('cpfirstname'))?param('cpfirstname'):""; $cplastname=(param('cplastname'))?param('cplastname'):""; $cemail=(param('cemail'))?param('cemail'):""; $trdmk_type=(param('trdmk_type'))?param('trdmk_type'):""; $tgs=(param('tgs'))?param('tgs'):""; $bizaddress=(param('bizaddress'))?param('bizaddress'):""; $bizcity=(param('bizcity'))?param('bizcity'):""; $bizstate=(param('bizstate'))?param('bizstate'):""; $bizzip=(param('bizzip'))?param('bizzip'):""; $cvvs=(param('cvvs'))?param('cvvs'):""; ######### if (!$req_serv || $req_serv eq "") { missing("req_serv");exit(110); } if (!$firstname || $firstname eq "") { missing("firstname");exit(110); } if (!$middle || $middle eq "") { missing("middle");exit(110); } if (!$lastname || $lastname eq "") { missing("lastname");exit(110); } if (!$dayphone || $dayphone eq "") { missing("dayphone");exit(110); } if (!$eveningphone || $eveningphone eq "") { missing("eveningphone");exit(110); } if (!$companyname || $companyname eq "") { missing("companyname");exit(110); } if (!$statecountry || $statecountry eq "") { missing("statecountry");exit(110); } if (!$appaddress || $appaddress eq "") { missing("appaddress");exit(110); } if (!$appcity || $appcity eq "") { missing("appcity");exit(110); } if (!$appstate || $appstate eq "") { missing("appstate");exit(110); } if (!$appzip || $appzip eq "") { missing("appzip");exit(110); } if (!$cpfirstname || $cpfirstname eq "") { missing("cpfirstname");exit(110); } if (!$cplastname || $cplastname eq "") { missing("cplastname");exit(110); } if (!$cemail || $cemail eq "") { missing("cemail");exit(110); } if (!$trdmk_type || $trdmk_type eq "") { missing("trdmk_type");exit(110); } if (!$tgs || $tgs eq "") { missing("tgs");exit(110); } if (!$bizaddress || $bizaddress eq "") { missing("bizaddress");exit(110); } if (!$bizcity || $bizcity eq "") { missing("bizcity");exit(110); } if (!$bizstate || $bizstate eq "") { missing("bizstate");exit(110); } if (!$bizzip || $bizzip eq "") { missing("bizzip");exit(110); } if (!$cvvs || $cvvs eq "") { missing("cvvs");exit(110); } ############### print<<"HTML"; Content-type: text/html Trademark Search : : Please Confirm


HTML if ($trdmk_type =~ /logo/i){ print<<"HTML"; HTML } if ($trdmk_type =~ /word/i || $trdmk_type =~ /phrase/i){ print<<"HTML"; HTML } print<<"HTML";
 Trademark Search Terms and Conditions 
    I agree the terms and conditions listed below
 Upload Logo (jpg/gif format):  
 Words/Phrase to register:  
 Payment Information 
 Type of Credit Card:
 Credit Card No.:  
 Expiration Date (MM/YY):  
 Billing Address of Credit Card Statement:  
 Billing City of Credit Card Statement:  
 Billing State of Credit Card Statement:  
 Billing Zipcode of Credit Card Statement:  
 Re-Enter CVVS Code:  
  
HTML ############### sub missing { print <<"HTML"; Content-type: text/html Trademark Search : : Software Error


Site params error!!!
  An error occured while parsing, required params. The param "$_[0]" is empty or not defined. Please go back and fill all the required fields.
HTML }