#!/usr/bin/perl BEGIN { push @INC,"/home/olev/perl"; } use MyDB; use CGI; use DBI; use DateTime; use strict; ## Session management my $q = new CGI; print $q->header(-type=>'text/html'); print < Meteorologen bordtennis EOD my(@people,@nam,@com); my($msg,$i); my @mdtext = ('søndag','mandag','tirsdag','onsdag','torsdag','fredag','lørdag'); ## Extract form and query variables my $reg = $q->param('reg'); my $rem = $q->param('rem'); ###$rem = ' ' unless($rem); my $del = $q->param('del'); my $name = $q->param('name'); my $date = $q->param('date'); my $time = $q->param('time'); ## Connect to database my $dbh = MyDB::Connect(); ## Get current (or given) time my $now = time(); my $dto = DateTime->now; my $hour = $dto->hour; if ($time =~ /^(\d\d)/) { $hour = $1; } if ($date =~ /^(\d{4})-(\d\d)-(\d\d)$/) { $dto = DateTime->new(year => $1, month => $2, day => $3, hour => $hour); $now = $dto->epoch; } my $wday = $dto->day_of_week; my($wyear,$week) = $dto->week; my $wbegints = $now + (1 - $wday)*86400 + (1 - $hour)*3600; my $wendts = $now + (7 - $wday)*86400 + (23 - $hour)*3600; my $wbdto = DateTime->from_epoch(epoch => $wbegints); my $wedto = DateTime->from_epoch(epoch => $wendts); my $wbtext = $wbdto->day .'/'. $wbdto->month; my $wetext = $wedto->day .'/'. $wedto->month; my $ymd = $wbdto->ymd; ## find already registered players my $query = "SELECT * FROM bt_registered WHERE date='$ymd'"; my $sth = $dbh->prepare($query); my $res = $sth->execute; if ( not $res ) { MyDB::ShowDBerror($dbh,$query); } ##$res = $dbh->commit; my $nrows = $sth->rows; ## check if the register or delete button was pressed $query = $msg = ""; if ($reg ne '' and $name ne '' and $rem ne '') { if ($nrows > 0) { for ($i=0; $i<$nrows; $i++) { my @row = $sth->fetchrow_array; $nam[$i] = $row[1]; $com[$i] = $row[2]; } } my $change = 0; for ($i=0; $i<$nrows; $i++) { if ($name eq $nam[$i]) { if ($rem eq $com[$i]) { $msg = "$name er allerede registrert!"; } else { $change = 1; } last; } } if ($change) { $query = "UPDATE bt_registered SET comment='$rem' WHERE date='$ymd' AND name='$name'"; } elsif ($msg eq "") { $query = "INSERT INTO bt_registered VALUES('$ymd','$name','$rem')"; } if ($query) { $sth = $dbh->prepare($query); $res = $sth->execute; if ( not $res ) { MyDB::ShowDBerror($dbh,$query); } ## $res = $dbh->commit; } } elsif ($del ne "" and $name ne "") { $query = "DELETE FROM bt_registered WHERE date='$ymd' AND name='$name'"; $sth = $dbh->prepare($query); $res = $sth->execute; if ( not $res ) { MyDB::ShowDBerror($dbh,$query); } ## $res = $dbh->commit; } ## find registered players again (might be updated) $query = "SELECT * FROM bt_registered WHERE date='$ymd'"; $sth = $dbh->prepare($query); $res = $sth->execute; if ( not $res ) { MyDB::ShowDBerror($dbh,$query); } ##$res = $dbh->commit; $nrows = $sth->rows; print <

BORDTENNIS uke $week, $wyear ($wbtext - $wetext)

Navn Tidsrom EOD if ($nrows > 0) { for ($i=0; $i<$nrows; $i++) { my @row = $sth->fetchrow_array; my $navn = $row[1]; my $komm = $row[2]; print "
$navn $komm\n"; } } else { print "
---- Ingen registrerte foreløpig"; } print "

\n"; print <
Dette er ingen reservering av bordet, men ment som en dialog med andre spillere.

Navn:

Tidsrom:

                F.eks.: "Tirsdag og torsdag 15:45 til 17:00"

    

EOD END { $dbh->disconnect if $dbh; }