I'm new at creating scripts so I've tried some 3rd party programs to try to get my form to work. I want people to be able goto http://www.lebshiff.com/trading.htm , check off some of the options, input their info, click the submit button and have a "dynamic" page which updates each time a visitor adds their information. I have a .pl script which I created with Perl Builder 2.0 and it seems like it "sort of" works while I'm running that program, but when I upload the 2 files (trading.htm and trading.pl) I get an error message when I click the submit button. Any info would be greatly appreciated. I did chmod 755 on the .pl file, so I don't think it's a permission issue. Anything you can do to help me out would be really great. Thanks in advance!
Also: Just wanted to add -- that if it's possible to create database entries as well when a visitor enters his/her information that would be great --
Caleb
Perl:
#!/usr/bin/perl
$mail_prog = '/usr/sbin/sendmail' ;
# This script was generated automatically by Perl Builder: http://www.solutionsoft.com
# ***ENDAUTOGEN:HEADER*** Do NOT modify this line!! You may enter custom code after this line.
# ***AUTOGEN:INPUT*** Do NOT modify this line!! Do NOT enter custom code in this section.
&GetFormInput;
# The intermediate variables below make your script more readable
# but somewhat less efficient since they are not really necessary.
# If you do not want to use these variables, clear the
# Intermediate Variables checkbox in the Tools | Options dialog box, CGI Wizard tab.
$have_6_17__Columbus__OH__Germain_Amphitheater = $field{'have_6/17: Columbus, OH, Germain Amphitheater'} ;
$have_6_18__Columbus__OH__Germain_Amphitheater = $field{'have_6/18: Columbus, OH, Germain Amphitheater'} ;
$have_6_20__Darien__NY__Darien_Lake_PAC = $field{'have_6/20: Darien, NY, Darien Lake PAC'} ;
$have_6_21__Cuyahoga_Falls__OH__Blossom_Music_Center = $field{'have_6/21: Cuyahoga Falls, OH, Blossom Music Center'} ;
$have_6_23__Cincinnati__OH__Riverbend_Music_Center = $field{'have_6/23: Cincinnati, OH, Riverbend Music Center'} ;
$have_6_24__Cincinnati__OH__Riverbend_Music_Center = $field{'have_6/24: Cincinnati, OH, Riverbend Music Center'} ;
$have_6_26__Burgettstown__PA__Post_Gazette_Pavilion = $field{'have_6/26: Burgettstown, PA, Post-Gazette Pavilion'} ;
$have_6_27__Burgettstown__PA__Post_Gazette_Pavilion = $field{'have_6/27: Burgettstown, PA, Post-Gazette Pavilion'} ;
$have_6_29__Noblesville__IN__Verizon_Wireless_Center = $field{'have_6/29: Noblesville, IN, Verizon Wireless Center'} ;
$have_6_30__Noblesville__IN__Verizon_Wireless_Center_ = $field{'have_6/30: Noblesville, IN, Verizon Wireless Center '} ;
$have_7_2__Auburn_Hills__MI__Palace_of_Auburn_Hills = $field{'have_7/2: Auburn Hills, MI, Palace of Auburn Hills'} ;
$have_7_3__Tinley_Park__IL__Tweeter_Center = $field{'have_7/3: Tinley Park, IL, Tweeter Center'} ;
$have_7_5__East_Troy__WI__Alpine_Valley_Music_Theater = $field{'have_7/5: East Troy, WI, Alpine Valley Music Theater'} ;
$have_7_6__East_Troy__WI__Alpine_Valley_Music_Theater = $field{'have_7/6: East Troy, WI, Alpine Valley Music Theater'} ;
$have_7_9__Minneapolis__Target_Center = $field{'have_7/9: Minneapolis, Target Center'} ;
$have_7_10__Maryland_Heights__MO__UMB_Bank_Pavilion = $field{'have_7/10: Maryland Heights, MO, UMB Bank Pavilion'} ;
$have_7_12__Bonner_Springs__KS__Verizon_Amphitheater = $field{'have_7/12: Bonner Springs, KS, Verizon Amphitheater'} ;
$have_7_13__Little_Rock__AR__Alltel_Arena = $field{'have_7/13: Little Rock, AR, Alltel Arena'} ;
$have_7_15__Oklahoma_City__Ford_Center = $field{'have_7/15: Oklahoma City, Ford Center'} ;
$have_7_16__Houston__Cynthia_Woods_Mitchell_Pavilion = $field{'have_7/16: Houston, Cynthia Woods Mitchell Pavilion'} ;
$have_7_18__Dallas__American_Airlines_Center = $field{'have_7/18: Dallas, American Airlines Center'} ;
$have_7_19__Selma__TX__Verizon_Wireless_Amphitheater = $field{'have_7/19: Selma, TX, Verizon Wireless Amphitheater'} ;
$have_7_21__Denver__Pepsi_Center = $field{'have_7/21: Denver, Pepsi Center'} ;
$have_7_22__West_Valley_City__UT__West_Valley_Amp_ = $field{'have_7/22: West Valley City, UT, West Valley Amp.'} ;
$have_7_24__Phoenix__AZ__Cricket_Pavilion = $field{'have_7/24: Phoenix, AZ, Cricket Pavilion'} ;
$have_7_26__Los_Angeles__CA__Home_Depot_Center = $field{'have_7/26: Los Angeles, CA, Home Depot Center'} ;
$have_7_27__Los_Angeles__CA__Home_Depot_Center = $field{'have_7/27: Los Angeles, CA, Home Depot Center'} ;
$have_7_29__Chula_Vista__CA__Coors_Amphitheater = $field{'have_7/29: Chula Vista, CA, Coors Amphitheater'} ;
$have_7_30__Marysville__CA__Sleep_Train_Amphitheater = $field{'have_7/30: Marysville, CA, Sleep Train Amphitheater'} ;
$have_8_1__Mountain_View__CA__Shoreline_Amphitheater = $field{'have_8/1: Mountain View, CA, Shoreline Amphitheater'} ;
$have_8_2__Mountain_View__CA__Shoreline_Amphitheater = $field{'have_8/2: Mountain View, CA, Shoreline Amphitheater'} ;
$have_8_4__Portland__OR__Rose_Garden_Arena = $field{'have_8/4: Portland, OR, Rose Garden Arena'} ;
$have_8_5__Vancouver__General_Motors_Place = $field{'have_8/5: Vancouver, General Motors Place'} ;
$have_8_7__George__WA__Gorge_Amphitheater = $field{'have_8/7: George, WA, Gorge Amphitheater'} ;
$have_8_8__George__WA__Gorge_Amphitheater = $field{'have_8/8: George, WA, Gorge Amphitheater'} ;
$have_8_24__East_Rutherford__NJ__Cont__Airlines_Arena = $field{'have_8/24: East Rutherford, NJ, Cont. Airlines Arena'} ;
$have_8_25__East_Rutherford__NJ__Cont__Airlines_Arena = $field{'have_8/25: East Rutherford, NJ, Cont. Airlines Arena'} ;
$have_8_27__Saratoga_Springs__NY__Saratoga_PAC = $field{'have_8/27: Saratoga Springs, NY, Saratoga PAC'} ;
$have_8_28__Saratoga_Springs__NY__Saratoga_PAC = $field{'have_8/28: Saratoga Springs, NY, Saratoga PAC'} ;
$have_8_30__Hartford__CT__Meadows_Music_Center = $field{'have_8/30: Hartford, CT, Meadows Music Center'} ;
$have_8_31__Hartford__CT__Meadows_Music_Center = $field{'have_8/31: Hartford, CT, Meadows Music Center'} ;
$have_9_2__Montreal__Bell_Center = $field{'have_9/2: Montreal, Bell Center'} ;
$have_9_3__Toronto__Ontario_Place = $field{'have_9/3: Toronto, Ontario Place'} ;
$have_9_5__Camden__NJ__Tweeter_Center = $field{'have_9/5: Camden, NJ, Tweeter Center'} ;
$have_9_6__Camden__NJ__Tweeter_Center = $field{'have_9/6: Camden, NJ, Tweeter Center'} ;
$have_9_8__Mansfield__MA__Tweeter_Center = $field{'have_9/8: Mansfield, MA, Tweeter Center'} ;
$have_9_9__Mansfield__MA__Tweeter_Center = $field{'have_9/9: Mansfield, MA, Tweeter Center'} ;
$have_9_11__Hershey__PA__Hersheypark_Stadium = $field{'have_9/11: Hershey, PA, Hersheypark Stadium'} ;
$have_9_13__Bristow__VA__Nissan_Pavilion = $field{'have_9/13: Bristow, VA, Nissan Pavilion'} ;
$have_9_14__Virginia_Beach__VA__Verizon_Wireless_Amp_ = $field{'have_9/14: Virginia Beach, VA, Verizon Wireless Amp.'} ;
$have_9_16__Charlotte__NC__Verizon_Wireless_Amphitheater = $field{'have_9/16: Charlotte, NC, Verizon Wireless Amphitheater'} ;
$have_9_17__Raleigh__NC__Alltel_Pavilion = $field{'have_9/17: Raleigh, NC, Alltel Pavilion'} ;
$have_9_19__Antioch__TN__AmSouth_Amphitheater = $field{'have_9/19: Antioch, TN, AmSouth Amphitheater'} ;
$have_9_20__Atlanta__HiFi_Buys_Amphitheater = $field{'have_9/20: Atlanta, HiFi Buys Amphitheater'} ;
$need_6_17__Columbus__OH__Germain_Amphitheater = $field{'need_6/17: Columbus, OH, Germain Amphitheater'} ;
$need_6_18__Columbus__OH__Germain_Amphitheater = $field{'need_6/18: Columbus, OH, Germain Amphitheater'} ;
$need_6_20__Darien__NY__Darien_Lake_PAC = $field{'need_6/20: Darien, NY, Darien Lake PAC'} ;
$need_6_21__Cuyahoga_Falls__OH__Blossom_Music_Center = $field{'need_6/21: Cuyahoga Falls, OH, Blossom Music Center'} ;
$need_6_23__Cincinnati__OH__Riverbend_Music_Center = $field{'need_6/23: Cincinnati, OH, Riverbend Music Center'} ;
$need_6_24__Cincinnati__OH__Riverbend_Music_Center = $field{'need_6/24: Cincinnati, OH, Riverbend Music Center'} ;
$need_6_26__Burgettstown__PA__Post_Gazette_Pavilion = $field{'need_6/26: Burgettstown, PA, Post-Gazette Pavilion'} ;
$need_6_27__Burgettstown__PA__Post_Gazette_Pavilion = $field{'need_6/27: Burgettstown, PA, Post-Gazette Pavilion'} ;
$need_6_29__Noblesville__IN__Verizon_Wireless_Center = $field{'need_6/29: Noblesville, IN, Verizon Wireless Center'} ;
$need_6_30__Noblesville__IN__Verizon_Wireless_Center_ = $field{'need_6/30: Noblesville, IN, Verizon Wireless Center '} ;
$need_7_2__Auburn_Hills__MI__Palace_of_Auburn_Hills = $field{'need_7/2: Auburn Hills, MI, Palace of Auburn Hills'} ;
$need_7_3__Tinley_Park__IL__Tweeter_Center = $field{'need_7/3: Tinley Park, IL, Tweeter Center'} ;
$need_7_5__East_Troy__WI__Alpine_Valley_Music_Theater = $field{'need_7/5: East Troy, WI, Alpine Valley Music Theater'} ;
$need_7_6__East_Troy__WI__Alpine_Valley_Music_Theater = $field{'need_7/6: East Troy, WI, Alpine Valley Music Theater'} ;
$need_7_9__Minneapolis__Target_Center = $field{'need_7/9: Minneapolis, Target Center'} ;
$need_7_10__Maryland_Heights__MO__UMB_Bank_Pavilion = $field{'need_7/10: Maryland Heights, MO, UMB Bank Pavilion'} ;
$need_7_12__Bonner_Springs__KS__Verizon_Amphitheater = $field{'need_7/12: Bonner Springs, KS, Verizon Amphitheater'} ;
$need_7_13__Little_Rock__AR__Alltel_Arena = $field{'need_7/13: Little Rock, AR, Alltel Arena'} ;
$need_7_15__Oklahoma_City__Ford_Center = $field{'need_7/15: Oklahoma City, Ford Center'} ;
$need_7_16__Houston__Cynthia_Woods_Mitchell_Pavilion = $field{'need_7/16: Houston, Cynthia Woods Mitchell Pavilion'} ;
$need_7_18__Dallas__American_Airlines_Center = $field{'need_7/18: Dallas, American Airlines Center'} ;
$need_7_19__Selma__TX__Verizon_Wireless_Amphitheater = $field{'need_7/19: Selma, TX, Verizon Wireless Amphitheater'} ;
$need_7_21__Denver__Pepsi_Center = $field{'need_7/21: Denver, Pepsi Center'} ;
$need_7_22__West_Valley_City__UT__West_Valley_Amp_ = $field{'need_7/22: West Valley City, UT, West Valley Amp.'} ;
$need_7_24__Phoenix__AZ__Cricket_Pavilion = $field{'need_7/24: Phoenix, AZ, Cricket Pavilion'} ;
$need_7_26__Los_Angeles__CA__Home_Depot_Center = $field{'need_7/26: Los Angeles, CA, Home Depot Center'} ;
$need_7_27__Los_Angeles__CA__Home_Depot_Center = $field{'need_7/27: Los Angeles, CA, Home Depot Center'} ;
$need_7_29__Chula_Vista__CA__Coors_Amphitheater = $field{'need_7/29: Chula Vista, CA, Coors Amphitheater'} ;
$need_7_30__Marysville__CA__Sleep_Train_Amphitheater = $field{'need_7/30: Marysville, CA, Sleep Train Amphitheater'} ;
$need_8_1__Mountain_View__CA__Shoreline_Amphitheater = $field{'need_8/1: Mountain View, CA, Shoreline Amphitheater'} ;
$need_8_2__Mountain_View__CA__Shoreline_Amphitheater = $field{'need_8/2: Mountain View, CA, Shoreline Amphitheater'} ;
$need_8_4__Portland__OR__Rose_Garden_Arena = $field{'need_8/4: Portland, OR, Rose Garden Arena'} ;
$need_8_5__Vancouver__General_Motors_Place = $field{'need_8/5: Vancouver, General Motors Place'} ;
$need_8_7__George__WA__Gorge_Amphitheater = $field{'need_8/7: George, WA, Gorge Amphitheater'} ;
$need_8_8__George__WA__Gorge_Amphitheater = $field{'need_8/8: George, WA, Gorge Amphitheater'} ;
$need_8_24__East_Rutherford__NJ__Cont__Airlines_Arena = $field{'need_8/24: East Rutherford, NJ, Cont. Airlines Arena'} ;
$need_8_25__East_Rutherford__NJ__Cont__Airlines_Arena = $field{'need_8/25: East Rutherford, NJ, Cont. Airlines Arena'} ;
$need_8_27__Saratoga_Springs__NY__Saratoga_PAC = $field{'need_8/27: Saratoga Springs, NY, Saratoga PAC'} ;
$need_8_28__Saratoga_Springs__NY__Saratoga_PAC = $field{'need_8/28: Saratoga Springs, NY, Saratoga PAC'} ;
$need_8_30__Hartford__CT__Meadows_Music_Center = $field{'need_8/30: Hartford, CT, Meadows Music Center'} ;
$need_8_31__Hartford__CT__Meadows_Music_Center = $field{'need_8/31: Hartford, CT, Meadows Music Center'} ;
$need_9_2__Montreal__Bell_Center = $field{'need_9/2: Montreal, Bell Center'} ;
$need_9_3__Toronto__Ontario_Place = $field{'need_9/3: Toronto, Ontario Place'} ;
$need_9_5__Camden__NJ__Tweeter_Center = $field{'need_9/5: Camden, NJ, Tweeter Center'} ;
$need_9_6__Camden__NJ__Tweeter_Center = $field{'need_9/6: Camden, NJ, Tweeter Center'} ;
$need_9_8__Mansfield__MA__Tweeter_Center = $field{'need_9/8: Mansfield, MA, Tweeter Center'} ;
$need_9_9__Mansfield__MA__Tweeter_Center = $field{'need_9/9: Mansfield, MA, Tweeter Center'} ;
$need_9_11__Hershey__PA__Hersheypark_Stadium = $field{'need_9/11: Hershey, PA, Hersheypark Stadium'} ;
$need_9_13__Bristow__VA__Nissan_Pavilion = $field{'need_9/13: Bristow, VA, Nissan Pavilion'} ;
$need_9_14__Virginia_Beach__VA__Verizon_Wireless_Amp_ = $field{'need_9/14: Virginia Beach, VA, Verizon Wireless Amp.'} ;
$need_9_16__Charlotte__NC__Verizon_Wireless_Amphitheater = $field{'need_9/16: Charlotte, NC, Verizon Wireless Amphitheater'} ;
$need_9_17__Raleigh__NC__Alltel_Pavilion = $field{'need_9/17: Raleigh, NC, Alltel Pavilion'} ;
$need_9_19__Antioch__TN__AmSouth_Amphitheater = $field{'need_9/19: Antioch, TN, AmSouth Amphitheater'} ;
$need_9_20__Atlanta__HiFi_Buys_Amphitheater = $field{'need_9/20: Atlanta, HiFi Buys Amphitheater'} ;
$tradeopts_1___1 = $field{'tradeopts_1 : 1'} ;
$tradeopts_2___2 = $field{'tradeopts_2 : 2'} ;
$tradeopts_2___1 = $field{'tradeopts_2 : 1'} ;
$tradeopts_1___2 = $field{'tradeopts_1 : 2'} ;
$tradeopts_Other = $field{'tradeopts_Other'} ;
$desc = $field{'desc'} ;
$Contact_FullName = $field{'Contact_FullName'} ;
$Contact_Title = $field{'Contact_Title'} ;
$Contact_Organization = $field{'Contact_Organization'} ;
$Contact_StreetAddress = $field{'Contact_StreetAddress'} ;
$Contact_Address2 = $field{'Contact_Address2'} ;
$Contact_Email = $field{'Contact_Email'} ;
$submit = $field{'submit'} ;
$message = "" ;
$found_err = "" ;
# ***ENDAUTOGEN:INPUT*** Do NOT modify this line!! You may enter custom code after this line.
# ***AUTOGEN:VALIDATE*** Do NOT modify this line!! Do NOT enter custom code in this section.
$errmsg = "<p></p>\n" ;
if (length($have_7_6__East_Troy__WI__Alpine_Valley_Music_Theater) > 70461772) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($have_7_26__Los_Angeles__CA__Home_Depot_Center) > 34537472) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($have_8_24__East_Rutherford__NJ__Cont__Airlines_Arena) > 60948164) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($have_8_25__East_Rutherford__NJ__Cont__Airlines_Arena) > 17) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($have_8_28__Saratoga_Springs__NY__Saratoga_PAC) > 60866548) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($have_9_11__Hershey__PA__Hersheypark_Stadium) > 60882983) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($have_9_13__Bristow__VA__Nissan_Pavilion) > 60939032) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($have_9_14__Virginia_Beach__VA__Verizon_Wireless_Amp_) > 222175822) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_6_18__Columbus__OH__Germain_Amphitheater) > 539785588) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_6_24__Cincinnati__OH__Riverbend_Music_Center) > 360) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_6_26__Burgettstown__PA__Post_Gazette_Pavilion) > 1702127201) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_6_27__Burgettstown__PA__Post_Gazette_Pavilion) > 117901063) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_6_29__Noblesville__IN__Verizon_Wireless_Center) > 1702305826) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_2__Auburn_Hills__MI__Palace_of_Auburn_Hills) > 573450046) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_3__Tinley_Park__IL__Tweeter_Center) > 151587081) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_5__East_Troy__WI__Alpine_Valley_Music_Theater) > 10664) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_6__East_Troy__WI__Alpine_Valley_Music_Theater) > 1852404336) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_9__Minneapolis__Target_Center) > 117901063) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_10__Maryland_Heights__MO__UMB_Bank_Pavilion) > 67372037) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_12__Bonner_Springs__KS__Verizon_Amphitheater) > 67109892) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_26__Los_Angeles__CA__Home_Depot_Center) > 70223112) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_7_29__Chula_Vista__CA__Coors_Amphitheater) > 269488144) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_8_24__East_Rutherford__NJ__Cont__Airlines_Arena) > 1481589323) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_8_25__East_Rutherford__NJ__Cont__Airlines_Arena) > 1310731364) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_9_11__Hershey__PA__Hersheypark_Stadium) > 60891984) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_9_13__Bristow__VA__Nissan_Pavilion) > 168430090) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_9_14__Virginia_Beach__VA__Verizon_Wireless_Amp_) > 1752462433) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_9_16__Charlotte__NC__Verizon_Wireless_Amphitheater) > 23) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_9_17__Raleigh__NC__Alltel_Pavilion) > 940182846) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_9_19__Antioch__TN__AmSouth_Amphitheater) > 168640034) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($need_9_20__Atlanta__HiFi_Buys_Amphitheater) > 1481589323) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($tradeopts_1___2) > 1751607653) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($tradeopts_Other) > 1293970799) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($desc) > 1852403820) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Contact_FullName) > 1128088912) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Contact_Title) > 117458502) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Contact_Organization) > 117901063) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Contact_StreetAddress) > 3836) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Contact_Address2) > 940182846) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($Contact_Email) > 1310742607) {
$message = $message.$errmsg ;
$found_err = 1 ; }
$errmsg = "<p></p>\n" ;
if (length($submit) > 40) {
$message = $message.$errmsg ;
$found_err = 1 ; }
if ($found_err) {
&PrintError; }
# ***ENDAUTOGEN:VALIDATE*** Do NOT modify this line!! You may enter custom code after this line.
# ***AUTOGEN:LOGFILE*** Do NOT modify this line!! Do NOT enter custom code in this section.
# ***ENDAUTOGEN:LOGFILE*** Do NOT modify this line!! You may enter custom code after this line.
# ***AUTOGEN:EMAIL*** Do NOT modify this line!! Do NOT enter custom code in this section.
# ***ENDAUTOGEN:EMAIL*** Do NOT modify this line!! You may enter custom code after this line.
# ***AUTOGEN:HTML*** Do NOT modify this line!! Do NOT enter custom code in this section.
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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;
}
print "<html><head><title>Form Output</title></head><body>";
print "<h2>Results from FORM post</h2>\n";
foreach $key (keys(%FORM)) {
print "$key = $FORM{$key}<br>";
}
print "</body></html>";
# ***ENDAUTOGEN:HTML*** Do NOT modify this line!! You may enter custom code after this line.
# ***AUTOGEN:ERRPRINT*** Do NOT modify this line!! Do NOT enter custom code in this section.
sub PrintError {
print "Content-type: text/html\n\n";
print $message ;
exit 0 ;
return 1 ;
}
# ***ENDAUTOGEN:ERRPRINT*** Do NOT modify this line!! You may enter custom code after this line.
# ***AUTOGEN:PARSE*** Do NOT modify this line!! Do NOT enter custom code in this section.
sub GetFormInput {
(*fval) = @_ if @_ ;
local ($buf);
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
$buf=$ENV{'QUERY_STRING'};
}
if ($buf eq "") {
return 0 ;
}
else {
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
($name,$val)=split (/=/,$fval[$i],2);
$val=~tr/+/ /;
$val=~ s/%(..)/pack("c",hex($1))/ge;
$name=~tr/+/ /;
$name=~ s/%(..)/pack("c",hex($1))/ge;
if (!defined($field{$name})) {
$field{$name}=$val;
}
else {
$field{$name} .= ",$val";
#if you want multi-selects to goto into an array change to:
#$field{$name} .= "\0$val";
}
}
}
return 1;
}
# ***ENDAUTOGEN:PARSE*** Do NOT modify this line!! You may enter custom code after this line.
