#!/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,"Kirstin1.jpg","h",
	      "Dirk1.jpg","s",
	      "gerhard1.jpg","s",
	      "Kirstin6.jpg","h",
	      "Kirstin7.jpg","h","portrait");
}

exit(0);












