###############################################################################
# MBCoptions.pl                                                               #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.1                                        #
# Released:       December 2001; Updated March 22, 2002                       #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
#                  More Board and Catagory Options Version 2                  #
#                  by Shoeb Omar (Omario) and BHRA Webmaster                  #
#             (http://www.clickopedia.com http://www.bhra.org.uk)             #
#                                                                             #
#      Based on the original More Board and Catagory Options mod by cae       #
###############################################################################

$MBCoptionsplver = "1 Gold - SP 1.1";
###############################################################################

sub MoreBCOptions {
	&is_admin;
	$yytitle = "$mbco{'1'}";

	$curcat = $INFO{'cat'};
	if ($FORM{'cat'}) {$curcat = $FORM{'cat'};}
	$curboard = $INFO{'board'};
	if ($FORM{'board'}) {$curboard = $FORM{'board'};}

	$boardlist = "";
	fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);
	foreach $tmpcat (@categories) {
		$tmpcat =~ s/[\n\r]//g;
		fopen(CAT, "$boardsdir/$tmpcat.cat");
		@catinfo = <CAT>;
		fclose(CAT);

		$tmpcatname = $catinfo[0];
		$tmpcatname =~ s/[\n\r]//g;
		if ($curcat eq "" && $curboard eq "") {$curcat = $tmpcat; $cgi = qq~$scripturl?cat=$curcat~;}
		if ($tmpcat eq $curcat) {$selected=" selected"; $editcat = 1;} else {$selected = "";}
		$boardlist .= qq~<option value="cat=$tmpcat"$selected>$tmpcatname~;

		$tmpboardnum=0;
		foreach $tmpboard (@catinfo) {
			if($tmpboardnum > 1) {
				$tmpboard =~ s/[\n\r]//g;
				chomp $tmpboard;
				fopen(BOARD, "$boardsdir/$tmpboard.dat");
				@boardinfo = <BOARD>;
				fclose(BOARD);
				$tmpboardname = $boardinfo[0];
				$tmpboardname =~ s/[\n\r]//g;
				if ($tmpboard eq $curboard) {
					$selected=" selected";
					$curboardname=$boardinfo[0];
					$descr=$boardinfo[1];
				} else {
					$selected = "";
				}
				$boardlist .= qq~<option value="board=$tmpboard"$selected> - $tmpboardname\n~;
			}
			$tmpboardnum++;
		}
	}
	
$yymain .= qq~
<table border="0" align="center" cellspacing="1" cellpadding="4" bgcolor="$color{'bordercolor'}" class="bordercolor" width="90%">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}">
    <img src="$imagesdir/cat.gif" alt="" border="0">
    <font class="text1" color="$color{'titletext'}" size="1"><b>$mbco{'1'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><br><font size="1">$mbco{'2'}</font><br><br></td>
  </tr><tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}" align="center"><font class="text1" color="$color{'titletext'}" size="2">
      <form action="$scripturl?action=morebcoptions" method="POST" style="display:inline">
        <b>Select Board/Category:</b> <select name="select" size="1" onchange="javascript:window.location.href='$scripturl?'+select.options[select.selectedIndex].value+';action=morebcoptions'">
        $boardlist
        </select>
        <noscript>
          <input type="submit" size="1" value="$txt{'462'}">        
        </noscript>
      </form>
    </font></td>
  </tr>
</table>
<form action="$cgi;action=mbcomodify" method="POST" style="display:inline">
<table border="0" align="center" cellspacing="1" cellpadding="4" bgcolor="$color{'bordercolor'}" class="bordercolor" width="90%">
~;
if ($editcat == 1){

## Catagory Options ##

  $yymain .= qq~
  <tr>
    <td class="catbg" bgcolor="$color{'catbg'}"><font size="2">$mbco{'21'}</font></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}">
      <table border="0" cellspacing="0" cellpadding="4" width="100%">
        <tr>
          <td width="60%" valign="top"><font size="2"><b>$mbco{'4'}:</b></font><br><font size="1">$mbco{'23'}</font></td>
          <td width="40%" valign="middle" align="right"><input type="text" name="catpic" value="$catpic{$curcat}" size="40"></td></tr>
        </tr>
      </table>
    </td>
  </tr>
~;

## /Catagory Options ##

} else {

## Board Options ##

	if ($showprivboards{$currentboard} == 1) {$showchecked = " checked";}

$yymain .= qq~
  <tr>
    <td class="catbg" bgcolor="$color{'catbg'}"><font size="2">$mbco{'22'}</font></td>
  </tr><tr>
    <td class="windowbg2" bgcolor="$color{'windowbg2'}">
      <table border="0" cellspacing="0" cellpadding="4" width="100%">
        <tr>
          <td width="60%" valign="top"><font size="2"><b>$mbco{'3'}:</b></font><br><font size="1">$mbco{'24'}</font></td>
          <td width="40%" valign="middle" align="right"><input type="text" name="boardpw" value="$boardpw{$currentboard}" size="40"></td>
        </tr><tr>
          <td width="60%" valign="top"><font size="2"><b>$mbco{'4'}:</b></font><br><font size="1">$mbco{'25'}</font></td>
          <td width="40%" valign="middle" align="right"><input type="text" name="boardpic" value="$boardpic{$currentboard}" size="40"></td>
        </tr><tr>
          <td width="60%" valign="top"><font size="2"><b>$txt{'142'} $mbco{'17'}</b></font><br><font size="1">$mbco{'26'}</font></td>
          <td width="40%" valign="middle" align="right"><input type="text" name="stdusers" value="$start_users{$currentboard}" size="40"></td>
        </tr><tr>
          <td width="60%" valign="top"><font size="2"><b>$mbco{'16'} $mbco{'17'}</b></font><br><font size="1">$mbco{'27'}</font></td>
          <td width="40%" valign="middle" align="right"><input type="text" name="stallowedgroups" value="$start_groups{$currentboard}" size="40"></td>
        </tr><tr>
          <td width="60%" valign="top"><font size="2"><b>$txt{'142'} $mbco{'18'}</b></font><br><font size="1">$mbco{'28'}</font></td>
          <td width="40%" valign="middle" align="right"><input type="text" name="rdusers" value="$reply_users{$currentboard}" size="40"></td>
        </tr><tr>
          <td width="60%" valign="top"><font size="2"><b>$mbco{'16'} $mbco{'18'}</b></font><br><font size="1">$mbco{'29'}</font></td>
          <td width="40%" valign="middle" align="right"><input type="text" name="rallowedgroups" value="$reply_groups{$currentboard}" size="40"></td>
       </tr><tr>
         <td width="60%" valign="top"><font size="2"><b>$txt{'142'} $mbco{'19'}</b></font><br><font size="1">$mbco{'30'}</font></td>
         <td width="40%" valign="middle" align="right"><input type="text" name="vdusers" value="$view_users{$currentboard}" size="40"></td>
       </tr><tr>
         <td width="40%" valign="top"><font size="2"><b>$mbco{'16'} $mbco{'19'}</b></font><br><font size="1">$mbco{'31'}</font></td>
         <td width="60%" valign="middle" align="right"><input type="text" name="vallowedgroups" value="$view_groups{$currentboard}" size="40"></td>
       </tr><tr>
         <td width="40%" valign="top"><font size="2"><b>$mbco{'20'}</b></font><br><font size="1">$mbco{'32'}</font></td>
         <td width="60%" valign="middle" align="right"><input type="checkbox" name="showprivboards" value="1"$showchecked></td>
        </tr>
      </table>
    </td>
  </tr>~;

## /Board Options ##

}
$yymain .= qq~
  <tr>
    <td class="catbg" bgcolor="$color{'catbg'}" colspan="2" align="center"><input type="submit" value="$mbco{'6'}"></td>
  </tr><tr>
    <td colspan="2"><p align="right"><font size="1">$txt{'525'} <a href="http://boardmod.yabbforum.com/yabb/YaBB.pl?action=viewprofile;username=omario">Shoeb Omar</a> $txt{'763'} <a href="http://boardmod.yabbforum.com/yabb/YaBB.pl?action=viewprofile;username=cae">cae</a></font></td>
  </tr>
</table>
</form>
~;
	
	&template;
	exit;
}

sub mbcomodify {
	&is_admin;

	if($currentcat) {

		## Save Catagory Options ##
		fopen(FILE, "$vardir/cat.txt");
		@categories = <FILE>;
		fclose(FILE);

		$catpic{$currentcat} = $FORM{'catpic'};

		fopen(FILE, ">$vardir/cat.mco");
		print FILE qq~# Catagory Options\n\n~;
		foreach $tmpcat (@categories) {
			chomp $tmpcat;
			print FILE qq~\$catpic{'$tmpcat'} = "$catpic{$tmpcat}";\n~;
			print FILE qq~\n~;
		}
		print FILE qq~1;~;
		fclose(FILE);
		## /Save Catagory Options ##

	} elsif ($currentboard) {

		## Save Board Options ##
		$start_groups{$currentboard} = $FORM{'stallowedgroups'};
		$start_users{$currentboard} = $FORM{"stdusers"};
		$reply_groups{$currentboard} = $FORM{'rallowedgroups'};
		$reply_users{$currentboard} = $FORM{"rdusers"};
		$view_groups{$currentboard} = $FORM{'vallowedgroups'};
		$view_users{$currentboard} = $FORM{"vdusers"};		
		$showprivboards{$currentboard} = $FORM{'showprivboards'};
		$boardpic{$currentboard} = $FORM{'boardpic'};
		$boardpw{$currentboard} = $FORM{'boardpw'};

		fopen(FILE, ">$boardsdir/$currentboard.mbo", 1);	
			print FILE qq~# Board Options\n\n~;
			print FILE qq~\$start_groups{'$currentboard'} = "$start_groups{$currentboard}";\n~;
			print FILE qq~\$start_users{'$currentboard'} = "$start_users{$currentboard}";\n~;
			print FILE qq~\$reply_groups{'$currentboard'} = "$reply_groups{$currentboard}";\n~;
			print FILE qq~\$reply_users{'$currentboard'} = "$reply_users{$currentboard}";\n~;
			print FILE qq~\$view_groups{'$currentboard'} = "$view_groups{$currentboard}";\n~;
			print FILE qq~\$view_users{'$currentboard'} = "$view_users{$currentboard}";\n\n~;
			print FILE qq~\$showprivboards{'$currentboard'} = "$showprivboards{$currentboard}";\n~;
			print FILE qq~\$boardpic{'$currentboard'} = "$boardpic{$currentboard}";\n\n~;
			print FILE qq~1;~;
		fclose(FILE);

		fopen(FILE, ">$vardir/boards.pwd");
			print FILE qq~# Board Passwords\n\n~;
			while( $_ = each(%boardpw) ) {
				if( $_ && $boardpw{$_}) {print FILE qq~\$boardpw{'$_'} = "$boardpw{$_}";\n~;}
			}
			print FILE qq~\n1;~;
		fclose(FILE);

	}

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

sub askforboardpw {
	my($curboard) = @_;
	$yytitle = "$mbco{'9'}";
	fopen(FILE, "$boardsdir/$curboard.dat");
	$curboardname = <FILE>;
	chomp $curboardname;
	fclose(FILE);
	$yymain .= qq~
<table border=0 width="80%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align="center" cellpadding="4">
  <tr>
    <td  class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><img align="absmiddle" src="$imagesdir/locking.gif" alt="" border="0">  <b>$mbco{'9'} $mbco{'11'}: $curboardname</b></font></td>
  </tr><tr>
    <td  class="windowbg" bgcolor="$color{'windowbg'}" align="center"><br>
      <form action="$cgi;action=checkboardpw" method="POST">
    	<font size="2">$mbco{'9'}:
        
        <input type="password" name="boardpw" value="" size="25">
        <input type="submit" value="$mbco{'10'}">
         
        </font> 
      </form>  
    </td>
  </tr>
</table>
<center><br><a href="javascript:history.go(-1)">$txt{'250'}</a></center>
~;
	&template;
	exit;
}

sub checkboardpw {
	if($FORM{'boardpw'} ne $boardpw{$currentboard}) {&fatal_error("$mbco{'12'}");}

	#Set cookie expiration to default value
	$FORM{'cookielength'} = $Cookie_Length;
	if(!$FORM{'cookieneverexp'}) { $ck{'len'} = "\+$FORM{'cookielength'}m"; }
	else { $ck{'len'} = 'Sunday, 17-Jan-2038 00:00:00 GMT'; }
	my $cookiename = "$cookiepassword$currentboard";
	my $crypass = crypt($FORM{'boardpw'},$pwseed);
	push @otherCookies, cookie(-name    =>   "$cookiename",
				   -value   =>   "$crypass",
				   -path    =>   "/",
				   -expires =>   "$ck{'len'}");
	&LoadUserSettings;
	&WriteLog;
	&redirectinternal;
}

1;