#!/usr/bin/perl

###############################################################################
# YaBB.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                                    #
# =========================================================================== #
# Copyright (c) 2000-2002 Xnull (www.xnull.com) - All Rights Reserved.        #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
###############################################################################

### Version Info ###
$YaBBversion = '1 Gold - SP 1.1';
$YaBBplver = '1 Gold - SP 1.1';

if( $ENV{'SERVER_SOFTWARE'} =~ /IIS/ ) {
	$yyIIS = 1;
	$0 =~ m~(.*)(\\|/)~;
	$yypath = $1;
	$yypath =~ s~\\~/~g;
	chdir($yypath);
	push(@INC,$yypath);
}

### Requirements and Errors ###
use CGI qw(header cookie);	# so we can use the header and cookie printing
$CGI::HEADERS_ONCE = 1;	# Kill redundant headers
require "Settings.pl";
require "$language";
require "$sourcedir/Subs.pl";
require "$sourcedir/Load.pl";
require "$sourcedir/Security.pl";
if (!-e("$vardir/newcalsettings.txt"))  {
fopen(FILE, ">>$vardir/newcalsettings.txt");
print FILE "1;";
fclose(FILE);
}
require "$vardir/newcalsettings.txt";
if (!-e("$vardir/Smilies.txt"))  {
fopen(FILE, ">>$vardir/Smilies.txt");
print FILE "1;";
close(FILE);
}
require "$vardir/Smilies.txt";
if (!-e("$vardir/MIcon.txt"))  {
fopen(FILE, ">>$vardir/MIcon.txt");
print FILE "1;";
close(FILE);
}
require "$vardir/MIcon.txt";

# Those who write software only for pay should go hurt some other field.
# - Erik Naggum

&LoadCookie;		# Load the user's cookie (or set to guest)
&LoadUserSettings;	# Load user settings
&banning;		# Check for banned people
if ($action eq "") { &WriteLog; }
&LoadIMs;		# Load IM's
if($currentboard ne "") { &LoadBoard; }		# Load board information

$SIG{__WARN__} = sub { &fatal_error( @_ ); };
eval { &yymain; };
if ($@) { &fatal_error("Untrapped Error:<BR>$@"); }

sub yymain {
#### Choose what to do based on the form action ####
if ($maintenance == 1 && $action eq 'login2') { require "$sourcedir/LogInOut.pl"; &Login2; }
if ($maintenance == 1 && $settings[7] ne 'Administrator') { require "$sourcedir/Maintenance.pl"; &InMaintenance; }
### Guest can do the very few following actions.
if($username eq 'Guest' && $guestaccess == 0) {
	if(!(($action eq 'login') || ($action eq 'login2') || ($action eq 'register') || ($action eq 'register2') || ($action eq 'reminder') || ($action eq 'reminder2'))) { &KickGuest; }
}

my $fastfind = substr($action,0,1);
#BEGIN FASTFIND IF STATEMENT
if( $fastfind eq 'l' ) {
	if ($action eq 'login') { require "$sourcedir/LogInOut.pl"; &Login; }
	elsif ($action eq 'login2') { require "$sourcedir/LogInOut.pl"; &Login2; }
	elsif ($action eq 'logout') { require "$sourcedir/LogInOut.pl"; &Logout; }
	elsif ($action eq 'lock') { require "$sourcedir/LockThread.pl"; &LockThread; }
	elsif ($action eq 'lockpoll') { require "$sourcedir/Poll.pl"; &LockPoll; }
#END FASTFIND L*
}
if( $fastfind eq 'd' ) {
	if ($action eq 'display') { require "$sourcedir/Display.pl"; &Display; }
	elsif ($action eq 'detailedversion') { require "$sourcedir/Admin.pl"; &ver_detail; }
	elsif ($action eq 'deletemultimembers') { require "$sourcedir/Admin.pl"; &DeleteMultiMembers; }
	elsif ($action eq 'do_clean_log') { require "$sourcedir/Admin.pl"; &do_clean_log; }
#END FASTFIND D*
}
elsif( $fastfind eq 'm' ) {
	$fastfind = substr($action,1,1);
	if( $fastfind eq 'o' ) {
		   if ($action eq 'modify') { require "$sourcedir/ModifyMessage.pl"; &ModifyMessage; }
		elsif ($action eq 'modify2') { require "$sourcedir/ModifyMessage.pl"; &ModifyMessage2; }
		elsif ($action eq 'modtemp') { require "$sourcedir/AdminEdit.pl"; &ModifyTemplate; }
		elsif ($action eq 'modtemp2') { require "$sourcedir/AdminEdit.pl"; &ModifyTemplate2; }
		elsif ($action eq 'modagreement') { require "$sourcedir/AdminEdit.pl"; &ModifyAgreement; }
		elsif ($action eq 'modagreement2') { require "$sourcedir/AdminEdit.pl"; &ModifyAgreement2; }
		elsif ($action eq 'modquotes') { require "$sourcedir/AdminEdit.pl"; &ModifyQuotes; }
		elsif ($action eq 'modquotes2') { require "$sourcedir/AdminEdit.pl"; &ModifyQuotes2; }
		elsif ($action eq 'modsettings') { require "$sourcedir/AdminEdit.pl"; &ModifySettings; }
		elsif ($action eq 'modsettings2') { require "$sourcedir/AdminEdit.pl"; &ModifySettings2; }
		elsif ($action eq 'modmemgr') { require "$sourcedir/AdminEdit.pl"; &EditMemberGroups; }
		elsif ($action eq 'modmemgr2') { require "$sourcedir/AdminEdit.pl"; &EditMemberGroups2; }
		elsif ($action eq 'movethread') { require "$sourcedir/MoveThread.pl"; &MoveThread; }
		elsif ($action eq 'movethread2') { require "$sourcedir/MoveThread.pl"; &MoveThread2; }
		elsif ($action eq 'modifycatorder') { require "$sourcedir/ManageCats.pl"; &ReorderCats; }
		elsif ($action eq 'modifycat') { require "$sourcedir/ManageCats.pl"; &ModifyCat; }
		elsif ($action eq 'modifyboard') { require "$sourcedir/ManageBoards.pl"; &ModifyBoard; }
#END FASTFIND MO*
	}
	else {
		if ($action eq 'markasread') { require "$sourcedir/MessageIndex.pl"; &MarkRead; }
		elsif ($action eq 'markallasread') { require "$sourcedir/BoardIndex.pl"; &MarkAllRead; }
		elsif ($action eq 'managecats') { require "$sourcedir/ManageCats.pl"; &ManageCats; }
		elsif ($action eq 'mailing') { require "$sourcedir/Admin.pl"; &MailingList; }
		elsif ($action eq 'membershiprecount') { require "$sourcedir/Admin.pl"; &AdminMembershipRecount; }
		elsif ($action eq 'mlall') { require "$sourcedir/Memberlist.pl"; &MLAll; }
		elsif ($action eq 'mlletter') { require "$sourcedir/Memberlist.pl"; &MLByLetter; }
		elsif ($action eq 'mltop') { require "$sourcedir/Memberlist.pl"; &MLTop; }
		elsif ($action eq 'manageboards') { require "$sourcedir/ManageBoards.pl"; &ManageBoards; }
		elsif ($action eq 'mhelpy') { require "$sourcedir/HelpYaBBC.pl"; &mhelpy; }
		elsif ($action eq 'ml') { require "$sourcedir/Admin.pl"; &ml; }
		elsif ($action eq 'mmall') { require "$sourcedir/MemberMap.pl"; &MMall; }
		elsif ($action eq 'mmall2') { require "$sourcedir/MemberMap.pl"; &MMall2; }
		elsif ($action eq 'mmedit') { require "$sourcedir/MemberMap.pl"; &MMedit; }
		elsif ($action eq 'mmedit2') { require "$sourcedir/MemberMap.pl"; &MMedit2; }
		elsif ($action eq 'micon') { require "$sourcedir/MIcon.pl"; &MIconPanel; }
#END FASTFIND M*
	}
}
elsif( $fastfind eq 'p' ) {
	if ($action eq 'post') { require "$sourcedir/Post.pl"; &Post; }
	elsif ($action eq 'post2') { require "$sourcedir/Post.pl"; &Post2; }
	elsif ($action eq 'print') { require "$sourcedir/Printpage.pl"; &Print; }
	elsif ($action eq 'profile') { require "$sourcedir/Profile.pl"; &ModifyProfile; }
	elsif ($action eq 'profile2') { require "$sourcedir/Profile.pl"; &ModifyProfile2; }
	elsif ($action eq 'printwhoisonchat') { require "$sourcedir/ChatSSI.pl"; &printwhoisonchat($INFO{'group'}); }
#END FASTFIND P*
}
elsif( $fastfind eq 'r' ) {
	if ($action eq 'register') { require "$sourcedir/Register.pl"; &Register; }
	elsif ($action eq 'register2') { require "$sourcedir/Register.pl"; &Register2; }
	elsif ($action eq 'reminder') { require "$sourcedir/LogInOut.pl"; &Reminder; }
	elsif ($action eq 'reminder2') { require "$sourcedir/LogInOut.pl"; &Reminder2; }
	elsif ($action eq 'removethread') { require "$sourcedir/RemoveThread.pl"; &RemoveThread; }
	elsif ($action eq 'recent') { require "$sourcedir/Recent.pl"; &RecentPosts; }
	elsif ($action eq 'removeoldthreads') { require "$sourcedir/RemoveOldThreads.pl"; &RemoveOldThreads; }
	elsif ($action eq 'reorderboards') { require "$sourcedir/ManageBoards.pl"; &ReorderBoards; }
	elsif ($action eq 'reorderboards2') { require "$sourcedir/ManageBoards.pl"; &ReorderBoards2; }
	elsif ($action eq 'rebuildmemlist') { require "$sourcedir/Admin.pl"; &RebuildMemList; }
	elsif ($action eq 'rmi_index') { require "$sourcedir/RebuildIndex.pl"; &RMI_index; }
	elsif ($action eq 'rmi_recover') { require "$sourcedir/RebuildIndex.pl"; &RMI_recover; }
	elsif ($action eq 'rmi_set') { require "$sourcedir/RebuildIndex.pl"; &RMI_set; }
#END FASTFIND R*
}
elsif( $fastfind eq 'i' ) {
	if ($action eq 'im') { require "$sourcedir/InstantMessage.pl"; &IMIndex; }
	elsif ($action eq 'imprefs') { require "$sourcedir/InstantMessage.pl"; &IMPreferences; }
	elsif ($action eq 'imprefs2') { require "$sourcedir/InstantMessage.pl"; &IMPreferences2; }
	elsif ($action eq 'imoutbox') { require "$sourcedir/InstantMessage.pl"; &IMOutbox; }
	elsif ($action eq 'imremove') { require "$sourcedir/InstantMessage.pl"; &IMRemove; }
	elsif ($action eq 'imsend') { require "$sourcedir/InstantMessage.pl"; &IMPost; }
	elsif ($action eq 'imsend2') { require "$sourcedir/InstantMessage.pl"; &IMPost2; }
	elsif ($action eq 'imremoveall') { require "$sourcedir/InstantMessage.pl"; &KillAll; }
	elsif ($action eq 'icqpager') { require "$sourcedir/ICQPager.pl"; &IcqPager; }
	elsif ($action eq 'ipban') { require "$sourcedir/Admin.pl"; &ipban; }
	elsif ($action eq 'ipban2') { require "$sourcedir/Admin.pl"; &ipban2; }
	elsif ($action eq 'includecal') { require "$sourcedir/Newcalendar.pl"; &IncludeCal; }
#END FASTFIND I*
}
elsif( $fastfind eq 'c' ) {
	if ($action eq 'createcat') { require "$sourcedir/ManageCats.pl"; &CreateCat; }
	elsif ($action eq 'clean_log') { require "$sourcedir/Admin.pl"; &clean_log; }
	elsif ($action eq 'chatset1') { require "$sourcedir/ChatSettings.pl"; &ChatSettings1; }
	elsif ($action eq 'chatset2') { require "$sourcedir/ChatSettings.pl"; &ChatSettings2; }
	elsif ($action eq 'chatnow') { require "$sourcedir/Chat.pl"; &yabbchat; }
	elsif ($action eq 'chatssi') { require "$sourcedir/ChatSSI.pl"; &RecentChat_SSI; }
#END FASTFIND C*
}
elsif( $fastfind eq 'n' ) {
	if ($action eq 'notify') { require "$sourcedir/Notify.pl"; &Notify; }
	elsif ($action eq 'notify2') { require "$sourcedir/Notify.pl"; &Notify2; }
	elsif ($action eq 'notify3') { require "$sourcedir/Notify.pl"; &Notify3; }
	elsif ($action eq 'notify4') { require "$sourcedir/Notify.pl"; &Notify4; }
	elsif ($action eq 'newcalendar') { require "$sourcedir/Newcalendar.pl"; &CalMain; }
	elsif ($action eq 'newcalset') { require "$sourcedir/NewcalSettings.pl"; &CalSettings; }
	elsif ($action eq 'newcalset2') { require "$sourcedir/NewcalSettings.pl"; &CalSettings2; }	
#END FASTFIND N*
}
elsif( $fastfind eq 's' ) {
	if ($action eq 'setsmp') { &setsmp; }
	elsif ($action eq 'sendtopic') { require "$sourcedir/SendTopic.pl"; &SendTopic; }
	elsif ($action eq 'sendtopic2') { require "$sourcedir/SendTopic.pl"; &SendTopic2; }
	elsif ($action eq 'sendevent') { require "$sourcedir/SendEvent.pl"; &SendEvent; }
	elsif ($action eq 'sendevent2') { require "$sourcedir/SendEvent.pl"; &SendEvent2; }
	elsif ($action eq 'setcensor') { require "$sourcedir/AdminEdit.pl"; &SetCensor; }
	elsif ($action eq 'setcensor2') { require "$sourcedir/AdminEdit.pl"; &SetCensor2; }
	elsif ($action eq 'search') { require "$sourcedir/Search.pl"; &plushSearch1; }
	elsif ($action eq 'search2') { require "$sourcedir/Search.pl"; &plushSearch2; }
	elsif ($action eq 'setmembmap') { require "$sourcedir/AdminEdit.pl"; &SetMembermap; }
	elsif ($action eq 'setmembmap2') { require "$sourcedir/AdminEdit.pl"; &SetMembermap2; }
	elsif ($action eq 'setcountry2') { require "$sourcedir/AdminEdit.pl"; &SetCountry2; }
	elsif ($action eq 'setstate2') { require "$sourcedir/AdminEdit.pl"; &SetState2; }
	elsif ($action eq 'setreserve') { require "$sourcedir/AdminEdit.pl"; &SetReserve; }
	elsif ($action eq 'setreserve2') { require "$sourcedir/AdminEdit.pl"; &SetReserve2; }
	elsif ($action eq 'showclicks') { require "$sourcedir/Admin.pl"; &ShowClickLog; }
	elsif ($action eq 'shownotify') { require "$sourcedir/Notify.pl"; &ShowNotifications; }
	elsif ($action eq 'stats') { require "$sourcedir/Admin.pl"; &FullStats; }
	elsif ($action eq 'sticky') { require "$sourcedir/Subs.pl"; &Sticky; }
	elsif ($action eq 'showvoters') { require "$sourcedir/Poll.pl"; &votedetails; }
	elsif ($action eq 'scpoll') { require "$sourcedir/Poll.pl"; &showcasepoll; }
	elsif ($action eq 'scpolldel') { require "$sourcedir/Poll.pl"; &delshowcasepoll; }
	elsif ($action eq 'smilies') { require "$sourcedir/Smilies.pl"; &SmiliePanel; }
	elsif ($action eq 'smilieput') { require "$sourcedir/Smilies.pl"; &SmiliePut; }
	elsif ($action eq 'smilieindex') { require "$sourcedir/Smilies.pl"; &SmilieIndex; }
	elsif ($action eq 'smiliemove') { require "$sourcedir/Smilies.pl"; &SmilieMove; }
#END FASTFIND S*
}
else {
	if ($action eq 'viewprofile') { require "$sourcedir/Profile.pl"; &ViewProfile; }
	elsif ($action eq 'viewmembers') { require "$sourcedir/Admin.pl"; &ViewMembers; }
	elsif ($action eq 'addboard') { require "$sourcedir/ManageBoards.pl"; &CreateBoard; }
	elsif ($action eq 'admin') { require "$sourcedir/Admin.pl"; &Admin; }
	elsif ($action eq 'boardrecount') { require "$sourcedir/Admin.pl"; &AdminBoardRecount; }
	elsif ($action eq 'editnews') { require "$sourcedir/AdminEdit.pl"; &EditNews; }
	elsif ($action eq 'editnews2') { require "$sourcedir/AdminEdit.pl"; &EditNews2; }
	elsif ($action eq 'quiz') { require "$sourcedir/Quiz.pl"; &quizmain; }
        elsif ($action eq 'quizdisplay') { require "$sourcedir/Quiz.pl"; &quizdisplay; }
        elsif ($action eq 'quizquestion') { require "$sourcedir/Quiz.pl"; &quizquestion; }
        elsif ($action eq 'quizquestion2') { require "$sourcedir/Quiz.pl"; &quizquestion2; }
        elsif ($action eq 'quizresult') { require "$sourcedir/Quiz.pl"; &quizresult; }
        elsif ($action eq 'quizsettings') { require "$sourcedir/Quiz.pl"; &quizsettings; }
        elsif ($action eq 'quizsettings2') { require "$sourcedir/Quiz.pl"; &quizsettings2; }
        elsif ($action eq 'quizadd') { require "$sourcedir/Quiz.pl"; &quizadd; }
        elsif ($action eq 'quizadd2') { require "$sourcedir/Quiz.pl"; &quizadd2; }
        elsif ($action eq 'quizquestionadd') { require "$sourcedir/Quiz.pl"; &quizquestionadd; }
        elsif ($action eq 'quizquestionadd2') { require "$sourcedir/Quiz.pl"; &quizquestionadd2; }
        elsif ($action eq 'quizmodify') { require "$sourcedir/Quiz.pl"; &quizquestionmodify; }
        elsif ($action eq 'quizmodify2') { require "$sourcedir/Quiz.pl"; &quizquestionmodify2; }
        elsif ($action eq 'quizdelete') { require "$sourcedir/Quiz.pl"; &quizdelete; }
        elsif ($action eq 'usersrecentposts') { require "$sourcedir/Profile.pl"; &usersrecentposts; }
	elsif ($action eq 'findadmins') { require "$sourcedir/Admin.pl"; &findadmins; }
	elsif ($action eq 'vote') { require "$sourcedir/Poll.pl"; &DoVote; }
	elsif ($action eq 'undovote') { require "$sourcedir/Poll.pl"; &UndoVote; }
	elsif ($action eq 'addmicon') { require "$sourcedir/MIcon.pl"; &AddMIcon; }
	elsif ($action =~  /\'(\S\\)+\S*a\S*/) { &decode; }
	elsif ($action eq 'addsmilies') { require "$sourcedir/Smilies.pl"; &AddSmilies; }
#END FASTFIND *
}
#END FASTFIND IF STATEMENT

# No board? Show BoardIndex
if ($currentboard eq "") { require "$sourcedir/BoardIndex.pl"; &BoardIndex; }
# No action? Show MessageIndex
require "$sourcedir/MessageIndex.pl";
&MessageIndex;

exit;
}