#!/usr/bin/perl -w
#domtv
#
#
#
package TV::today;
use strict;
use CGI qw(:standard :html3);
use CGI;
use Date::Manip;
use jip;
use vars qw(@id $Q $debug $ddns);
$ddns=&ddns;
$Q = new CGI;
my $Qself = $Q->self_url;
my $Qselfs = $Q->url;
my $Mime;
$Mime="text/xml" if ($Qself =~ /xml/);
$Mime="text/html" if ($Qself =~ /prut/);
$Mime="text/rdf" if ($Qself=~/rdf/);
$Mime="text/plain" unless $Mime;
$debug=$Q->param('debug');
my $expires="-5min";
print $Q->header(-type=>$Mime,
-expires=>$expires);
#time
my $start = $Q->param('start') if $Q->param('start');
my $end = $Q->param('end') if $Q->param('end');
$start="now" unless $start;
$end="+1day" unless $end;
my $dstart=&ParseDate($start);
my $dend=&ParseDate($end);
#query
my $noti = " data between $start $dstart and $end $dend \n";
my $query="";
$query = < '$dstart' AND timed < '$dend')
OR
(timed < '$dstart' AND endtime > '$dend')
OR
(timed < '$dstart' AND endtime > '$dstart')
)
order by timed
GROK
$noti .= " query: $query";
use dbq;
my $P = new dbq;
$P->doq($query);
*id = $P->{id};
my $cnt=scalar(@id);
$noti .= " $cnt results following in $Mime \n";
if ($Mime eq "text/rdf"){
print <
GROK
print "\n";
foreach my $i(@id){
print mkprogramma($P,$i,$Mime);
}
print "\n";
foreach my $i(@id){
$i=mkclean($i);
print " \n";
}
print "\n";
print "\n";
}else{
print $noti;
my $daguurold="-1";
my $tableopen;
foreach my $i(@id){
my $daguur = &UnixDate($P->{timed}{$i},"%Y-%m-%d %H:00");
unless ($daguur eq $daguurold){
print "\n" unless ($daguurold eq "-1");
print "\n