#!/usr/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("Presales Naturmystikk - Dordeduh, Absolutus, Tranceatla"), h1 ("presales Dordeduh, Absolutus, Tranceatla - 12 February 2017"); print '

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

Presale Form

Order your tickets for Naturmystikk - Dordeduh, Tranceatla, Absolutus @ Asgaard, Gent:
Any questions, please contact presales@niflheimpromotions.be

'; if ($name, $email, $amount) { my $payment = $amount * 12; my $text = "Beste $name, Beste $name, we noteerden uw naam en aantal tickets ($amount). Om de presale te vervolledigen, gelieve het bedrag van $payment Euro ($amount x 12) te storten op rekening IBAN: BE58 7390 1261 7879 (BIC: KREDBEBB) op naam van Niflheim Promotions VZW. Overschrijvingen worden minstens 2-wekelijks gecontroleerd. Hierop zal een e-ticket verstuurd worden om uw presale te bevestigen. Nifheim Promotions beschikt niet over een barcode systeem. Daarom worden namen op de gastenlijst geschreven. Toegang wordt verschaft na eenvoudig vertoon van identiteitskaart (of rijbewijs, SIS-kaart,…). Het E-ticket dient dan ook slechts als formele bevestiging van de presale. Bedankt om dit optreden mee mogelijk te maken! 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). Om de presale te vervolledigen, gelieve het bedrag van $payment Euro ($amount x 12) te storten op rekening IBAN: BE58 7390 1261 7879 (BIC: KREDBEBB) op naam van Niflheim Promotions VZW. Overschrijvingen worden minstens 2-wekelijks gecontroleerd. Hierop zal een e-ticket verstuurd worden om uw presale te bevestigen. Nifheim Promotions beschikt niet over een barcode systeem. Daarom worden namen op de gastenlijst geschreven. Toegang wordt verschaft na eenvoudig vertoon van identiteitskaart (of rijbewijs, SIS-kaart,…). Het E-ticket dient dan ook slechts als formele bevestiging van de presale. 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\ Dordeduh, Tranceatla, Absolutus +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 '

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