#!/usr/bin/perl

###################################################################
#                                                                 #
# CuteCast(R) V2.0 Beta 2                                         #
# Written by Danny Damianus                                       #
# Copyright (c) 2001-2003 ArtsCore Studios                        #
# All Rights Reserved.                                            #
# Visit us at http://www.artscore.net                             #
# _______________________________________________________________ #
#                                                                 #
# Policies:                                                       #
# By using this software, you agree to the terms outlined in our  #
# policies located at our website.                                #
#                                                                 #
# All third party modifications is unsupported. This is NOT an    #
# open source software product.                                   #
#                                                            .... #
# Technical Support:                                              #
# If you have any question, opinion, suggestions, or any other    #
# comments, please visit our community forums at:                 #
#                                                                 #
# http://www.artscore.net/cgi-bin/cutecast/cutecast.pl            #
#                                                            .... #
# Liability:                                                      #
# The author of this software will not take responsibility for    #
# any damage that may result from the use of this software.       #
# The files contained in CuteCast are distributed "as is" and     #
# without any expressed and implied warranties. The user assumes  #
# the entire risk of using the software.                          #
#                                                                 #
###################################################################

$cutecast_fullpath = '.';

#$cookie_path = '/cgi-bin/cutecast/';

$dir_languages = "$cutecast_fullpath/languages";
$dir_data = "$cutecast_fullpath/data/forum";
$dir_data_sub = "$cutecast_fullpath/data/subthreads/";
$dir_data_pm = "$cutecast_fullpath/data/private/";
$dir_data_newsletters = "$cutecast_fullpath/data/newsletters/";
$dir_hits = "$cutecast_fullpath/data/hits/";
$dir_temp = "$cutecast_fullpath/data/temp";
$dir_txt = "$cutecast_fullpath/txt";
$dir_users = "$cutecast_fullpath/users/";
require "$cutecast_fullpath/lib/ac_lib.cgi";
require "$cutecast_fullpath/lib/ac_input.cgi";
require "$cutecast_fullpath/lib/ac_output.cgi";
require "$cutecast_fullpath/lib/ac_visual.cgi";
&decode_input;
&loading;
require "$dir_languages/$myprofile{language}/ac_words.var";
if (-e "$cutecast_fullpath/whyoff.txt" && $input{action} !~ /^admin$/i) {
	@data = &read_data("$cutecast_fullpath/whyoff.txt");
	$data[1] = &decode_html($data[1]);
#	$data[1] = &decode_emoticons($data[1]);
	$data[1] = &decode_cutecode($data[1]);
	$print_html_two = qq~
		<TR>
			<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
	<TBODY>
		<TR>
			<TD><font class=hbtext>$data[0]</font></TD>
		</TR>
	</TBODY>
</TABLE>
			</TD>
		</TR>
~;
	$print_html_three = qq~
		<TR>
			<TD class=boxb>
<TABLE border=0 cellPadding=4 cellSpacing=1 width=100%>
	<TBODY>
		<TR>
			<TD class=boxone><font class=ntext>$data[1]</font></TD>
		</TR>
	</TBODY>
</TABLE>
			</TD>
		</TR>
~;
$print_html_six = "<a href=\"$cutecast{bbsurl}?session=$input{session}&action=admin\">$var_word{admin_enter_here}</a>";
$print_html_eight = "$cutecast{bbsname} - CuteCast Message";
&print_cutecast;
}
elsif ($cutecast{memberonly} && $myprofile{whoareyou} && $input{action} !~ /^register$/i && $input{action} !~ /^help$/i) {&message('not_login','#0#');}
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
	if (!-e "$cutecast_fullpath/lib/ac_x$input{action}.cgi") {&message(cutecast_error);}
	require "$cutecast_fullpath/lib/ac_x$input{action}.cgi";
	&input;
}
else {
	if ($input{action}) {
		if (!-e "$cutecast_fullpath/lib/ac_x$input{action}.cgi") {&message(cutecast_error);}
		require "$cutecast_fullpath/lib/ac_x$input{action}.cgi";
	}
	else {
		if ($input{forum}) {
			if ($input{thread}) {require "$cutecast_fullpath/lib/ac_thread.cgi";}
			else {require "$cutecast_fullpath/lib/ac_forum.cgi";}
		}
		else {require "$cutecast_fullpath/lib/ac_forums.cgi";}
	}
	&output;
}