# UBB.classic(tm) Control Panel Template
# Moderator Settings
# $Id: cp_vars_mods.pl,v 1.10 2003/02/05 22:47:58 cvscapps Exp $
# Wordlet Complete - 20020529

&FormStart("$vars_config{CGIURL}/cp.cgi", "$Hiddens");

&TBT;    #Table Border Top in cp_common.pl

&HeaderRow("$vars_wordlets_cp{moderator_warning}", "1", $vars_style_cp{AltColumnColor1},  $vars_style_cp{TextColor}, "left", "2");

&HeaderRow("$vars_config{BBName} $vars_wordlets_cp{moderator_settings}", "1", $vars_style_cp{HeaderColor}, $vars_style_cp{HeaderTextColor}, "center", "2");

# loop through each forum!

foreach (@forums) {

	@check = split (/\|\^\|/, $_);

	# clear array
	@display_name = @blank;

	# check for mod value
	$Moderator = ("Forum" . "$check[8]" . "Moderator");
	if (defined $$Moderator) {
		$Moderator = $$Moderator;
	} else {
		$Moderator = '';
	}


	# split up Mod var
	@mods = split (/\|\|\^\|\|/, $Moderator);
	chomp($mods[0]);
	chomp($mods[1]);
	chomp($mods[2]);
	chomp($mods[3]);
	chomp($mods[4]);
	chomp($mods[5]);
	chomp($mods[6]);
	chomp($mods[7]);

	for (0..7) {
		$mods[$_] = '' unless (defined($mods[$_]));
	}


	if (($mods[0] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[0].cgi"))) {
		@user_profile = &OpenProfile("$mods[0]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[0] = $user_profile[15];
		} else {
			$display_name[0] = $user_profile[0];
		}
	} else {
		$mods[0] = '';
	}

	if (($mods[1] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[1].cgi"))) {
		@user_profile = &OpenProfile("$mods[1]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[1] = $user_profile[15];
		} else {
			$display_name[1] = $user_profile[0];
		}
	} else {
		$mods[1] = '';
	}


	if (($mods[2] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[2].cgi"))) {
		@user_profile = &OpenProfile("$mods[2]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[2] = $user_profile[15];
		} else {
			$display_name[2] = $user_profile[0];
		}
	} else {
		$mods[2] = '';
	}

	if (($mods[3] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[3].cgi"))) {
		@user_profile = &OpenProfile("$mods[3]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[3] = $user_profile[15];
		} else {
			$display_name[3] = $user_profile[0];
		}
	} else {
		$mods[3] = '';
	}
	if (($mods[4] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[4].cgi"))) {
		@user_profile = &OpenProfile("$mods[4]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[4] = $user_profile[15];
		} else {
			$display_name[4] = $user_profile[0];
		}
	} else {
		$mods[4] = '';
	}
	if (($mods[5] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[5].cgi"))) {
		@user_profile = &OpenProfile("$mods[5]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[5] = $user_profile[15];
		} else {
			$display_name[5] = $user_profile[0];
		}
	} else {
		$mods[5] = '';
	}
	if (($mods[6] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[6].cgi"))) {
		@user_profile = &OpenProfile("$mods[6]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[6] = $user_profile[15];
		} else {
			$display_name[6] = $user_profile[0];
		}
	} else {
		$mods[6] = '';
	}
	if (($mods[7] ne '') && (&FileExists("$vars_config{MembersPath}/$mods[7].cgi"))) {
		@user_profile = &OpenProfile("$mods[7]");
		chomp($user_profile[0]);
		chomp($user_profile[15]);
		if ($user_profile[15] ne '') {
			$display_name[7] = $user_profile[15];
		} else {
			$display_name[7] = $user_profile[0];
		}
	} else {
		$mods[7] = '';
	}
	print <<ModRow;

<INPUT TYPE="HIDDEN" NAME="OldMod$check[8]" VALUE="$Moderator">

<TR bgcolor="$vars_style_cp{SecondHeaderColor}">
<td valign="top" class="stdrow">
$check[8]: <B>$check[1]</B>
</TD></TR>
<TR>
<TD bgcolor="$vars_style_cp{AltColumnColor1}" valign="top">

<table border="0" bgcolor="$vars_style_cp{AltColumnColor1}">
<tr><td class="smallrow">
$display_name[0]
</td>
<td class="smallrow">
$display_name[1]
</td>
<td class="smallrow">
$display_name[2]
</td>
<td class="smallrow">
$display_name[3]
</td>
</tr>

<tr><td class="smallrow">
<input type="text" name="1NewMod$check[8]" value="$mods[0]" size="20" maxlength="30">
</td>
<td class="smallrow">
<input type="text" name="2NewMod$check[8]" value="$mods[1]" size="20" maxlength="30">
</td>
<td class="smallrow">
<input type="text" name="3NewMod$check[8]" value="$mods[2]" size="20" maxlength="30">
</td>
<td class="smallrow">
<input type="text" name="4NewMod$check[8]" value="$mods[3]" size="20" maxlength="30">
</td>
</tr>
</table>
<table border="0" bgcolor="$vars_style_cp{AltColumnColor1}">
<tr>
<td class="smallrow">$display_name[4]</td>
<td class="smallrow">$display_name[5]</td>
<td class="smallrow">$display_name[6]</td>
<td class="smallrow">$display_name[7]</td>
</tr>
<tr>
<td class="smallrow">
<input type="text" name="5NewMod$check[8]" value="$mods[4]" size="20" maxlength="30">
</td>
<td class="smallrow">
<input type="text" name="6NewMod$check[8]" value="$mods[5]" size="20" maxlength="30">
</td>
<td class="smallrow">
<input type="text" name="7NewMod$check[8]" value="$mods[6]" size="20" maxlength="30">
</td>
<td class="smallrow">
<input type="text" name="8NewMod$check[8]" value="$mods[7]" size="20" maxlength="30">
</td>
</tr>
</table>
<br />
</td>
</tr>
ModRow

}    #end forum loop


&TBB;    #Table Border Bottom in cp_common.pl

&Submit("$vars_wordlets_cp{update} $vars_wordlets_cp{moderator_settings}");

# There is no more code - do not change anything below this line.
1;
# This entire program is copyright 2003 Infopop Corporation.
# For more info on UBB.classic and other Infopop
# Products/Services, visit: http://www.infopop.com

# You may not distribute this program in any manner, modified or otherwise.
# You make modifications, but only for your own use and within the confines
# of the UBB.classic License Agreement.