Jump to content

Help With Perl/cgi/dynamic Html Pages

chs22

By chs22
in Scripting Talk

 Share

Recommended Posts

chs22 Rookie

chs22

Posted
Posted

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.

chs22 Rookie

chs22

Posted
  • Author
Posted

I guess the biggest problem I'm having is that I can't figure out how to create a html page that will accept the fields from my form page using the perl script. How do I add the $email, $name, etc fields in an html file so they will publish correctly?

surefire Mentor

surefire

Posted
Posted

I've written some pretty intense database driven websites (6,500+ pages) in php but not in perl. What you're looking to do is absolutely possible, and not all that difficult... depending on how you feel about coding.

 

The good news is that TCH comes with awesome PHP resources and free MySQL. However, it's a long post to explain how to integrate database functionality into your site.

 

If you give me a little more info what you mean by

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.

then I'll be happy to answer the question in more detail.

 

Specifically, what do you want the visitor to see after they post the form?

 

If you want the posted information to be stored for other users to see, you'll need a database (or flat file) to make it work.

 

You're looking at lots of hours of coding and caffeine to get it working.

 

One thing you might try... is to visit

 

Hot Scripts

 

They've got tons of free scripts ready to use. The trick is finding something close enough to what you're looking for.

 

Best of luck.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...