HOME :: NIFLHEIM PROMOTIONS | NATURMYSTIKK | EVE OF GRIEF

Presale Form

Order your tickets for Naturmystikk - Mortifera, Total Self Hatred, Toorn, Murw @ The Frontline, Gent:
Any questions, please contact presales@niflheimpromotions.be

'; if ($name, $email, $amount) { my $payment = $amount * 10; my $text = "Beste $name, Beste $name, we noteerden uw naam en aantal tickets ($amount). De voorverkoop is intussen afgesloten, enkel nog een reservatie kon gemaakt worden. Je gaf volgende opmerking: \'$remarks\'. Zonder tegenbericht komt dit in orde. Niflheim Promotions"; my $texthtml = "

Beste $name,

We noteerden uw naam en aantal tickets ($amount). De voorverkoop is intussen afgesloten, enkel nog een reservatie kon gemaakt worden. Je gaf volgende opmerking: \'$remarks\'. Zonder tegenbericht komt dit in orde.

Bedankt om dit optreden mee mogelijk te maken! Tot donderdag!

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 Naturmystikk w\ Mortifera, Total Self Hatred, Toorn, Murw \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 '