subdivided address field, hopefully fixed mail encoding

svn path=/trunk/; revision=24324
This commit is contained in:
paul 2012-09-13 13:00:28 +00:00
parent 9296c3781c
commit 4c7faa274f
3 changed files with 35 additions and 14 deletions

View File

@ -9,30 +9,43 @@ my $date = strftime "%Y-%m-%d", localtime;
my $time = strftime "%s", localtime;
my $reference = "order.$date." . substr $time, -5;
my $firstname = $query->param("firstname");
# technically we only need the last name for shipping
my $firstname = $query->param("firstname") || $firstname = '';
my $lastname = $query->param("lastname");
my $email = $query->param("email");
my $address = $query->param("address");
my $street = $query->param("street");
my $city = $query->param("city");
my $country = $query->param("country");
#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)
$lastname
and $email
and $address
and $street
and $city
and $country
# and $address
and $specifics
and not $query->param("url")
) {
#send mail
open(MAIL, "|/usr/lib/sendmail -t -f promoorder\@fsfe.org");
open(MAIL, "|/usr/lib/sendmail -t -f $email");
print MAIL
"From: promoorder\@fsfe.org
"Content-Transfer-Encoding: 8bit
Content-type: text/plain; charset=UTF-8
From: $email
To: assist\@fsfe.org
Cc: paul\@fsfe.org
Subject: $reference $firstname $lastname
Subject: [promo order] $reference $firstname $lastname
Hey, someone ordered promotional material:
First Name: $firstname
@ -40,7 +53,9 @@ Last Name: $lastname
EMail: $email
Address:
$address
$street
$city
$country
Specifics of the Order:
$specifics
@ -49,9 +64,6 @@ Comments:
$comments
Preferred language was: $lang
KTHXBYE
Your friendly automatic web order program.
";
close MAIL;

View File

@ -9,7 +9,7 @@
<h1>Ooops, there is something wrong with your input!</h1>
<p>
Please make sure you entered your name, email, address, and the order itself. Comments are optional.
Please make sure you entered your last name, email, full address, and the order itself. Comments are optional.
</p>
</body>

View File

@ -40,8 +40,17 @@ in general we just send packages up to 1kg. If you need more, please ask.</p>
<input type="text" name="lastname" placeholder="Last Name" size="20" /><br/>
<span class="formlabel">Email:</span>
<input type="text" name="email" placeholder="Email" size="40" /><br/>
<span class="formlabel">Address:</span>
<textarea name="address" rows="4" cols="40"></textarea><br/>
<span class="formlabel">Street, No.:</span>
<input type="text" name="street" size="40" /><br/>
<span class="formlabel">Zip, City:</span>
<input type="text" name="city" size="40" /><br/>
<span class="formlabel">Country:</span>
<input type="text" name="country" size="40" /><br/>
<!-- span class="formlabel">Address:</span>
<textarea name="address" rows="4" cols="40"></textarea><br/ -->
<span class="formlabel">I would like the promotion package to focus on:</span>
<textarea name="specifics" rows="6" cols="40">
No focus, just send me the default package, containing: