#!/usr/bin/perl #!D:/program/Perl64/bin/perl.exe require "cgi-lib.pl"; &ReadParse(\%input); print "expires: Mon, 26 Jul 1997 05:00:00 GMT Cache-Control: no-cache, must-revalidate Pragma: no-cache\n"; print &PrintHeader; print qq(
Registration will open soon. ); } sub ett { print qq(
If you plan to join us for Coast2Coast Sweden May 14-27 2017, please register below.
Cost: 3000 SEK for the whole walk and 300 SEK per day for those who will only do parts. Swedish VAT included. Included in this price is:
Please note that you need to be self sufficient and bring your own shelter and food.
When you register, please pay 300 SEK in order to secure a place. This will not be refunded should you be unable to participate. The remaining amount (2700 SEK if you will do the entire walk) must be payed before April 15 2017. Should you register after this date, please check that the walk is not fully booked. If that is not the case we will of course accept participants registering after April 15. Please check out our complete conditions found in a separate document.
We accept payments through PayPal (best for international payments) and Swish (best for Swedish payments). PayPal has a service, apart from credit cards, to make payments directly from your bank account, should you choose this. We accept payments through PayPal, Swish and bank transfer. PayPal has a service, apart from credit cards, to make payments directly from your bank account, should you choose this.
Below you choose between using PayPal, the Swish option or bank transfer. After making your payment you will receive a confirmation. Documentation and maps are included in the fee and will delivered at the latest one month before the event begins.
Payment: If you join us for the entire walk the cost is 3000 SEK. If you join us between, for example May 14-May 17, this is four days and will cost you 300 SEK per day. Total cost: 1200 SEK.
When you register, please pay 300 SEK in order to secure a place. This will not be refunded should you be unable to participate. The remaining amount (2700 SEK if you will do the entire walk) must be payed before April 15 2017. Should you register after this date, please check that the walk is not fully booked. Please check out our complete conditions found in a separate document.
Should you choose to use PayPal, please pay the correct amount to our PayPal account at: info\@coast2coastsweden.com
Please write a line saying which dates you plan to join, if not for the entire walk.
Should you choose to use Swish, please pay the correct amount to our Swish account at 1235579057.
Should you choose to transfer money straight into our bank account our IBAN is SE42 8000 0832 7993 4992 6288 and Swift address is Swedsess.
Please write a line saying which dates you plan to join, if not for the entire walk.
Please note that we do not sell or in any way trade the information you give us.
); } sub reg { if ($input{"fn"} eq "" || $input{"en"} eq "" || $input{"m"} !~ /\@/ ) { print qq(Please fill in the form correctly. Go back and try again); return; } $tid = get_tid_string(); $rec=$input{"fn"} . ";" . $input{"en"} . ";" . $input{"gata"} . ";" . $input{"postnr"} . ";" . $input{"stad"} . ";" . $input{"c"} . ";" . $input{"m"} . ";" . $input{"s"} . ";" . $tid . "\n" ; open (FIL, ">>smarterbackpackingregisterdusers.dat"); print FIL $rec; close (FIL); print qq(
Thank you for registering with Coast2Coast Sweden!
Payment: If you join us for the entire walk the cost is 3000 SEK. If you join us between, for example May 14-May 17, this is four days and will cost you 300 SEK per day. Total cost: 1200 SEK.
When you register, please pay 300 SEK in order to secure a place. This will not be refunded should you be unable to participate. The remaining amount (2700 SEK if you will do the entire walk) must be payed before April 15 2017. Should you register after this date, please check that the walk is not fully booked. Please check out our complete conditions found in a separate document.
Should you choose to use PayPal, please pay the correct amount to our PayPal account at: info\@coast2coastsweden.com
Please write a line saying which dates you plan to join, if not for the entire walk.
Should you choose to use Swish, please pay the correct amount to our Swish account at 1235579057. Please write a line saying which dates you plan to join, if not for the entire walk.
Should you choose to transfer money straight into our bank account our IBAN is SE42 8000 0832 7993 4992 6288 and Swift address is Swedsess.
Welcome to Coast2Coast Sweden!
Return to www.coast2coastsweden.com
); } sub listregbookkulareaders { print qq(Lista över registrerade användare. (Det går bra att göra copy paste på innehållet i listan nedan.)
"; } sub get_tid_string { my ($sekunder) = @_; my ($tid, @tid, $tid, %man_bokstav_siffra, $man, $t); if (defined ($sekunder)) { $t = time(); $t = $t + $sekunder; # 2592000 = en månad @tid=split (/\s+/, localtime($t)); } else { @tid=split (/\s+/, localtime); } %man_bokstav_siffra=("Jan","01","Feb","02","Mar","03","Apr","04","May","05","Jun","06","Jul","07","Aug","08", "Sep","09","Oct","10","Nov","11","Dec","12"); $man = $man_bokstav_siffra{$tid[1]}; if ($tid[2] < 10) { $dag = "0$tid[2]"; } else { $dag = "$tid[2]"; } $tid="$tid[4]-$man-$dag"; #år-måndad-dag return $tid; } print qq(