#!/usr/bin/perl
require '/web/www.aip.com.au/htdocs/admin/contact.conf';
require '/web/www.aip.com.au/htdocs/admin/common.pl';

use CGI qw/:standard/;

$displayGames = "";
$indexSkellFile = "directory.html";
$gamesSkellFile = "template.html";
$newGamesTime = "0";

print header;

$uid = param('uid');
if ($uid) {
	&displayGame($uid);
} else {
	&list();
}

sub displayGame {
	open(FILE, "$gamesSkellFile");
	@lines = <FILE>;
	close(FILE);

	$uid = $_[0];
	@fields = &getFields;
	@entry = &getEntry($uid);

	# Modify each of the optional fields
	$index = &getFieldIndex("Other Admin Locations");
	if ($entry[$index]) {
		$entry[$index] =<<EndOfENTRY
<TR>
<TD VALIGN="TOP">
<P ALIGN="RIGHT"><B>Other Major<BR>
Administrative Locations:</B>
</TD>
<TD WIDTH="300" VALIGN="TOP">
$entry[$index]
</TD>
</TR>
EndOfENTRY
	;
	}

	$index = &getFieldIndex("Fax");
	if ($entry[$index]) {
		$entry[$index] =<<EndOfENTRY
<TR>
<TD VALIGN="TOP">
<P ALIGN="RIGHT"><B>Facsimile:</B>
</TD>
<TD WIDTH="300" VALIGN="TOP">$entry[$index] &nbsp;</TD>
</TR>
EndOfENTRY
	;

	}

	$index = &getFieldIndex("Email");
	if ($entry[$index]) {
		$entry[$index] =<<EndOfENTRY
<TR>
<TD VALIGN="TOP">
<P ALIGN="RIGHT"><B>Email:</B>
</TD>
<TD WIDTH="300" VALIGN="TOP">$entry[$index] &nbsp;</TD>
</TR>
EndOfENTRY
	;
	}

	$index = &getFieldIndex("website");
	if ($entry[$index]) {
		$entry[$index] =<<EndOfENTRY
<TR>
<TD VALIGN="TOP">
<P ALIGN="RIGHT"><B>Website:</B>
</TD>
<TD WIDTH="300" VALIGN="TOP"><a href="$entry[$index]">$entry[$index]</a> &nbsp;</FONT></TD>      
</TR>
EndOfENTRY
	;
	}

	if ($entry[9] || $entry[10] || $entry[11] || $entry[12] || $entry[13] || $entry[14] || $entry[15]) {
		if ($entry[13]) {
			$entry[13] = "Tel: $entry[13]<BR>\n";
		}
		if ($entry[14]) {
			$entry[14] = "Fax: $entry[14]<BR>\n";
		}
		if ($entry[15]) {
			$entry[15] = "Email: $entry[15]\n";
		}
		$holders1 =<<EndOfENTRY
$entry[9]<BR>
$entry[10]<BR>
$entry[11]<BR>
$entry[12]<BR>
$entry[13]
$entry[14]
$entry[15]
EndOfENTRY
	;
	}

	if ($entry[16] || $entry[17] || $entry[18] || $entry[19] || $entry[20] || $entry[21] || $entry[22]) {
		if ($entry[20]) {
			$entry[20] = "Tel: $entry[20]<BR>\n";
		}
		if ($entry[21]) {
			$entry[21] = "Fax: $entry[21]<BR>\n";
		}
		if ($entry[22]) {
			$entry[22] = "Email: $entry[22]\n";
		}
		$holders2 =<<EndOfENTRY
<p>
$entry[16]<BR>      
$entry[17]<BR>            
$entry[18]<BR>                                 
$entry[19]<BR>
$entry[20]
$entry[21]
$entry[22]
EndOfENTRY
	;
	}

	if ($entry[23] || $entry[24] || $entry[25] || $entry[26] || $entry[27] || $entry[28] || $entry[29]) {
		if ($entry[27]) {
			$entry[27] = "Tel: $entry[27]<BR>\n";
		}
		if ($entry[28]) {
			$entry[28] = "Fax: $entry[28]<BR>\n";
		}
		if ($entry[29]) {
			$entry[29] = "Email: $entry[29]\n";
		}
		$holders3 =<<EndOfENTRY
<p>
$entry[23]<BR>      
$entry[24]<BR>            
$entry[25]<BR>                                 
$entry[26]<BR>
$entry[27]
$entry[28]
$entry[29]
EndOfENTRY
	;
	}

	if ($entry[30] || $entry[31] || $entry[32] || $entry[33] || $entry[34] || $entry[35] || $entry[36]) {
		if ($entry[34]) {
			$entry[34] = "Tel: $entry[34]<BR>\n";
		}
		if ($entry[35]) {
			$entry[35] = "Fax: $entry[35]<BR>\n";
		}
		if ($entry[36]) {
			$entry[36] = "Email: $entry[36]\n";
		}
		$contact =<<EndOfENTRY
<TR>
<TD VALIGN="TOP">
<P ALIGN="RIGHT"><B>Corporate Contact:</B></FONT>
</TD>
<TD WIDTH="300" VALIGN="TOP">
$entry[30]<BR>
$entry[31]<BR>
$entry[32]<BR>   
$entry[33]<BR>
$entry[34]
$entry[35]
$entry[36]
</TD>
</TR>
EndOfENTRY
	;
	}


        foreach $line (@lines) {
                $x = 0;
		$line =~ s/\$Holders1/$holders1/g;
		$line =~ s/\$Holders2/$holders2/g;
		$line =~ s/\$Holders3/$holders3/g;
		$line =~ s/\$Contact/$contact/g;
                foreach $field (@fields) {
                        $line =~ s/\$$field/$entry[$x]/g;
                        $x++;
                }
		print "$line";
#		$entries .= "$line";
        }

        # open the indexSkellFile and display the index
#        open(FILE, "$indexSkellFile");
#        @lines = <FILE>;
#        close(FILE);
         
#        foreach $line (@lines) {
#                $line =~ s/\$entries/$entries/;  
#                print $line;   
#        }

}

sub list {
	$script = $ENV{"SCRIPT_NAME"};

	# foreach game entry get the link
	%db = &openDB;
	@uids = keys %db;

	foreach $id (@uids) {
		$name = &getEntryField($id, "Company Name", %db);
		$name =~ s/\'/\\\'/g;
		$entries .= "<a href=\"$script?uid=$id\" onMouseOver=\"self.status='$name'; return true\" onMouseOut=\"self.status=''; return true\">$name</a><br>\n";
	}

	# open the indexSkellFile and display the index
	open(FILE, "$indexSkellFile");
	@lines = <FILE>;
	close(FILE);

	foreach $line (@lines) {
		$line =~ s/\$entries/$entries/;
		print $line;
	}

}