#!/usr/local/bin/perl #ticket script use warnings; use strict; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); my $name = param("n"); my $email = param("e"); my $amount = param("a"); my $remarks = param ("r"); print header (), start_html("Onrust tribute pt. 2 w/ ANTIMATTER (full band), 40 WATT SUN, Leafblade"), h1 ("presales 40 Watt Sun & Antimatter - 12th of April 2014"); print '

HOME :: NIFLHEIM PROMOTIONS   |     NATURMYSTIKK   |    EVE OF GRIEF

Presale Form

Order your tickets for ANTIMATTER (full band), 40 WATT SUN, Leafblade via bank transfer:
Any questions, please contact presales@niflheimpromotions.be

There are NO administration costs.

'; if ($name, $email, $amount) { my $payment = $amount * 16; my $text = "Beste $name, We noted your name and amount of tickets ($amount). The door tickets are reserved now, you can pay them at the entrance on the day of the concert. Please mention your name at the entrance. You gave the following remarks: \'$remarks\'. If not stated otherwise, this will be ok. Thanks for making this concert possible. Niflheim Promotions"; my $texthtml = "

Dear $name,

We noted your name and amount of tickets ($amount). The door tickets are reserved now, you can pay them at the entrance on the day of the concert. Please mention your name at the entrance. You gave the following remarks: \'$remarks\'. If not stated otherwise, this will be ok.

Thanks for making this concert possible.

Niflheim Promotions"; open (MAIL, "|/usr/sbin/sendmail -t -oi") or die "Can't fork for sendmail: $!\n"; print MAIL "From: presales\@niflheimpromotions.be\n"; print MAIL "To: $email\n"; print MAIL "cc: niflheim.contact\@gmail.com, presales\@niflheimpromotions.be\n"; print MAIL "Subject: Your presale for Onrust tribute pt. 2 w/ ANTIMATTER, 40 WATT SUN, Grown Below, Leafblade \n\n"; print MAIL $text; close(MAIL); print $texthtml; } else { print hr, start_form, "Please enter your full name, email adress and amount of tickets you want to order. If you have any remarks you can mention these (for example the names of the other visitors, in case they might not arrive at the same time)", br, "Your name (e.g. John Doe)\: ", textfield ("n", ""), br, "Your e-mail adres (e.g. account\@gmail.com)\: ", textfield ("e",""), br, "Amount of tickets (e.g. 2)\: ", textfield (-name => "a", -size => 2, -maxlenght =>2), br, "Remarks\: ", textfield (-name => "r", -value => 'I have no remarks', -size => 100), br; print submit(-name=>"post",-value=>"Order Tickets"); print end_form, hr; } print '

Site Copyright © 2013 Niflheim Promotions
Website designed, owned and maintained by Niflheim Promotions
'; print end_html ();