HOME :: NIFLHEIM PROMOTIONS VZW | NATURMYSTIKK | EVE OF GRIEF

Presale Form

Order your tickets for Naturmystikk - Negura Bunget @ Decadance, 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). Presale is helaas gesloten en enkel nog reserveringen aan deurprijs (12) zijn nog mogelijk. Je gaf volgende opmerking: \'$remarks\'. Zonder tegenbericht komt dit in orde. Niflheim Promotions VZW"; my $texthtml = "

Beste $name,

We noteerden uw naam en aantal tickets ($amount). Presale is helaas gesloten en enkel nog reserveringen aan deurprijs (12) zijn nog mogelijk. Je gaf volgende opmerking: \'$remarks\'. Zonder tegenbericht komt dit in orde.

Bedankt om dit optreden mee mogelijk te maken!

Niflheim Promotions VZW"; 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\ Negura Bunget, Ossific, Tragacant +1 \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 '