# Please do not put anything in here: # #
# ----------------------------------------------------------------------------- # List of events # ----------------------------------------------------------------------------- my %events = ( "sfd2011vienna" => "SFD 2011 Vienna", ); # ----------------------------------------------------------------------------- # List of recipients for registration e-mails for events # ----------------------------------------------------------------------------- my %recipient = ( "sfd2011vienna" => "sfd11vienna\@gollo.at", ); # ----------------------------------------------------------------------------- # Get parameters # ----------------------------------------------------------------------------- my $query = new CGI; # Check if the script was called with an event ID if ($query->param("eventid") eq '') { goto OK; } my $eventid = $query->param("eventid"); my $fullname = escapeHTML($query->param("fullname")); my $email = escapeHTML($query->param("email")); my $comment = escapeHTML($query->param("comment")); my $date = strftime "%Y-%m-%d", localtime; my $time = strftime "%s", localtime; my $eventname = $events{$eventid}; my $reference = "$eventid.$date." . substr $time, -3; my $to1 = $recipient{$eventid}; my $subject = "$eventname registration $reference"; # ----------------------------------------------------------------------------- # Prevent SPAM # ----------------------------------------------------------------------------- # Spam bots will be tempted to fill in this actually invisible field if ($query->param("link")) { goto OK; } $spamresult = SpammerChk::isSpammerEmail($email); if ($spamresult) { goto OK; } # ----------------------------------------------------------------------------- # Generate mail to responsible person # ----------------------------------------------------------------------------- my $boundary = "NextPart$reference"; open(MAIL, "|/usr/lib/sendmail -t -f web\@fsfeurope.org"); print MAIL "From: web\@fsfeurope.org\n"; print MAIL "To: $to1\n"; print MAIL "Cc: ".$email."\n"; print MAIL "Subject: $subject\n"; print MAIL "Mime-Version: 1.0\n"; print MAIL "Auto-submitted: auto-generated\n"; print MAIL "Precedence: bulk\n"; print MAIL "Content-Type: multipart/mixed; boundary=$boundary\n"; print MAIL "Content-Transfer-Encoding: 8bit\n\n\n"; print MAIL "--$boundary\n"; print MAIL "Content-Type: text/plain; charset=utf-8\n"; print MAIL "Content-Transfer-Encoding: 8bit\n\n"; print MAIL "This registration for the event \"$eventname\" was sent via web interface\n\n"; print MAIL "--$boundary\n"; print MAIL "Content-Type: text/plain; charset=utf-8\n"; print MAIL "Content-Disposition: attachment; filename=$reference.txt\n"; print MAIL "Content-Description: Event registration\n"; print MAIL "Content-Transfer-Encoding: 8bit\n\n"; print MAIL "Registrant name: ".$fullname."\n\n"; print MAIL "E-mail address: ".$email."\n\n"; print MAIL "Comment: ".$comment."\n\n"; print MAIL "--$boundary--\n"; close MAIL; # ----------------------------------------------------------------------------- # Inform user that everything was ok # ----------------------------------------------------------------------------- OK: print "Content-type: text/html\n\n"; print ""; print "";
print "Your registration $reference was sent. Thank you.
";
print "Name: ".$fullname."
\n\n";
print "E-mail: ".$email."
\n\n";
print "Comment: ".$comment."
\n\n";
print "