#!/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,3,"3Pelikane.jpg","q",
	      "Moewe.jpg","q",
      	      "Gans_riddagshausen.jpg","q",
	      "Schwan_riddagshausen1.jpg","h",
	      "Schwan_riddagshausen2.jpg","q","animals");
}
elsif($xdata{page} == 2){
  create_page(2,3,"Lizard.jpg","q",
	      "Echidna.jpg","q",
      	      "Schmetterling.jpg","q",
	      "Kreuzspinne2.jpg","q",
	      "Kreuzspinne.jpg","q","animals");
}
elsif($xdata{page} == 3){
  create_page(3,3,"Taube_australien.jpg","q",
	      "Floorfliege.jpg","h",
      	      "Kanguru.jpg","h",
      	      "Gans_riddagshausen.jpg","q",
	      "Schwan_riddagshausen2.jpg","q","animals");
}



exit(0);
