#!/usr/bin/perl
require "create_page.pl";
require "lib.pl";
%xdata = xsplit_query(); #die Auswertefunktion fuer die uebergebenen Parameter

print "Content-type: text/html\n\n"; #Man beachte 2x \n, sonst laeuft es nicht!!!

if (!defined $xdata{page} || $xdata{page} == 1 ){
  create_page(1,2,"Baum.jpg","q",
	      "bluehender_baum.jpg","q",
      	      "Blume_back1.jpg","q",
	      "Buchenblatt.jpg","q",
	      "Pilze.jpg","q","plants");
}
elsif($xdata{page} == 2){
  create_page(2,2,"Fingerhut.jpg","h",
	      "kaktus.jpg","h",
	      "kleiner_Baum.jpg","h",
	      "Schirling_gegen_sonne.jpg","h",
	      "Blatt.jpg","h","plants");

}


exit(0);
