#!/usr/bin/perl &form_parse; @Months = ('Januari','Februari','Maart','April','Mei','Juni','Juli', 'Augustus','September','Oktober','November','December','December'); ($Second,$Minute,$Hour,$Month_Day,$Month,$Year,$Week_Day,$IsDST) = (localtime)[0,1,2,3,4,5,6,8]; $maandjes=$Months[$Month]; $date =$formdata{'date'}; $dag =$formdata{'dag'}; $jaar =$formdata{'jaar'}; $maandje=$formdata{'maand'}; $mineen=$maandje-1; $maanduit=$Months[$mineen]; $maandjes=$Months[$Month]; $Years=$Year+1900; if ("$jaar" eq "2012") {$jaarcor=2012;} else {$jaarcor=2013;} print "Content-Type: text/html\n\n"; print < ZANDSTAPPERS vzw - WANDELKALENDER 2013
ZANDSTAPPERS vzw
HOME WANDELVERSLAGEN ALGEMENE INFO LEDENPAGINA LID WORDEN LINKS CONTACT

Wandelkalender
deze maand
EOF_HTML if ("$maandjes" eq "Januari") {&kalenderJanuari2013} if ("$maandjes" eq "Februari") {&kalenderFebruari2013} if ("$maandjes" eq "Maart") {&kalenderMaart2013} if ("$maandjes" eq "April") {&kalenderApril2013} if ("$maandjes" eq "Mei") {&kalenderMei2013} if ("$maandjes" eq "Juni") {&kalenderJuni2013} if ("$maandjes" eq "Juli") {&kalenderJuli2013} if ("$maandjes" eq "Augustus") {&kalenderAugustus2013} if ("$maandjes" eq "September") {&kalenderSeptember2013} if ("$maandjes" eq "Oktober") {&kalenderOktober2013} if ("$maandjes" eq "November") {&kalenderNovember2013} if (("$maandjes" eq "December") && ("$Years" eq "2012")) {&kalenderDecember2012} if (("$maandjes" eq "December") && ("$Years" eq "2013")) {&kalenderDecember2013} print <
Wandelkalender
2013
EOF_HTML &kalenderJanuari2013; &kalenderFebruari2013; &kalenderMaart2013; &kalenderApril2013; &kalenderMei2013; &kalenderJuni2013; &kalenderJuli2013; &kalenderAugustus2013; &kalenderSeptember2013; &kalenderOktober2013; &kalenderNovember2013; &kalenderDecember2013; print <  
$dag $date $maanduit $jaarcor


EOF_HTML $c=1; open(file,"./belgie.txt"); @lines=; close(file); foreach $line (@lines) { @fields=split(/\t/,$line); if (($fields[2] eq "$date") && ($fields[0] eq "$maandje")) { print <
$c. $fields[3]   -   $fields[4]
  Provincie $fields[12]
  $fields[5] - $fields[6]
  $fields[7] km
  Start : $fields[8]   -   $fields[9],$fields[10]

EOF_HTML $c++ } } print < EOF_HTML ####################################### sub kalenderJanuari2013 { print < Januari 2013 Ma Di Wo Do Vr Za Zo   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31      
EOF_HTML } ####################################### sub kalenderFebruari2013 { print < Februari 2013 Ma Di Wo Do Vr Za Zo         1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28      
EOF_HTML } ####################################### sub kalenderMaart2013 { print < Maart 2013 Ma Di Wo Do Vr Za Zo         1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
EOF_HTML } ####################################### sub kalenderApril2013 { print < April 2013 Ma Di Wo Do Vr Za Zo 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30          
EOF_HTML } ####################################### sub kalenderMei2013 { print < Mei 2013 Ma Di Wo Do Vr Za Zo     1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31    
EOF_HTML } ####################################### sub kalenderJuni2013 { print < Juni 2013 Ma Di Wo Do Vr Za Zo           1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
EOF_HTML } ####################################### sub kalenderJuli2013 { print < Juli 2013 Ma Di Wo Do Vr Za Zo 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31        
EOF_HTML } ####################################### sub kalenderAugustus2013 { print < Augustus 2013 Ma Di Wo Do Vr Za Zo       1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31  
EOF_HTML } ####################################### sub kalenderSeptember2013 { print < September 2013 Ma Di Wo Do Vr Za Zo             1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30            
EOF_HTML } ####################################### sub kalenderOktober2013 { print < Oktober 2013 Ma Di Wo Do Vr Za Zo   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31      
EOF_HTML } ####################################### sub kalenderNovember2013 { print < November 2013 Ma Di Wo Do Vr Za Zo         1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30  
EOF_HTML } ####################################### sub kalenderDecember2013 { print < December 2013 Ma Di Wo Do Vr Za Zo             1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31          
EOF_HTML } ####################################### sub kalenderDecember2012 { print < December 2012 Ma Di Wo Do Vr Za Zo           1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31            
EOF_HTML } ####################################### sub form_parse { local($buffer, $ix1, $pair, $key, $value, @pairs); if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if ($ENV{'QUERY_STRING'} ne "") { $buffer = $ENV{'QUERY_STRING'}."&".$buffer; } @pairs = split(/&/, $buffer); } else { print "Content-type: text/html\n\n"; print "

You must use Post or Get

"; } $ix1 = 0; foreach $pair (@pairs) { ($key, $value) = split (/=/, $pair); $key =~ tr/+/ /; $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $exp = $_[0]; $exp2 = $exp % 2; if ($value eq '') { if ($exp2 == 1) { $value = $ENV{$key}; } } $exp = int($exp / 2); $exp2 = $exp % 2; if ($value eq '') { if ($exp2 == 1) { $value = $date_time{$key}; } } $formdata[$ix1] = $key; $ix1 += 1; $formdata[$ix1] = $value; $ix1 += 1; if ($formdata{$key}) { $formdata{$key} .= "$value"; } else { $formdata{$key} = $value; } } }