#!/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,1,"knifeblade_sandblow.jpg","q",
	      "Red_coloures_sands2.jpg","h",
	      "Whitsundays1.jpg","h",
	      "Red_coloures_sands.jpg","q",
      	      "Sandmuster.jpg","q","pattern");

}



exit(0);
