#!/usr/bin/perl


sub sub_RATINGS
{
 # displays  1 2 3 4 5  with links to rate the current song

 my ($vars,$config) = @_;
 my $output = "";

 for (my $x = 1;$x <= 5;$x++)
 {
  $output .= "<A HREF=\"$vars{'CGI'}\&action=rate&targetid=$vars{'SONG_ID'}\&rating=$x\">$x</A>&nbsp;&nbsp;";
 }

 return $output;
}


sub sub_SHOWNAME
{
 # displays (current show name) only if we are in a show

 my ($vars,$config) = @_;
 my $output = "";

 if ($vars{'SHOW_ID'} > 0)
 {
  $output = "($vars{'SHOW_NAME'})";
 }

 return $output;
}


sub sub_REQUEST
{
 # displays (By Request) only if song was requested

 my ($vars,$config) = @_;
 my $output = "";

 if ($vars{'SONG_REQ'})      
 {
  $output = "(By Request)";      
 }

 return $output;
}


sub sub_COMINGUPSTACK
{
 # displays 5 coming up songs stacked in tables with links to actions

 my ($vars,$config) = @_;
 my $output = "";

 for (my $x = 1;$x <= 5;$x++)
 {
  $output .= "<TABLE id='comingup' CELLSPACING=0 HSPACE=0 CELLPADDING=0 BORDER=0><TR><TD WIDTH=100>";
  $output .= "<IMG class='comingup' SRC=\"";
  $output .= $vars{'COMINGUP' . $x . '_SMALLART'};
  $output .= "\"></TD><TD WIDTH=190><p class='comingup'>";

  if ($vars{'COMINGUP' . $x . '_REQ'})
  {
   $output .= "<B>By Request:</B><br>";
  }

  $output .= $vars{'COMINGUP' .$x . '_ARTIST'};
  $output .= "</BR>\"" . $vars{'COMINGUP' . $x . '_TITLE'} . "\"<BR><I>" . $vars{'COMINGUP' . $x . '_ALBUM'}; 
  $output .= "</I><P class='comingup'><A HREF=\"\$CGI\$\&action=trash\&targetid=";
  $output .= $vars{'COMINGUP' . $x . '_ID'}; 
  $output .= "\">Skip it</A>&nbsp;&nbsp;&nbsp;&nbsp;<A HREF=\"\$CGI\$\&action=trade\&targetid=";
  $output .= $vars{'COMINGUP' . $x . '_ID'};
  $output .= "\">Trade in</A>&nbsp;&nbsp;&nbsp;&nbsp;";

  if ($x > 1) 
  {
   $output .= "<A HREF=\"\$CGI\$\&action=bump\&targetid=";
   $output .= $vars{'COMINGUP' . $x . '_ID'} . "\">Bump up</A>";
  }

  $output .= "</P></TD></TR></TABLE>";
 }

 return $output;
}


sub sub_NEWS
{
 # lists news items (could be much fancier in the future)

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

 my ($vars,$config) = @_;
 my $output = "";

 my $qry = "SELECT date,author,text,title FROM news ORDER BY date DESC LIMIT ?";
 my $out = $dbh->prepare($qry);
 $out->execute($config{'MAX_NEWSITEMS'});

 while (my($date,$author,$text,$title)=$out->fetchrow_array)
 {
  $output .= "<TABLE id='news'><TR><TH><h1>$date\:&nbsp;&nbsp; $title &nbsp;&nbsp;(By $author)</h1></TH></TR>";
  $output .=" <TR><TD>$text</TD></TR></TABLE><P>";
 }

 return $output;
}


sub sub_SHOWVARS
{
 # lists all current vars
 
 my ($vars,$config) = @_;
 my $output = "";

 $output .= "<H4>Configuration variables:</H4>";
 foreach $key (sort keys %config)
 {
  $output .= "$key = $config{$key}</br>";
 }
 $output .= "<H4>CGI variables:</H4>";
 foreach $key (sort keys %vars)
 {
  $output .= "$key = $vars{$key}</br>";
 }

 return $output;
}

1;