$| = 1;
use SQL;
$SQL = SQL->Connect("automotive");

$date = (localtime)[6] + 1;

sub getDate {
    my(@days, @months, $wday, $month, $date);
    @days = qw(sunday monday tuesday wednesday thursday friday saturday);
    @months = qw(january february march april may june july august september october november december);
    #$wday = @days[(localtime)[6] - 5];
    $wday = @days[(localtime)[6]];
    $month = @months[(localtime)[4]];
    $date = (localtime)[3];

    $wday_width = '390' if ($wday eq 'monday');
    $wday_width = '400' if ($wday eq 'tuesday');
    $wday_width = '500' if ($wday eq 'wednesday');
    $wday_width = '420' if ($wday eq 'thursday');
    $wday_width = '350' if ($wday eq 'friday');
    $wday_width = '420' if ($wday eq 'saturday');
    $wday_width = '370' if ($wday eq 'sunday');

    print <<ENDD;

<table border=0 width=$wday_width bgcolor='#000000' align=right>
      <tr>
	<td valign=bottom background='images/date/$wday.gif' align=right><br><br><img border=0 src='images/date/$month.gif' bgcolor='#000000'><img
	border=0 src='images/date/$date.gif'><img border=0 src='images/date/1999.gif'></td>
	<td><img border=0 height=1 width=30 src='images/hspacer.gif'></td>
      </tr>
    </table>
ENDD
}

sub get_gif {
    my $gif = shift;
    $gif =~ s/\/([^\/]+)$/\/$date\/$1/; 
    print "$gif";     
}

sub print_date {
    print "$date";
}

sub get_banner {
    my $file = shift;

    if ($AD) {
       print $AD;
       return;
    }   

    $file_title = $file;
    $file_title =~ s/.mid//g;
    $file_title =~ s/.cgi//g;

    if ($file_title =~ /^([^-]+)-/) {
    $banner_section = $1;
    $file_title = $banner_section . '_title.gif';
    } else {  
    $banner_section = $file_title;
    $file_title .= '_title.gif';
    }

    $banner_gif_up = 'images/banner_promo_up_' . $banner_section . '.gif';
    $banner_gif_over = 'images/banner_promo_over_' . $banner_section . '.gif';

    $link = "promo_url_$banner_section";

    open(STYLE, "Style");
    while(<STYLE>) {
      if ($_ =~ /^$link/) {
	chomp;
	($foo, $url) = split(/=/,$_);
	last;
      }

    }
    close(STYLE);

print <<ENDD;
<a href="$url" onMouseOver="di('Nbannerpromo', 'Nbannerpromo_over' ); " onMouseOut="di('Nbannerpromo','Nbannerpromo_up');"><img name="Nbannerpromo" src="images/banner_promo_up_${banner_section}.gif" width="325" height="97" border="0" align=left vspace=0 hspace=0></a></td>

ENDD
}

sub banner_images {
    $file = shift;
    $web_id = shift;
    
    $file_title = $file;
    $file_title =~ s/.mid//g;
    $file_title =~ s/.cgi//g;

    if ($file_title =~ /^([^-]+)-/) {
    $banner_section = $1;
    $file_title = $banner_section . '_title.gif';
    } else {
    $banner_section = $file_title;
    $file_title .= '_title.gif';
    }
    $banner_gif_up = 'images/banner_promo_up_' . $banner_section . '.gif';
    $banner_gif_over = 'images/banner_promo_over_' . $banner_section . '.gif';

#    if ($file =~ /^buying|promotions|directory/) {
#      if ($AD = &is_ad($web_id)) {
#         $banner_gif_over = "images/banner_promo_over_specials.gif";
#         $banner_gif_up = "images/banner_promo_up_specials.gif";
#      }
#    }

print <<ENDD;
  Nbannerpromo_over.src = "$banner_gif_over"
  Nbannerpromo_up.src = "$banner_gif_up"
ENDD
}

sub is_ad {
  my $web_id = shift;
  my ($ad) = $SQL->Query("select id from Ads where (web_id like '$web_id' or dealer_id like '$web_id') and active = 1");
   
   if ($ad->{id}) {
      $out = <<ENDD;
<a href="specials.cgi" onMouseOver="di('Nbannerpromo', 'Nbannerpromo_over' ); "
onMouseOut="di('Nbannerpromo','Nbannerpromo_up');"><img name="Nbannerpromo" src="images/banner_promo_up_specials.gif"
width="325" height="97" border="0" align=left vspace=0 hspace=0></a>
ENDD
   }
   return $out;
}

1;