Contact Us: Hitcents

#!/usr/bin/perl #Gets vars from screen. require "cgi/cgi-lib.pl"; # sets var to $in &ReadParse(*in); if( $in{letter} eq "" ) { $in{letter} = "yes"; } my %selected = (); $selected{'State'}{$in{'State'}} = "selected"; $selected{'letter'}{$in{'letter'}} = "checked"; my %states = ( "AL" => "Alabama", "AK" => "Alaska", "AZ" => "Arizona", "AR" => "Arkansas", "CA" => "California", "CO" => "Colorado", "CT" => "Connecticut", "DE" => "Delaware", "DC" => "District of Columbia", "FL" => "Florida", "GA" => "Georgia", "HI" => "Hawaii", "ID" => "Idaho", "IL" => "Illinois", "IN" => "Indiana", "IA" => "Iowa", "KS" => "Kansas", "KY" => "Kentucky", "LA" => "Louisiana", "ME" => "Maine", "MD" => "Maryland", "MA" => "Massachusetts", "MI" => "Michigan", "MN" => "Minnesota", "MS" => "Mississippi", "MO" => "Missouri", "MT" => "Montana", "NE" => "Nebraska", "NV" => "Nevada", "NH" => "New Hampshire", "NJ" => "New Jersey", "NM" => "New Mexico", "NY" => "New York", "NC" => "North Carolina", "ND" => "North Dakota", "OH" => "Ohio ", "OK" => "Oklahoma", "OR" => "Oregon", "PA" => "Pennsylvania", "RI" => "Rhode Island", "SC" => "South Carolina", "SD" => "South Dakota", "TN" => "Tennessee", "TX" => "Texas ", "UT" => "Utah ", "VT" => "Vermont", "VA" => "Virginia", "WA" => "Washington", "WV" => "West Virginia", "WI" => "Wisconsin", "WY" => "Wyoming", ); if ("\U$in{'address1'}" =~ "\U\@hitcents.com") { exit; } my $errors = ""; my %errors = (); if( $in{submitted} ) { if( $in{'name'} eq "" ) { $errors{'name'} = "Please enter your name."; } use Email::Valid; if( ! Email::Valid->address( $in{liame} ) ) { $errors{liame} = "Please enter a valid email address."; } if( $in{subject} ne "" ) { $errors{subject} = "Please don't enter values in hidden fields."; } if( keys %errors ) { $errors = "

" . join('
', values %errors ) . "

"; } else { $email="service\@hitcents.com"; #$email = 'brady.somerville@hitcents.com'; open(MAILER, "|/usr/lib/sendmail $email") || die "Error: can not open mail pipe.\n"; print MAILER "To: $email\n"; print MAILER "From: $in{'liame'}\n" ; print MAILER "Company: $in{'company'}\n"; print MAILER "Subject: E-mail from Hitcents Contact Page\n\n"; print MAILER "Name: $in{'name'}\n"; print MAILER "Address 1: $in{'address1'}\n"; print MAILER "Address 2: $in{'address2'}\n"; print MAILER "City: $in{'city'}\n"; print MAILER "State: $in{'State'}\n"; print MAILER "Zip Code: $in{'zip'}\n"; print MAILER "Phone Number: $in{'phone'}\n\n"; print MAILER "Questions or Comments: $in{'question'}\n"; close MAILER; warn "just sent email"; if ($in{'letter'} eq "yes") { #Write name into file open(USER_FILE, ">>datafiles/emaillist.ini"); print USER_FILE "$in{'liame'}½$in{'name'}½$timn½\n"; close USER_FILE; } print "Location: contact.cgi?submitted=1\n\n"; exit; } } print "Content-Type: text/html\n\n"; print < Contact Us: Hitcents