###############################################################################
# Rules.pl  											#
# Created By S.M.art.Y | smarty@my-mail.ch | http://mac68k.de                 #
# Features combined and rewritten for SP1 by Zone 					#
# (runningman77@hotmail.com | www.pcandnetworking.com					#
# Version 2.0                                                                 #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Project started by Zef Hemel (zef@zefnet.com)                   #
# Software Version: YaBB 1 Gold - SP1                                         #
# =========================================================================== #
# Software Distributed by:    http://yabb.xnull.com                           #
# Support, News, Updates at:  http://yabb.xnull.com/community/                #
# =========================================================================== #
# Copyright (c) 2000-2001 X-Null - All Rights Reserved                        #
# Software by: The YaBB Development Team                                      #
###############################################################################

$newbieguideplver="1 Gold - SP1";

sub NewbieGuide
{
	$yytitle = "$txt{'950'}";
	$yymain .= qq~  
	<TABLE WIDTH="100%" BORDER="0" cellspacing=0 bgcolor="$color{'bordercolor'}" class="bordercolor" cellpadding="0">
	<TR>
	<TD>
	<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="6">
        <TR>
        <TD CLASS="titlebg" BGCOLOR="$color{'titlebg'}"><FONT SIZE=2 CLASS="text1" COLOR="$color{'titletext'}"><B>$txt{'951'}</B></FONT></TD>
        </TR>
        <TR>
~; 
	{
		fopen(FILE, "$vardir/newbieguide.txt");
		@regeln = <FILE>;
		fclose(FILE);
		$newbieguide = join( "", @regeln );
		$newbieguide =~ s/\n/<BR>/g;
		$yymain .= qq~  
		<TD BGCOLOR="$color{'windowbg2'}"><FONT SIZE=2><BR>$newbieguide<BR></FONT></TD>
		</TR>
		<TR><TD CLASS="titlebg" BGCOLOR="$color{'titlebg'}" ALIGN="CENTER"><A HREF="javascript:history.go(-1)"><FONT SIZE="-1"><B>Back</B></FONT></A></TD></TR>
		</TABLE></TD>
		</TR>
		</TABLE>
~; 
	}
	&template;
	exit;
}

sub EditNewbieGuide
{
	&is_admin;
	my( $fullrule, $line );
	fopen(FILE, "$vardir/rules.txt");
	while( $line = <FILE> )
	{
		$line =~ tr/\r//d;
		$line =~ tr/\n//d;
		$line =~ s/&/&amp;/g;
		$line =~ s/</&lt;/g;
		$line =~ s/>/&gt;/g;
		$line =~ s/\|/\&#124;/g;
		$line =~ s/\%/&#37;/g;
		$line =~ s/"/&quot;/g;
		$fullrule .= qq~$line\n~;
	}
	fclose(FILE);
	$yytitle = "$txt{'951'}";
	$yymain .= qq~  
	<table border=0 width="100%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor" cellpadding="4"><tr>
	<td class="titlebg" bgcolor="$color{'titlebg'}"><img src="$imagesdir/xx.gif" alt="" border="0">
	<font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'951'}</b></font></td></tr><tr>
	<td class="windowbg" bgcolor="$color{'windowbg'}">
	<BR><font size=1>$txt{'952'}</font><BR><BR></td></tr><tr>
	<td class="windowbg2" bgcolor="$color{'windowbg2'}" align="center"><font size=2>
	<form action="$cgi;action=modrules2" method="POST"><BR>
	<textarea rows=30 cols=95 wrap=virtual name="rules" style="width:98%">$fullrule</textarea>
	<br><BR><input type=submit value="$txt{'10'}"></form></font></td></tr>
	</table>
~; 
	&template;
	exit;
}

sub EditNewbieGuide2
{
	&is_admin;
	$FORM{'rules'} =~ tr/\r//d;
	$FORM{'rules'} =~ s~\A\n~~;
	$FORM{'rules'} =~ s~\n\Z~~;
	fopen(FILE, ">$vardir/rules.txt");
	print FILE $FORM{'rules'};
	fclose(FILE);
	$yySetLocation = qq~$cgi;action=admin~;
	&redirectexit;
}

1;