#!/usr/bin/perl ############################################# # # (c) Jaron van Boheemen (jaron@boheemen.com) # Korfbalvereniging Weidevogels Bleiswijk # 2004 # # Dit script genereert drie frames, met # bovenin de header, links het menu # en rechts de opgegeven parameter. # Als deze parameter leeg is, wordt $default # geladen. # $default = "0809/27-06-2009"; # # ############################################# print "Content-type: text/html\n\n"; # get the team-id if($#ARGV < 0) { $datafile = $default; } else { $datafile = $ARGV[0]; } print < Korfbalvereniging Weidevogels Bleiswijk <body> </body> ENDHTML end: