Source files of fsfe.org, pdfreaders.org, freeyourandroid.org, ilovefs.org, drm.info, and test.fsfe.org. Contribute: https://fsfe.org/contribute/web/ https://fsfe.org
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

64 lines
1.3 KiB

#!/usr/bin/perl
use CGI;
use POSIX qw(strftime);
my $query = new CGI;
my $date = strftime "%Y-%m-%d", localtime;
my $time = strftime "%s", localtime;
my $reference = "order.$date." . substr $time, -5;
my $firstname = $query->param("firstname");
my $lastname = $query->param("lastname");
my $email = $query->param("email");
my $address = $query->param("address");
my $specifics = $query->param("specifics");
my $comment = $query->param("comment");
my $lang = $query->param("language");
if (
# validate input (more or less)
($firstname or $lastname)
and $email
and $address
and $specifics
and not $query->param("url")
) {
#send mail
open(MAIL, "|/usr/lib/sendmail -t -f promoorder\@fsfe.org");
print MAIL
"From: promoorder\@fsfe.org
To: assist\@fsfe.org
Cc: paul\@fsfe.org
Subject: $reference $firstname $lastname
Hey, someone ordered promotional material:
First Name: $firstname
Last Name: $lastname
EMail: $email
Address:
$address
Specifics of the Order:
$specifics
Comments:
$comments
Preferred language was: $lang
KTHXBYE
Your friendly automatic web order program.
";
close MAIL;
print "Location: /order/orderpromo-thanks.$lang.html\n\n";
} else {
#something was wrong with the input
print "Location: /order/orderpromo-error.$lang.html\n\n";
}