#!/usr/bin/perl # location of your cgi-lib.pl $cgi_lib = '/home/iconixsw.com/cgi/cgi-lib.pl'; #Change the post stdin to cgi-lib require $cgi_lib; &ReadParse(); #This is going to keep the registering person's email open (EMAIL, ">>regemail"); print EMAIL "$in{email}\n" unless $in{email} eq ""; close(EMAIL); # Print email information to MAIL open (MAIL,"|/usr/lib/sendmail -t"); print MAIL "To: Iconix Marketing \n"; print MAIL "From: $in{'contact_name'} <$in{'email'}>\n"; print MAIL "Reply-To: $in{'email'}\n"; print MAIL "Name "; print MAIL "$in{name}\n"; print MAIL "Title "; print MAIL "$in{title}\n"; print MAIL "Company "; print MAIL "$in{company}\n"; print MAIL "Address "; print MAIL "$in{address1}\n"; print MAIL " ", "$in{address2}\n"; print MAIL " ", "$in{address3}\n"; print MAIL "City "; print MAIL "$in{city}\n"; print MAIL "ST "; print MAIL "$in{state}\n"; print MAIL "Zip "; print MAIL "$in{zip}\n"; print MAIL "Country "; print MAIL "$in{country}\n"; print MAIL "Phone "; print MAIL "$in{phone}\n"; print MAIL "Fax "; print MAIL "$in{fax}\n"; print MAIL "Email "; print MAIL "$in{email}\n"; print MAIL "Platform "; print MAIL "$in{platform}\n"; print MAIL "Source "; print MAIL "$in{source}\n"; print MAIL "Activites: ", "$in{activities}\n"; print MAIL "Looking: ", "$in{looking}\n"; print MAIL "Language: ", "$in{lang}\n"; print MAIL "Target: ", "$in{target}\n"; print MAIL "Literature: ", "$in{literature}\n"; print MAIL "White Papers: ", "$in{wpapers}\n"; print MAIL "Demos: ", "$in{demos}\n"; print MAIL "Demoplatform: ", "$in{demoplatform}\n"; print MAIL close (MAIL); # Print the HTML for the returned page print &PrintHeader; print &HtmlTop("Thank you for registering."); print "
\n"; print "

Return to\n"; print "Iconix Home Page

\n"; # Print HTML end stuff print &HtmlBot;