#!/usr/bin/perl

use CGI qw/:standard/;
require "vdc_streams_dbi.pl";
require "vdc_utils.pl";


my $rows  = "80,300,270,300";
my $cols = "55%,45%";
my $this_dir ="/sdps/cgi/vdc_streams";


my @recipe = param('recipes_list');
my @host = param('hosts_list');
my $refresh = param('refresh_rate');
my $recipes;
my $hosts;


if(@recipe)
{
    foreach my $item ( @recipe )
    {
	$recipes .= "$item,";
    }
    chop($recipes);
}
else
{
    $recipes = "ALL";
}


if(@host)
{
    foreach my $item ( @host )
    {
	$hosts .= "$item,";
    }
    chop($hosts);
}
else
{
    $hosts = "ALL";
}

print header;



my $quote = "'";
print "<FRAMESET ROWS=$quote$rows$quote>";
print "<FRAME SRC=$quote$this_dir/header.pl$quote name='header_area'>";

print "<FRAME SRC=$quote$this_dir/active.pl?hostname=$hosts&recipe=$recipes&refresh=$refresh$quote name='active_area'>";
print "<FRAME SRC=$quote$this_dir/error.pl?refresh=$refresh$quote name='error_area'>";

print "<FRAMESET COLS=$quote$cols$quote>";
print "<FRAME SRC=$quote$this_dir/completed.pl?hostname=$hosts&recipe=$recipes&refresh=$refresh$quote name='completed_area'>";
print "<FRAME SRC=$quote$this_dir/footer.pl?hostname=$hosts&recipe=$recipes&refresh=$refresh$quote name='footer_area'>";
print "</FRAMESET>";

print "</FRAMESET>";
print start_html;
print end_html;