79 lines
1.8 KiB
Perl
Executable File
79 lines
1.8 KiB
Perl
Executable File
#!/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 = "nomination.$date." . substr $time, -5;
|
|
|
|
# technically we only need the last name for shipping
|
|
my $firstname = $query->param("firstname");
|
|
my $lastname = $query->param("lastname");
|
|
my $email = $query->param("email");
|
|
my $phone = $query->param("phone");
|
|
my $website = $query->param("website");
|
|
|
|
my $street = $query->param("street");
|
|
my $city = $query->param("city");
|
|
my $country = $query->param("country");
|
|
#my $address = $query->param("address");
|
|
|
|
my $biography = $query->param("biography");
|
|
my $motivation = $query->param("motivation");
|
|
my $lang = $query->param("language");
|
|
|
|
if (
|
|
# validate input (more or less)
|
|
$firstname and $lastname and
|
|
( $email
|
|
or $phone
|
|
or ($street
|
|
and $city
|
|
and $country)
|
|
)
|
|
and $website
|
|
and $biography and $motivation
|
|
and not $query->param("url")
|
|
) {
|
|
|
|
#send mail
|
|
open(MAIL, "|/usr/lib/sendmail -t -f noreply\@fsfe.org");
|
|
print MAIL
|
|
"Content-Transfer-Encoding: 8bit
|
|
Content-type: text/plain; charset=UTF-8
|
|
From: noreply\@fsfe.org
|
|
To: award\@fscons.org
|
|
Subject: [NFSA Nomination] $reference $firstname $lastname
|
|
|
|
This person was just nominated for a Nordic Free Software Award:
|
|
First Name: $firstname
|
|
Last Name: $lastname
|
|
EMail: $email
|
|
Phone: $phone
|
|
Website: $website
|
|
|
|
Address:
|
|
$street
|
|
$city
|
|
$country
|
|
|
|
Biography:
|
|
$biography
|
|
|
|
Motivation:
|
|
$motivation
|
|
|
|
Preferred language was: $lang
|
|
";
|
|
close MAIL;
|
|
|
|
print "Location: http://fsfe.org/activities/nordic-free-software-award/nfsa-nominate-thanks.$lang.html\n\n";
|
|
} else {
|
|
|
|
#something was wrong with the input
|
|
print "Location: http://fsfe.org/activities/nordic-free-software-award/nfsa-nominate-error.$lang.html\n\n";
|
|
}
|