";
print "
$website";
print "";
exit;
}
sub print_category_menu
{
local ( $view_seconds,
@categories) = @_;
local ($i,
$category_key,
$category_name,
$category_description,
@cat_value_pairs);
if (-e $gcategory_file)
{
print "
";
print "";
for ($i=0; $i<=$#categories; $i++)
{
@cat_value_pairs = ();
$category_key = "";
$category_name = "";
$category_description = "";
@cat_value_pairs = split (/\|/, $categories[$i]);
$category_key = $cat_value_pairs[0];
$category_name = $cat_value_pairs[1];
$category_description = $cat_value_pairs[4];
print "| ";
print "$category_name";
if ($category_description =~ /\S/)
{
print " - $category_description";
}
print " |
";
}
print "
";
}
return;
}
sub display_schedule_daily
{
local ( $seconds_date,
$monthly_view_flag,
$view_category) = @_;
local ( $week_name,
$file_name,
$date_string,
$num_seconds,
$current_seconds,
$total_columns,
$index,
$looper,
$day_index,
$blackout_index,
@resources,
$resource_index,
$line_index,
@key_value_pairs,
$resource_name,
$current_line,
$sday,
$eday,
$time_header_html,
$placeholder_field_number,
$placeholder_max_chars,
$category_image,
$category_settings,
@reservation_data,
@resources,
@category_value_pairs);
$week_name = &get_week_name($seconds_date); # MM-DD-YYYY
&analyze_seconds($seconds_date);
$file_name = $data_directory . $week_name . ".txt";
$date_string = sprintf("%02d-%02d-%04d",substr($g_file_date,4,2),substr($g_file_date,6,2),substr($g_file_date,0,4));
if ($settings[5] =~ /US/i)
{
$date_string =~ s/-/\//g;
}
else
{
@key_value_pairs = split (/-/, $date_string);
$date_string = sprintf("%02d/%02d/%04d",$key_value_pairs[1],$key_value_pairs[0],$key_value_pairs[2]);
}
@reservation_data = &get_reservation_data_file($file_name);
@resources = &get_resources($view_category, $seconds_date);
$background_color = $settings[17];
$font_face = $settings[18];
$font_size = $settings[19];
$font_color = $settings[20];
$link_color = $settings[21];
$vlink_color = $settings[22];
$alink_color = $settings[23];
$title_bar_color = $settings[24];
if ((-e $gcategory_file) && (int($view_category) > 0) && ($settings[131] eq "2"))
{
$category_settings = &get_category_settings($view_category);
@category_value_pairs = split (/\|/, $category_settings);
if ($category_value_pairs[6] =~ /\S/)
{
$title_bar_color = $category_value_pairs[6];
}
if ($category_value_pairs[7] =~ /\S/)
{
$font_color = $category_value_pairs[7];
}
if ($category_value_pairs[8] =~ /\S/)
{
$font_face = $category_value_pairs[8];
}
if ($category_value_pairs[9] =~ /\S/)
{
$font_size = $category_value_pairs[9];
}
}
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n\n";
print "
$g_formatted_date";
print "";
&print_body($background_color, $font_color, $link_color, $vlink_color, $alink_color);
&print_current_date_header($username, $password);
&print_optional_links("TOP", $view_category, "DAILY", $seconds_date);
$category_image = "";
if ((-e $gcategory_file) && (int($view_category) > 0) && ($settings[131] eq "2"))
{
$category_image = &get_category_image($view_category);
&print_optional_page_image($category_image);
}
else
{
&print_optional_page_image($gpage_image);
}
&print_page_title($font_size, $font_face, $font_color, $page_title_daily, $g_formatted_date, $file_name);
if (($settings[146] =~ /TOP/i) || ($settings[146] =~ /BOTH/i ))
{
&print_navigation_buttons( "DAILY",
$week_name,
$seconds_date,
$monthly_view_flag,
0,
0,
0,
$view_category);
}
print "
";
$current_seconds = $g_seconds;
$sday = $g_wday;
$total_columns = &get_total_columns();
$settings[34] = &strip_letters($settings[34]);
$day_index = $sday; #equal to g_wday
print " ";
$settings[34] = ($settings[34] * ($total_columns - 1)) + 200;
print "";
$settings[34] = ($settings[34] - 200) / ($total_columns - 1);
print "";
print "";
print "";
&print_title_html("D",$g_wday,0,$title_bar_color);
&print_column_header_html($title_bar_color);
&print_header_spacer_html($title_bar_color);
$last_category = 0;
$looper = &get_looper();
for ($resource_index = 0; $resource_index <= $#resources; $resource_index++)
{
@key_value_pairs = split (/\|/, $resources[$resource_index]);
$resource_key = $key_value_pairs[0];
$this_category = $key_value_pairs[1];
$resource_name = $key_value_pairs[5];
$row_html = "";
$line_index = 0;
$current_line = "";
if ($settings[6] =~ /SUN/i)
{
$temp_day_index = $day_index + 1;
}
else
{
if ($day_index == 0)
{
$temp_day_index = 7;
}
else
{
$temp_day_index = $day_index;
}
}
if ($#reservation_data > 0)
{
while ((!($reservation_data[$line_index] =~ /^#$temp_day_index/i)) && ($line_index <= $#reservation_data))
{
$line_index++;
}
while ((!($reservation_data[$line_index] =~ /^#END/i)) && ($line_index <= $#reservation_data))
{
@key_value_pairs = split (/\|/, $reservation_data[$line_index]);
$current_resource_key = $key_value_pairs[0];
if (int($current_resource_key) == int($resource_key))
{
if ($#key_value_pairs > 6)
{
$current_line = $reservation_data[$line_index];
}
}
$line_index++;
}
}
@blackout_timeslots = &get_blackout_timeslots($resource_key, $seconds_date, $temp_day_index);
$blackout_status = $blackout_timeslots[0];
$placeholder_field_number = 0;
$placeholder_max_chars = "";
$resource_settings = &get_resource_settings($resource_key);
@resource_value_pairs = split (/\|/, $resource_settings);
$placeholder_field_number = &get_placeholder_field_number(@resource_value_pairs);
$placeholder_max_chars = &get_placeholder_max_chars(@resource_value_pairs);
$row_html = &get_row_html( $resource_key,
$week_name,
$temp_day_index,
$current_seconds,
$blackout_status,
$total_columns,
$looper,
$current_line,
$placeholder_field_number,
$placeholder_max_chars,
@blackout_timeslots);
if ((-e $gcategory_file) && ($settings[131] eq "3") && ($this_category ne $last_category))
{
$divider_row_color = "#000000";
$divider_row_font_color = "#FFFFFF";
$divider_row_font_face = "Arial";
$divider_row_font_size = "2";
if ($settings[136] =~ /\S/)
{
$divider_row_color = $settings[136];
}
if ($settings[137] =~ /\S/)
{
$divider_row_font_color = $settings[137];
}
if ($settings[138] =~ /\S/)
{
$divider_row_font_face = $settings[138];
}
if ($settings[139] =~ /\S/)
{
$divider_row_font_size = $settings[139];
}
print "";
print "| ";
print "";
$category_name = &get_category_name($this_category);
print $category_name;
print "";
print " | ";
print " ";
$last_category = $this_category;
}
print "";
print "| ";
print "";
if ($blackout_status == -1)
{
print $resource_name . " (unavailable)";
}
else
{
print "$resource_name";
}
print "";
print " | ";
print $row_html;
print " ";
}
print " ";
print " | ";
print "
";
print "
";
print "";
print "$settings[56]"; # reservation instructions
print "
";
print "";
if (($settings[146] =~ /BOTTOM/i) || ($settings[146] =~ /BOTH/i ))
{
&print_navigation_buttons( "DAILY",
$week_name,
$seconds_date,
$monthly_view_flag,
0,
0,
0,
$view_category);
}
&print_optional_links("BOTTOM", $view_category, "DAILY", $seconds_date);
print "