#################################################################################
# MIcon.pl									#
#################################################################################
# Mod Name:			Add More Message Icons 1.0			#
# File written by:		Omario with help from dOCda S!			#
# Support, News, Updates at:	http://www.clickopedia.com			#
#################################################################################

$miconver= "1.5";

sub MIconPanel {
	&is_admin;
	$yytitle = "$mitxt{'01'}";
$yymain .= qq~
    <form action="$cgi&action=addmicon" method="POST">
<table border=0 width="80%" cellspacing=1 cellpadding=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align=center>
<tr>
<td class="titlebg" bgcolor="$color{'titlebg'}" colspan="5" height=22><b><font size=2 class="text1" color="$color{'titletext'}">&nbsp<img src="$imagesdir/grin.gif">&nbsp$mitxt{'11'}</font></b></td>
</TR>
<TR>
	<td class="catbg" bgcolor="$color{'catbg'}" width="24%"><b><font size=2>$mitxt{'03'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}" width="24%"><b><font size=2>$mitxt{'04'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}" width="10%" align=center><b><font size=2>$mitxt{'06'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}" width="6%" align=center><b><font size=2>$mitxt{'07'}</font></b></td>
</TR>~;

	$i=0;
	while($MIconURL[$i]) {
		$yymain .= qq~<TR><td class='windowbg' bgcolor=$color{'windowbg'} width='24%' align=center><input type=text name=miimg[$i] value=$MIconURL[$i]></TD><td class='windowbg' bgcolor=$color{'windowbg'} width='24%' align=center><input type=text name=midescr[$i] value='$MessIDescription[$i]'></TD><td class='windowbg' bgcolor=$color{'windowbg'} width='10%' align='center'><img src="$imagesdir/$MIconURL[$i].gif"></td><td class='windowbg' bgcolor=$color{'windowbg'} width='6%' align=center><input type=checkbox name=midelbox[$i] value=1></TD></tr>~;
		$i++
		}
$yymain .= qq~
<tr>
<td class="titlebg" bgcolor="$color{'titlebg'}" colspan="6" height=22><b><font size=2 class="text1" color="$color{'titletext'}">&nbsp<img src="$imagesdir/grin.gif">&nbsp$mitxt{'08'}</font></b></td></tr>~;
$inew=0;
while($inew <= "3") {
$yymain .= qq~<tr><td class='windowbg' bgcolor=$color{'windowbg'} width='24%' align=center><input type=text name=miimg[$i]></TD><td class='windowbg' bgcolor=$color{'windowbg'} width='24%' align=center><input type=text name=midescr[$i]></TD><td class='windowbg' bgcolor=$color{'windowbg'} width='10%' align='center' colspan=2></TD></tr>~;
$i++;
$inew++;
if ($inew == 3) {
$yymain .= qq~
<tr><td class="catbg" bgcolor="$color{'catbg'}" align="center" colspan="6"><input type=submit value="$mitxt{'09'}"><input type=reset value="$mitxt{'10'}"></td></tr>
</TABLE>
</form>
<center><font size=1><B>Add More Message Icons $miconver - Admin Center Controlled!<BR>Done by Omario but based off Docda's Add Smilie Mod!</B><font size=1></center>~;
&template;
exit;
}
}

}

sub AddMIcon {
	&is_admin;
	$count=0;
	$tempA=0;
	fopen(FILE, ">$vardir/MIcon.txt");
	while($FORM{"miimg[$tempA]"}) {
#		if($FORM{"miimg[$tempA]"} !~ /\A[0-9A-Za-z#%+-\.@^_]+\Z/){
#			&fatal_error("$txt{'240'} $mitxt{'03'} $txt{'241'}");
#			exit;
#		}
		$delcheck = $FORM{"midelbox[$tempA]"};
		$var1 = $FORM{"miimg[$tempA]"};
		$var3 = $FORM{"midescr[$tempA]"};
		$imgmi = qq(\$MIconURL[$count] = "$var1";);
		$sdrmi = qq(\$MessIDescription[$count] = "$var3";);

		if ($delcheck ne "1") {
		print FILE "$imgmi\n";
		print FILE "$sdrmi\n\n";
		++$count;
		}
		++$tempA;
		}
		print FILE "1;";
		fclose(FILE);

		$yySetLocation = qq~$cgi&action=micon~;
		&redirectexit;
}

1;