//
// main
//
$channel_id = $_REQUEST['id'];
$chann = sql_findChannel($myc, 'id', $channel_id);
print "<h1>Programs for " . $chann['display_name'] . "</h1>\n";
if ($chann['logo']) {
print "<img src=\"" . $dconf['urllogos'] . "/" . $chann['xmltvid'] . ".png\">\n";
}
print "<h4>ID: " . $chann['id'] . "</h4>\n";
print "<h4>XMLTV ID: " . $chann['xmltvid'] . "</h4>\n";
print "<h4>Language: " . $chann['sched_lang'] . "</h4>\n";
print "<h4>Grabber : " . $chann['grabber'] . "</h4>\n";
print "<h4>Grabber info : " . $chann['grabber_info'] . "</h4>\n";
print "<h4>Exported: " . $chann['export'] . "</h4>\n";
$pdb = sql_findProgram($myc, $channel_id, '', '');
if ($debug) {
dbg("programs", $pdb);
}
print "<h4>Total: " . sizeof($pdb) . " items found</h4>\n";
if ($pdb) {
print "<table width=\"75%\">\n";
print "<tr class=\"tableTitle\">\n";
print " <td>Start time</td>\n";
print " <td>End time</td>\n";
print " <td>Title</td>\n";
print " <td>Description</td>\n";
print " <td>Category</td>\n";
print "</tr>\n";
listPrograms($chann['id'], $pdb);
print "</table>\n";
} else {
print "<h2>" . $lngstrpd['nochanspecified'] . "</h2>";
doexit();
}
if (isset($_REQUEST['time'])) {
$showtime = $_REQUEST['time'];
} else {
print "<h2>" . $lngstrpd['notimespecified'] . "</h2>";
doexit();
}
$chann = sql_findChannel($myc, 'id', $channel_id);
if (!$chann) {
print "<h2>" . $lngstrpd['invchanid'] . ": " . $channel_id . "</h2>";
doexit();
}
$prog = sql_findProgram($myc, $channel_id, "start_time", strftime("%Y-%m-%d %H:%M:%S", $showtime));
if (!$prog) {
print "<h2>" . $lngstrpd['noprogstartingat'] . ": " . strftime("%Y-%m-%d %H:%M:%S", $showtime + date('Z')) . "</h2>";
doexit();
}
//dbg("prog",$prog);
if ($chann['logo']) {
print "<img src=\"" . $dconf['urllogos'] . "/" . $chann['xmltvid'] . ".png\">\n";
}
print "<h1>" . $lngstrpd['progdetailsfor'] . " " . $chann['display_name'] . " " . $lngstrpd['at'] . " " . strftime("%Y-%m-%d %H:%M:%S", $showtime + date('Z')) . "</h1>\n";
print "\n<!-- program details table -->\n";
print "<table width=\"75%\" border=\"0\" cellpadding=\"4\" cellspacing=\"2\" class=\"viewprogram\">\n";
print " <tr valign=\"top\" class=\"viewprogram_tableBody\">\n";
print " <td align=\"right\">" . $lngstrpd['prgtitle'] . ":</td>\n";
print " <td align=\"left\">\n";
print " <b>" . $prog[0]['title'] . "</b>\n";