#!/usr/bin/perl

###########################################################################
# Reviews Iterface
#
# This program will be used to generate the top level reviews page.
#
# (c) 2002 The Stigmata Organization
############################################################################

# Uses and Requires
use lib qw( . );
use CGI;
use CGI::Carp qw( fatalsToBrowser );
use DBI;
use DTO::Site;
use strict;

# Run Main
main();

# Sub It
sub main {

  # Create CGI Object
  my $q = CGI->new();
  
  # Create DTO Site Object
  my $dtos = DTO::Site->new($q);

  # Generate Page
  print $dtos->generate_top();
  print $dtos->revnavbar();
  print main_page($q);
  print $dtos->generate_bottom();

}

sub main_page {

  # Passed Q
  my $q = shift;

  # HTML Variable
  my $html;

  # Header
  $html .= $q->h2("Log In To The Dream Theater Information Network");

  # Under Construction
  $html .= $q->b("Under Construction");

  # Space
  $html .= $q->br . $q->br . $q->br . $q->br . $q->br . $q->br . $q->br;
  $html .= $q->br . $q->br . $q->br . $q->br . $q->br . $q->br . $q->br;
  $html .= $q->br . $q->br . $q->br . $q->br . $q->br . $q->br . $q->br;
  $html .= $q->br . $q->br;

  # Return Page
  return $html;
}