#!/usr/bin/perl
use CGI qw(:standard);
use DBI;
use Time::Local;

require "setup.pl";

my $dbh = DBI->connect($config{'DB_STRING'},$config{'DB_USER'},$config{'DB_PASS'});

$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX        = 102_400; # 100 KB

my $q = new CGI;
print $q->header( "text/html" );

unless  ($chanid =  $q->param( 'chan' )) { $chanid = 1;}

$qry = "SELECT songlength,started_at FROM status WHERE NOT (status.ID = $chanid)";
$out = $dbh->prepare($qry);
$out->execute;

$soonest = 600;

while (my($sl,$sa)=$out->fetchrow_array)
{
 if ($sa =~ m/^(\d\d\d\d)-(\d\d)-(\d\d)\ (\d\d):(\d\d):(\d\d).*/)
 {
  $sa2 = timelocal($6,$5,$4,$3,$2-1,$1);
 }

 $r = int($sl - (time() - $sa2))+10;

 if (($r < $soonest) && ($r > 0)) { $soonest = $r; }
}

if ($soonest < 15) { $soonest = 15; }

print "<META HTTP-EQUIV=Refresh CONTENT=\"$soonest;\">";



print "<HTML><HEAD>";
print "<TITLE>Also playing now</TITLE>";
print "<LINK HREF=\"/ap.css\" rel=\"stylesheet\" type=\"text/css\">";


print "</HEAD><BODY>";


print "<div id='alsoplaying'>";

print "<h1>Also playing now on our other channels:</h1>";

$qry = "SELECT status.ID,status.tune_id,tunes.artist,tunes.title,tunes.album,tunes.filename,channels.name,channels.url,channels.id
         FROM status,tunes,channels
         WHERE (channels.ID = status.ID) AND (tunes.ID = status.tune_id) AND NOT (status.ID = $chanid)
         ORDER BY channels.name";
$out = $dbh->prepare($qry);
$out->execute;

while (my($stationid,$stuneid,$sartist,$stitle,$salbum,$sfilename,$sname,$url,$cchanid)=$out->fetchrow_array)
{
 if (($sartist eq "Unknown") && ($stitle eq "Unknown"))
 {
  $ssong = $sfilename;
  $ssong =~ s/\/usr\/local\/tunes\///;
  $ssong =~ s/\.ogg//;
  $ssong =~ s/\-/\<BR\>/g;
  $ssong = "<h2>$ssong</h2>";
 }
 else
 {
  $ssong = "<h2>$sartist</BR>\"$stitle\"<BR><I>$salbum</I></H2>";
 }

 if (-e "/var/www/www.spogbiper.com/coverart/s_$sartist - $salbum.jpg")
 {
  $fn = "/coverart/s_$sartist - $salbum.jpg";
 }
 else
 {
  $fn = "/coverart/s_unknown$chanid.jpg";
 }
 print "<h4><A TARGET=\"_top\" HREF=http://$url>On $sname:</A></h4>";

 print "<CENTER><IMG SRC=\"$fn\"></CENTER>";
 print "$ssong";

  
 $qry2 = "SELECT tunes.artist,tunes.title,tunes.album,tunes.filename,tunes.id,schedule.request,schedule.added FROM tunes, schedule
         WHERE (tunes.ID = schedule.tuneid) AND (schedule.channelid = ?) ORDER BY schedule.added";
 $out2 = $dbh->prepare($qry2);
 $out2->execute($cchanid);

 print "<H2>Coming up:</H2>";

 print "<H3>";

 while (my($cartist,$ctitle,$calbum,$cfilename,$cid,$creq,$cadded)=$out2->fetchrow_array)
 {

  if (($cartist eq "Unknown") && ($ctitle eq "Unknown"))
  {
   $csong = $cfilename;
   $csong =~ s/\/usr\/local\/tunes\///;
   $csong =~ s/\.ogg//;
  }
  else
  {
   $csong = "$cartist - $ctitle";
  }

  print "$csong<br>";

 }
 print "</h3><P>&nbsp</P>";
}
print "</div>";






print "</BODY></HTML>";