#!/usr/local/bin/perl { # Start Main # # <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< # <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< # # Take the basic working version of results and convert it to do two things: # # 1) Using a parameter produce the results for only 1 year # 2) Using a parameter produce the results for 10 years # # <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< # <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< # use strict; use English; use DBI(); use CGI ':standard'; use vars qw/ $sigerr $directory $serverIP $cgi /; use vars qw/ $dbh $sth_ressl /; $cgi = CGI->new(); $serverIP = "213.171.218.245"; print header; print start_html('The John Davey Pages2 - Country Select'); print '

'; print ''; print ''; print 'The John Davey Pages'; print ''; print ''; print '

'; print ''; print 'The information on this page kindly supplied by John Davey (Copyright 2003-2006 John Davey)
Click Here for details of how to contact him
'; print '

'; print '
'; # # Connect to the database. # $dbh = DBI->connect("DBI:mysql:database=JDthedatabase;host=$serverIP" , "JD_User", "Us3r", { RaiseError=>0, PrintError=>0, AutoCommit=>1, HandleError=>\&dbierrorlog }) or die "Unable to open database:

$DBI::errstr
"; # # Find which countries have results # $sth_ress1 = $dbh->prepare( q{ SELECT r.country FROM results r GROUP by country; } ) or die $dbh->errstr; $sth_ress1->execute() or die $dbh->errstr; if ($sth_ress1->rows == 0) { print "

No Results records found
"; } else { $sth_ress1->bind_columns( \$r_Country ); $r = 0; while ( $sth_ress1->fetch() ) { $countries[$r] = $r_Country; $countries[$r] = "GP" if ($r_Country eq "XXX"); $r++; } } print start_form; print "
Please choose Category (GP, etc) "; print popup_menu(-name=>'Country', -values=>\@countries), p; print "
Please select Year "; print popup_menu(-name=>'Year', -values=>[1971, 1972]), p; print submit; print end_form; } sub do_report() { The John Davey National Championships Pages Home

The John Davey National Championship Pages


 Australian National Championship Results  Austrian National Championship Results
 Belgian National Championship Results  Czech National Championship Results
 Danish National Championship Results  Estonian National Championship Results
 Finnish National Championship Results  French National Championship Results
 British National Championship Results  German National Championship Results
 Dutch National Championship Results  Irish National Championship Results
 Italian National Championship Results  Latvian National Championship Results
 Lithuanian National Championship Results  Norwegian National Championship Results
 Russian National Championship Results  Swedish National Championship Results
 Swiss National Championship Results