#!/usr/bin/perl use CGI qw/:standard -no_xhtml/; use CGI::Carp qw(fatalsToBrowser); use DBI; $driver = "mysql"; $database = "booyone"; $host = "localhost"; $dsn = "DBI:$driver:database=$database;$host;"; $dbh = DBI->connect($dsn, 'booy', 'yone') || die $DBI::errstr; $JSCRIPT=<'iso-8859-2',-Pragma=>'no-cache'); print < reports END #print start_html( -title=>'reports', # -lang=>'cs', # -author=>'marasan', # -style=>{'src'=>'/style01.css'}, # -script=>$JSCRIPT, # -text=>'white', # -topmargin=>'0', # -leftmargin=>'0', # -rightmargin=>'0', # -bottommargin=>'0', # -BGCOLOR=>'#161616'); print < END # 0 1 2 3 4 5 6 7 8 9 $dotaz = "select nabbr, name, bdate, edate, rprt+0, purl, place, genre, pics+0, descr from party where bdate < NOW() order by bdate desc"; $sth = $dbh->prepare($dotaz) || die $sth->errstr; $sth->execute || die $sth->errstr; my $datum = ''; # konstanty # 2 .. ikona # 1 .. flyer # 4 .. mapa while($radek = $sth->fetchrow_arrayref()) { if ($$radek[2] eq $$radek[3]) { $datum = $$radek[2]; $datum =~ s/(....)-(..)-(..)/$3.$2.$1/ ; } else { $datum = "$$radek[2]
- $$radek[3]"; $datum =~ s/(....)-(..)-(..)(......)(....)-(..)-(..)/$3.$2.$1$4$7.$6.$5/ ; } my $flicon; if ($$radek[8] & 2) { # existuje ikona $flicon = 'flyer icon'; } else { # zadna ikona $flicon = 'flyer icon'; } my $flline; if ($$radek[8] & 1) { # existuje flyer if ($$radek[8] & 2) { # je i ikona $flline = ''. $flicon . ''; } else { # neni ikona $flline = '
flyer'; } } else { # neni flyer $flline = $flicon; } my $reporty = ''; # konstanty - reporty # 4 .. partyreport # if ($$radek[4] & 1) { # je pplrep $reporty .= <report icon END } if ($$radek[4] & 4) { # je partyrep $reporty .= <report icon END } if ($$radek[4] & 2) { # je techrep $reporty .= <report icon END } print <
$datum
$flline
$$radek[1] ($$radek[7])
$reporty
$$radek[9]

$$radek[6]
END } $dbh->disconnect(); print "\n\n",end_html;