#!/usr/local/bin/perl

binmode(STDIN, ":utf8");

binmode(STDOUT, ":utf8");

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use lib "/var/www/html/Pm";

use Html qw(table_wide);

use Html;

use Bc_chef;

use Bc_misc;

use Bc_sql;

use Security;

use Redir;

my $DEBUG = 0;

my $output;

if (not user_exists($LOGGEDIN) or banned($LOGGEDIN)) {

  my $msg =  "Access Denied";

  if ($DEBUG) { $msg .= " (HTML_tests.pl)"; }

  $output = error_redir("/", $msg);

} else {

  ############################################################

  ### YOUR CONTENT HERE

  $output .= pre_html_header();

  $output .= header("HTML.pm Tests");

  my $cells = tdata("cell 1");

  $cells .= tdata("", "", "spacerx", "");

  $cells .= tdata("cell 3");

  my $rows = trow($cells);

  $rows .= trow($cells);

  $rows .= trow($cells);

  my $cell_spacery = tdata("", "", "spacery", "colspan=3");

  $rows .= trow($cell_spacery);

  my $cell_span3 = tdata("cell span 3<br>\ncentered<br>text", "", "", "align=center colspan=3");

  $rows .= trow($cell_span3);

  my $table = table_void($rows, "", "", 0, "border=1 cellpadding=0 cellspacing=0");

  $output .= table_wide($table, "", "", 1, "tdalign=center");

  $output .= footer2("");

  ############################################################

}

print $output;

exit 1;