| |
#!/usr/bin/perl
##############################################################################
# IMPORTANT : Anybody can use or distribute this script as long as the#
# author's info below stays intact.#### AUTHOR's INFO:###
# WAP-FORMAIL cgi script by UPOINT dotNET ENTERPRISE## WWW: www.upoint.net#
# WAP: www.upoint.net/wap## Email: lawrence@upoint.net#### INSTRUCTION:#
# You must chmod this script to 755#
# Not many variables needed to be defined as variables are mostly set in the#
# WAP contact form.#### WAP CONTACT FORM SAMPLE:#### #
# <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://#
# www.wapforum.org/DTD/wml_1.1.xml">## <wml>#
# <card id="WAPContact" title="Send Message">## <p>#
# Your Name:<input type="text" name="name"/>#
# Your Email:<input type="text" name="email"/>## Select Gender:#
# <select name="gender">## <option value="Mr">Male</option>#
# <option value="Ms">Female</option>## </select>#
# Your Message:<input type="text" name="message"/>## <anchor>#
# Send <go href="http://sawutdee.net/cgi-bin/wap_formail.cgi" method="post">#
# <postfield name="name" value="$(name)" />#
# <postfield name="email" value="$(email)" />#
# <postfield name="gender" value="$(gender)" />#
# <postfield name="message" value="$(message)" />#
# <postfield name="site" value="Sawutdee Thai Music" />#
# <postfield name="subject" value="A mail sent from Sawutdee WAP site" />#
# <postfield name="your_email" value="admin@sawutdee.net" />#
# <postfield name="home_url" value="http://www.sawutdee.net/wap/home.wml"/>#
# </go>## </anchor>## </p>## </card>## </wml>###
##############################################################################
# Enter the location of sendmail.$mailprogram = "/usr/sbin/sendmail -t";
# Enter the fields that are required. They should each be in quotes and
# separated by a comma. If no fields are required, change the next line
# to @required = ();@required = ('name','email','gender','message');
##############################################################################
# Congratulations! You've finished defining the variables. If you want to,#
# you can continue screwing with the script, but it isn't necessary.#
##############################################################################
# Put the posted data into variables
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;
}# Check for all required fields
foreach $check(@required) {
unless ($FORM{$check}) {
print "Content-type:text/vnd.wap.wml \n\n\n";
print "<?xml version=\"1.0\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\"\"http://www.wapforum.org/DTD/wml_1.1.xml\"><wml><card id=\"Result\" title=\"Result\"><do type=\"prev\" label=\"back\"><prev/></do><p>Sorry, your didn't fill the $check field. Please try again.</p></card></wml>";
exit;
}
}# Check the senders email
if ($FORM{'email'}) { unless ($FORM{'email'} =~ /\w+@\w+.\w+/) {
print "Content-type:text/vnd.wap.wml \n\n\n";
print "<?xml version=\"1.0\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\"\"http://www.wapforum.org/DTD/wml_1.1.xml\"><wml><card id=\"Result\" title=\"Result\"><do type=\"prev\" label=\"back\"><prev/></do><p>Sorry, the email address $FORM{'email'} is invalid. Please try again.</p></card></wml>"; exit; }}
open (MAIL,"|$mailprogram");
print MAIL "To: $FORM{'your_email'}\n";
print MAIL "From: $FORM{'email'}\n";
print MAIL "Subject: $FORM{'subject'}.\n";
print MAIL "Message sent by $FORM{'gender'}.$FORM{'name'} from $FORM{'site'}WAP site.\n\n";print MAIL "Message:\n\n";print MAIL "$FORM{'message'}\n";
close MAIL;
print "Content-type:text/vnd.wap.wml \n\n\n";
print "<?xml version=\"1.0\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\"\"http://www.wapforum.org/DTD/wml_1.1.xml\"><wml><card id=\"Result\" title=\"Result\"><do type=\"prev\" label=\"back\"><prev/></do><p>Dear $FORM{'gender'}.$FORM{'name'}, thank you for contacting$FORM{'site'}. We will attend to you soon.</p><p><a href=\"$FORM{'home_url'}\">. . . . Main Menu</a></p></card></wml>";
|
|
CODIGO FUENTE