#!/usr/bin/perl -w package TV::cgi; use Date::Manip; use HTML::Entities; use CGI qw(:standard :html3); use Pg; use CGI; use rondje; use dbq; $R = new rondje; $R->{color}="#FF8000"; $R->{"style"}="itesf"; $:=1; $color="#FF8000"; &initprut; $fsbf="file:"; $nowm=&ParseDate("now"); $debug=$Q->param(Debug); &OptionForm; &pg_connect; $query = &BouwQuery; $s= new dbq; if ($Q->param(Interval)){ $s->doq($query); }else{ $s->doq("select * from programs where endtime > '$nowm' and timed < '$nowm' order by timed"); } print "Query = \"",$s->{query},"\" " if ($Q->param(ShowSql)); print "\n nu fore i rows:",$s->{rown} if ($debug); if ($debug){ foreach $i ($Q->param ){ print " $i=", $Q->param($i),"
\n"; } } print "\n"; $dateflip=1 if ($s->{query} =~ /order by timed/i); $dateflip=1 if ($s->{query} =~ /order by endtime/i); &CheckFav($s) if ($Q->param(WarnFav)); &SpuiHtml($s); &PrintClockJS if ($Q->param(Interval) eq "now"); &PrintBottom; print $R->combot; print < GROK print "\n\n"; #----------------------------------------------------------------------------- sub SpuiHtml{ my ($s) = shift; *id=$s->{id}; my ($begindlas)="iouewoiruoiruoiewuroi"; $nexttime="9999999999999999999999"; foreach $i (@id){ ($begind,$begint) = $s->{timed}{$i} =~ /(\d\d\d\d\d\d\d\d)(\d\d:\d\d):\d\d/; ($endd) = $s->{endtime}{$i} =~ /\d\d\d\d\d\d\d\d(\d\d:\d\d):\d\d/; $nexttime = $s->{endtime}{$i} if ($s->{endtime}{$i} lt $nexttime); print "

",&UnixDate($s->{timed}{$i},"%a %e %b %Y"),"

\n" if (($begindlas ne $begind) && ($dateflip)); print "\n\t\n"; if ( $s->{descr}{$i} ){ print "\n\t\n"; } print "
\n"; print &UnixDate($s->{timed}{$i},"%a %e %b %Y"),"\n" unless ($dateflip); # print "\t{localf}{$i},"\"\n\t"; # print" onclick=\"return js_title_menu('", # &toencode($s->{name}{$i}), # "','",$s->{zender}{$i},"','", # $s->{localf}{$i},"',event)\"", # ">"; my $utitle=&toencode($s->{name}{$i}); print <$begint GROK print $s->{zender}{$i}; print " \n "; print "{nameurl}{$i},"\">" if ( $s->{nameurl}{$i} ); print $s->{name}{$i}; print "\n" if ( $s->{nameurl}{$i} ); print " ",$s->{namesub}{$i},"" if ( $s->{namesub}{$i} ); print " tot $endd"; print "
"; print $s->{descr}{$i}; print "
\n"; $begindlas=$begind; } } sub cmp_eq { my $cmp = shift; my $ret = shift; my $msg; if ("$cmp" eq "$ret") { # print "ok $cnt\n"; } else { $msg = $conn->errorMessage; print "not ok $cnt: $cmp, $ret\n$msg\n"; exit; } $cnt++; } sub cmp_ne { my $cmp = shift; my $ret = shift; my $msg; if ("$cmp" ne "$ret") { #print "ok $cnt\n"; } else { $msg = $conn->errorMessage; print "not ok $cnt: $cmp, $ret\n$msg\n"; exit; } $cnt++; } sub pg_connect{ $PGRES_EMPTY_QUERY = 0 ; $PGRES_COMMAND_OK = 1 ; $PGRES_TUPLES_OK = 2 ; $PGRES_COPY_OUT = 3 ; $PGRES_COPY_IN = 4 ; $PGRES_BAD_RESPONSE = 5 ; $PGRES_NONFATAL_ERROR = 6 ; $PGRES_FATAL_ERROR = 7 ; $| = 1; $dbname = 'tv'; $cnt = 2; $conn = Pg::connectdb("dbname=$dbname"); #$db = $conn->db; # $user = $conn->user; # $port = $conn->port; # $user = $user; #print "db: $db, $user, $port\n"; } #------------------------------------------------------------------------ sub initprut{ $Q = new CGI; $Qself = $Q->self_url; #$Qselfs = $Q->url; print $Q->header(-type=>'text/html', -expires=>'+5min'); print < tv GROK &PrintPopJS; print< GROK } sub OptionForm{ $clockform="" if ($Q->param(Interval) eq "now"); $popupt = $Q->popup_menu( -name=>"Interval", -"values"=>['now','+15 min','+1 hour','+3 hours','+1 day','+1 week','+1 month','+1 year','+100 year','whenever','-15 min','-1 hour','-1 day','-1 week','-1 month','-1 year','-100 year'], -default=>$Q->{Interval}, ); $popupz = $Q->popup_menu( -name=>"Zender", -"values"=>['All','BBC1','BBC2','NED1'], -default=>$Q->{Zender}, ); $popups = $Q->popup_menu( -name=>"SearchOnField", -"values"=>['All','name','zender','descr'], -default=>$Q->{SearchOnField}, ); $zoekding=*Q->{Search} if ($Q->{Search}) ; $sortorder = $Q->popup_menu( -name=>"SortOrder", -"values"=>['timed','zender','name','endtime','descr'], -default=>$Q->{SortOrder}, ); print < GROK $R->{align}="middle"; print $R->begin; $popupz = "" unless ($popupz); $popupt = "" unless ($popupt); $zoekding = "" unless ($zoekding); print < When: $popupt Zender: $popupz Zoek in $popups Sort $sortorder GROK print $R->end; print "\n
$clockform
" if $clockform; #end } sub PrintPopJS{ print < function js_title_menu(name,zender,localf,d) { if( parseInt(navigator.appVersion) < 4 ){ return true; } l = document.layers['popup']; l = null; l = document.layers['popup']; l.src = "fav.pl?name="+name+"&zender="+zender+"&localf="+localf; l.top = d.target.y - 6; l.left = d.target.x - 6; if( l.left + l.clipWidth > window.width ){ l.left = window.width - l.clipWidth; } l.src = "fav.pl?name="+name+"&zender="+zender+"&localf="+localf; l.visibility="show"; return false; } function js_options_menu(d) { if( parseInt(navigator.appVersion) < 4 ){ return true; } l = document.layers['oppopup']; l.top = d.target.y - 6; l.left = d.target.x - 6; if( l.left + l.clipWidth > window.width ){ l.left = window.width - l.clipWidth; } l.visibility="show"; return false; } event = 0; initialLayer = "
Page loading...please wait.
"; GROK } sub PrintClockJS{ $nexttime = &UnixDate($nexttime,"%H:%M"); print < GROK } sub BouwQuery{ my ($qwhere,$searcht,$i,$searchf,$query); if ($Q->param(Search)){ $searcht = $Q->param(Search); $searcht =~ s/([A-Za-z])/\[\L$1\U$1\]/gi; $qwhere .="( "; if ($Q->param(SearchOnField) ne "All"){ $searchf = $Q->param(SearchOnField); $qwhere .= "".$searchf." ~ '$searcht' "; } if ($Q->param(SearchOnField) eq "All"){ foreach $i ("name","zender","descr","namesub"){ $qwhere .= "$i ~ '$searcht' OR "; } $qwhere =~ s/OR\s$//; } $qwhere .=") "; } if ($Q->param(Zender)){ if ($Q->param(Zender) ne "All"){ $qwhere .= " AND " if ($qwhere); $qwhere .= " (zender = '".$Q->param(Zender)."') "; } } if ($Q->param(Interval) && $Q->param(Interval) ne "whenever"){ $qwhere .= " AND " if ($qwhere); if ($Q->param(Interval) eq "now"){ $qwhere .= "endtime > '$nowm' AND timed < '$nowm'"; }else{ if ($Q->param(Interval) =~ /^\-/){ $qwhere .= " (timed < '$nowm' AND timed > '"; $qwhere .= &DateCalc($nowm,$Q->param(Interval)); $qwhere .= "') "; } if ($Q->param(Interval) =~ /^\+/){ $qwhere .= " (timed > '$nowm' AND timed < '"; $qwhere .= &DateCalc($nowm,$Q->param(Interval)); $qwhere .= "') "; } } } $query = "where ".$qwhere; $query =~ s/^\(//; $query =~ s/\)$//; $query =~ s/where\s$//; $query = "select * from programs ".$query; $query .=" order by ".$Q->param(SortOrder)." "; print "Query: ",$query if ($debug); return $query; } sub toencode{ my($toencode) = @_; $toencode=~s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg; return $toencode; } sub PrintBottom{ @ops = ('Debug','ShowSql','WarnFav'); $R->{align}="right"; print $R->begin; foreach $i (@ops){ print $Q->checkbox(-name=>$i, ),br; } print $Q->submit; print $R->end; } sub CheckFav{ # my ($s) = shift; # my ($f,$c); # use lib '/usr/share/plexus/sobject' ; # use SharedObjectClient ; # tie %favs, SharedObject,'PersistentHash','favs' ; # *id=$s->{id}; # foreach $i (@id){ # $name=$s->{name}{$i}; # if ($favs{$name}){ # $f .= $name." ".$favs{$name}.br."\n"; # $c++; # } # } # if ($f){ # $R->{align}="right"; # print $R->begin; # print "
Fav
\n"; # print $f if ($f); # print "

\n",$R->end; # } # untie %favs; } #ruim op please undef($conn); #Pg::PQfinish($conn); 1;