Wok Wonderland

#!/usr/bin/perl require "Contentinfo.lib"; if ($ENV{REQUEST_METHOD} eq "POST"){ read(STDIN,$temp,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split(/=/,$item,2); $content=~tr/+/ /; $content=~s/%(..)/pack("c",hex($1))/ge; $fields{$key}=$content; } } else { @pairs=split(/&/,$ENV{'QUERY_STRING'}); foreach $item(@pairs) { ($key,$content)=split(/=/,$item,2); $content=~tr/+/ /; $content=~s/%(..)/pack("c",hex($1))/ge; $fields{$key}=$content; } } ### OPLOSSING GOOGLE<->IFRAME PROBLEEM #if($ENV{HTTP_REFERER}!~m#http://www.wokwonderland.nl.*?#gi){ # print "Location: http://www.wokwonderland.nl\n\n"; #} else { print "Content-type: text/html\n\n"; $configpath = "data"; $dc="$ENV{SCRIPT_NAME}"; open(CONF, "$configpath/config"); @config=; close(CONF); ($usr,$pass,$email,$naam,$titel,$face,$agkleur,$agplaatje,$tekst,$link,$alink,$vlink,$pathhtml,$pathcgi,$urlgif,$pathsendmail,$dirgif,$url,$btwnl,$mailingsys,$bestelsys,$sort,$titelcat1,$titelcat2,$titelcat3,$bestmodcat1,$bestmodcat2,$bestmodcat3,$mailmodcat1,$mailmodcat2,$mailmodcat3,$vzk,$vzkbedrag,$gewichtverpak,$klasse1a,$klasse1b,$klasse1,$klasse2a,$klasse2b,$klasse2,$klasse3a,$klasse3b,$klasse3,$klasse4a,$klasse4b,$klasse4,$klasse11a,$klasse11b,$klasse11,$klasse21a,$klasse21b,$klasse21,$klasse31a,$klasse31b,$klasse31,$klasse41a,$klasse41b,$klasse41,$klasse51a,$klasse51b,$klasse51,$klasse61a,$klasse61b,$klasse61,$align,$velda1,$velda2,$velda3,$velda4,$velda5,$veldb1,$veldb2,$veldb3,$veldb4,$veldb5,$veldc1,$veldc2,$veldc3,$veldc4,$veldc5,$veldfact1a,$veldfact2a,$veldfact3a,$veldfact4a,$veldfact5a,$veldfact6a,$veldfact7a,$veldfact8a,$veldfact9a,$veldfact10a,$veldfact11a,$veldfact12a,$veldfact13a,$veldfact14a,$veldfact15a,$veldfact16a,$veldfact17a,$veldfact18a,$veldfact19a,$veldfact20a,$veldfact21a,$veldfact22a,$veldfact23a,$veldfact24a,$veldfact25a,$veldfact26a,$veldfact27a,$veldfact28a,$veldfact29a,$veldfact30a,$veldfact31a,$veldfact1b,$veldfact2b,$veldfact3b,$veldfact4b,$veldfact5b,$veldfact6b,$veldfact7b,$veldfact8b,$veldfact9b,$veldfact10b,$veldfact11b,$veldfact12b,$veldfact13b,$veldfact14b,$veldfact15b,$veldfact16b,$veldfact17b,$veldfact18b,$veldfact19b,$veldfact20b,$veldfact21b,$veldfact22b,$veldfact23b,$veldfact24b,$veldfact25b,$veldfact26b,$veldfact27b,$veldfact28b,$veldfact29b,$veldfact30b,$veldfact31b,$veldfact1c,$veldfact2c,$veldfact3c,$veldfact4c,$veldfact5c,$veldfact6c,$veldfact7c,$veldfact8c,$veldfact9c,$veldfact10c,$veldfact11c,$veldfact12c,$veldfact13c,$veldfact14c,$veldfact15c,$veldfact16c,$veldfact17c,$veldfact18c,$veldfact19c,$veldfact20c,$veldfact21c,$veldfact22c,$veldfact23c,$veldfact24c,$veldfact25c,$veldfact26c,$veldfact27c,$veldfact28c,$veldfact29c,$veldfact30c,$veldfact31c,$titelcat4)=split(";;",@config[0]); $thisurl="$url$dc"; $moduletitle="CMS t-webcreations ©"; print qq( ); ©rightheader; chomp($fields{categorie}); if($ENV{QUERY_STRING} eq ""){$ENV{QUERY_STRING}="type=showpage&file=Welkom"; $titel="Titel-Welkom.gif";} if($fields{type} eq "showpage" && $fields{file} eq "Welkom"){$SIDEPICTOP="WWpage_Bloem_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Bloem_BOTTOM.jpg"; $titel="Titel-Welkom.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Kerstdiner"){$SIDEPICTOP="WWpage_Kookeiland_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Kookeiland_BOTTOM.jpg"; $titel="Titel-Kerst.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Restaurant"){$SIDEPICTOP="WWpage_Kookeiland_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Kookeiland_BOTTOM.jpg"; $titel="Titel-Restaurant.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Gerechten"){$SIDEPICTOP="WWpage_Vis_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Vis_BOTTOM.jpg"; $titel="Titel-Gerechten.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Contact"){$SIDEPICTOP="WWpage_Ingang_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Ingang_BOTTOM.jpg"; $titel="Titel-Contact.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Japanse bakplaat"){$SIDEPICTOP="WWpage_Japansebakplaat_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Japansebakplaat_BOTTOM.jpg"; $titel="Titel-Bakplaat.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Sate grill"){$SIDEPICTOP="WWpage_Grill_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Grill_BOTTOM.jpg"; $titel="Titel-Grill.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Chinese wok"){$SIDEPICTOP="WWpage_Wok_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Wok_BOTTOM.jpg"; $titel="Titel-Wok.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Desserts"){$SIDEPICTOP="WWpage_Desserts_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Desserts_BOTTOM.jpg"; $titel="Titel-Desserts.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Voorgerechten"){$SIDEPICTOP="WWpage_Voorgerechten_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Voorgerechten_BOTTOM.jpg"; $titel="Titel-Voorgerechten.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Speelhoek"){$SIDEPICTOP="WWpage_Speelhoek_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Speelhoek_BOTTOM.jpg"; $titel="Titel-Speelhoek.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Arrangementen"){$SIDEPICTOP="WWpage_Arrangementen_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Arrangementen_BOTTOM.jpg"; $titel="Titel-Arrangementen.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Warm buffet"){$SIDEPICTOP="WWpage_WB_TOP.jpg"; $SIDEPICBOTTOM="WWpage_WB_BOTTOM.jpg"; $titel="Titel-Warmbuffet.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Diner"){$SIDEPICTOP="WWpage_Diner_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Diner_BOTTOM.jpg"; $titel="Titel-Diner.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Brunch"){$SIDEPICTOP="WWpage_Brunch_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Brunch_BOTTOM.jpg"; $titel="Titel-Brunch.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Prijzen"){$SIDEPICTOP="WWpage_Bloem_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Bloem_BOTTOM.jpg"; $titel="Titel-Prijzen.gif";} elsif($fields{type} eq "showpage" && $fields{file} eq "Geschiedenis"){$SIDEPICTOP="WWpage_Geschiedenis_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Geschiedenis_BOTTOM.jpg"; $titel="Titel-Geschiedenis.gif";} else{$SIDEPICTOP="WWpage_Bloem_TOP.jpg"; $SIDEPICBOTTOM="WWpage_Bloem_BOTTOM.jpg"; $titel="Titel-Welkom.gif";} print qq( Wok Wonderland \n\n); &javascriptheader; print qq( ); if($fields{file} eq "Contact"){ $body="onload='load()' onunload='GUnload()'"; } print qq(





	); chomp($fields{file}); if($fields{file} eq "Gerechten" \|\| $fields{file} eq "Japanse bakplaat" \|\| $fields{file} eq "Chinese wok" \|\| $fields{file} eq "Warm buffet" \|\| $fields{file} eq "Voorgerechten" \|\| $fields{file} eq "Desserts"){ print qq( ); } if($fields{file} eq "Restaurant" \|\| $fields{file} eq "Arrangementen" \|\| $fields{file} eq "Speelhoek" \|\| $fields{file} eq "Diner" \|\| $fields{file} eq "Brunch"){ print qq( ); } print " \n"; if ($fields{type} eq "cat"){ &cat($fields{type}, $fields{catfilter}, $fields{Prod}, $fields{categorie}); } elsif ($fields{type} eq "viewpage"){ &viewpage($fields{type}, $fields{catfilter}, $fields{Prod}, $fields{categorie}); } elsif ($fields{type} eq "showpage"){ &showpage($fields{file}); } elsif ($fields{type} eq "aanmelden"){ #&aanmelden($fields{email}); } elsif ($fields{type} eq "vragenformulier"){ #&vragenformulier; } elsif ($fields{type} eq "Suppform"){ #&Suppform($fields{emailadres}, $fields{naam}, $fields{problem}); } else {&bestaatniet; } print qq(

); #}