#!/usr/bin/perl

use DBI;
use CGI;
use POSIX;
#use MySQL::TableInfo;
use Image::Size;
require 'cookie.lib';
require 'realms.lib';

&Initial_Var;

&Verify_Login;


my $cgi = new CGI;
my $UnitNum = $cgi->param('num');
$view = $cgi->param('view');
$exp = $cgi->param('exp');
$action = $cgi->param('action');
$Rating = $cgi->param('vote');
$Comment = $cgi->param('comment');
$ReviewID = $cgi->param('ReviewID');
$cardnum = $cgi->param('cardnum');
$gearnum = $cgi->param('gearnum');

if ($action eq "submit_comments")
        {
        &Submit_Comments($UnitNum);
        print "Location: http://www.hcrealms.com/cgi-bin/$unitscript?num=$UnitNum\n\n";
        exit;
        }

print "Content-type: text/html\n\n";
if ($action eq "view_comments")
        {
        &Determine_Expansion($UnitNum);
        &Print_No_Header;
        &Print_Comments($UnitNum);
        exit;
        }

if ($action eq "edit_review")
        {
        &Print_No_Header;
        &Print_Review_Edit($ReviewID);
        exit;
        }

if ($action eq "mod_edit")
        {
        &Print_No_Header;
        &Update_Comments($ReviewID);
        print "Edit complete\n";
        exit;
        }



&Get_Tool_Tips;
&Get_Browser_Type;
&Determine_Expansion($UnitNum);
&Print_Header;
if (!($UnitNum))
	{
	&Print_Advanced_Search;
	print << "HTML";
<P ALIGN="CENTER">Select from the unit below:<BR>
HTML

	&Print_Final_Footer;
	exit;
	}
&$get_unit_sub($UnitNum);
&$print_unit_sub($UnitNum);
&Print_Footer;
if ($view ne "quick")
	{
	&Print_Final_Footer;
	}
exit;