#!/usr/bin/perl

use DBI;
use CGI;
use Image::Size;

require 'cookie.lib';
require 'realms.lib';

&Initial_Var;
&Verify_Login;


print "Content-type: text/html\n\n";

my $cgi = new CGI;
$action = $cgi->param('action');
$username = $cgi->param('username');
$codedname = $cgi->param('teamname');	

&Get_Username;
&Get_Data;
&Get_Tool_Tips;
&Get_Browser_Type;
&Print_Header;
if ($action eq "text")
	{
	&Print_Team_Text;
	}
elsif ($action eq "graphic")
	{
	&Print_Team_Graphic;
	}
else
	{
	&Print_Error;
	}
exit;

sub Get_Username
	{
	$sth1 = $dbh->prepare("select userid from user where username='$username';");
        $sth1->execute();
        while($row = $sth1->fetchrow_hashref)
                {
                $userid = $row->{userid};
                }
        $sth1->finish;
	}



sub Get_Data
	{
        $sth = $dbh->prepare("select * from userarmies where userid='$userid' and codedname='$codedname'");
        $sth->execute();
        while($row = $sth->fetchrow_hashref)
                {
		$teamname = $row->{teamname};
                $teamstring = $row->{team};
		$point_value = $row->{pointvalue};
                }
	}


sub Print_Team_Graphic
	{
	print << "HTML";
<BR><BR>
<P ALIGN="CENTER"><A HREF=/cgi-bin/quickviewteam.cgi?teamname=$codedname&username=$username&action=text>See Text View</A>

HTML

	print "<CENTER><FONT SIZE=4><B>$username\'s \"$teamname\" - $point_value points</B></CENTER></FONT>\n";
	@team = split(/\,/, $teamstring);
	foreach $unit (@team)
		{
		$Archenemy="";
		&Determine_Expansion($unit);
		&$get_unit_sub($unit);
		&$print_unit_sub($unit);
		print "<CENTER><FONT SIZE=4 COLOR=RED>If you are caught with this information, in any form, during a Tournament you can be eliminated from the Tournament.</FONT></CENTER>\n";
		&Clear_Arrays;
		}
		&Print_Footer;

	}





sub Print_Team_Text
	{
	print << "HTML";
<BR><BR>
<P ALIGN="CENTER"><A HREF=/cgi-bin/quickviewteam.cgi?teamname=$codedname&username=$username&action=graphic>See Graphic View</A>

<BR>
<BR>
<TABLE BORDER="1" ALIGN="CENTER">
<TR><TD COLSPAN="6"><CENTER><B>$username\'s \"$teamname\" - $point_value points</B></TD></TR>
<TR>
<TD ALIGN="CENTER"><B>Collector's Number</B></TD>
<TD ALIGN="CENTER"><B>Rarity</B></TD>
<TD ALIGN="CENTER"><B>Unit's Name</B></TD>
<TD ALIGN="CENTER"><B>Rank</B></TD>
<TD ALIGN="CENTER"><B>Point Value</B></TD>

</TR>

HTML
	
	@team = split(/\,/, $teamstring);
	foreach $unit (@team)
		{
		&Determine_Expansion($unit);
		&$get_unit_sub($unit);
	         if ($Rank eq "1") {$Rank = "Rookie";}
       		 elsif ($Rank eq "2") {$Rank = "Experienced";}
         	 elsif ($Rank eq "3") {$Rank = "Veteran";};

		print << "HTML";
<TR><TD ALIGN=CENTER>$expansion - $unit</TD><TD ALIGN=CENTER>$Rarity</TD><TD><A HREF="javascript:void(0)" onclick="window.open ('/cgi-bin/get_unit.cgi?num=$unit&view=quick', 'window$unit','width=$Width,height=500,scrollbars=$Scroll')">$UnitName</A></TD><TD ALIGN=CENTER>$Rank</TD><TD ALIGN=CENTER>$Point_Value</TD></TR>

HTML

		}

print << "HTML";
</TABLE>
<HR WIDTH=50%>
<P ALIGN="CENTER"><I>&#169; 2000, MKRealms.com</I>
</BODY></html>

HTML

	}