#!/usr/bin/perl
#
# csChatRBox 1.1 - 052102
#
$basepath = '.';
# Some Windows based servers required the following.
# push(@INC,"$basepath");
#####################################################################
#                                                                   #
#    Copyright © 1999-2002 CGISCRIPT.NET - All Rights Reserved     #
#                                                                   #
#####################################################################
#                                                                   #
#          THIS COPYRIGHT INFORMATION MUST REMAIN INTACT            #
#                AND MAY NOT BE MODIFIED IN ANY WAY                 #
#                                                                   #
#####################################################################
#
# When you downloaded this script you agreed to accept the terms 
# of this Agreement. This Agreement is a legal contract, which 
# specifies the terms of the license and warranty limitation between 
# you and CGISCRIPT.NET. You should carefully read the following 
# terms and conditions before installing or using this software.  
# Unless you have a different license agreement obtained from 
# CGISCRIPT.NET, installation or use of this software indicates 
# your acceptance of the license and warranty limitation terms
# contained in this Agreement. If you do not agree to the terms of this
# Agreement, promptly delete and destroy all copies of the Software.
#
# Versions of the Software 
# Only one copy of the registered version of CGISCRIPT.NET 
# may used on one web site.
# 
# License to Redistribute
# Distributing the software and/or documentation with other products
# (commercial or otherwise) or by other than electronic means without
# CGISCRIPT.NET's prior written permission is forbidden.
# All rights to the CGISCRIPT.NET software and documentation not expressly
# granted under this Agreement are reserved to CGISCRIPT.NET.
#
# Disclaimer of Warranty
# THIS SOFTWARE AND ACCOMPANYING DOCUMENTATION ARE PROVIDED "AS IS" AND
# WITHOUT WARRANTIES AS TO PERFORMANCE OF MERCHANTABILITY OR ANY OTHER
# WARRANTIES WHETHER EXPRESSED OR IMPLIED.   BECAUSE OF THE VARIOUS HARDWARE
# AND SOFTWARE ENVIRONMENTS INTO WHICH CGISCRIPT.NET MAY BE USED, NO WARRANTY 
# OF FITNESS FOR A PARTICULAR PURPOSE IS OFFERED.  THE USER MUST ASSUME THE
# ENTIRE RISK OF USING THIS PROGRAM.  ANY LIABILITY OF CGISCRIPT.NET WILL BE
# LIMITED EXCLUSIVELY TO PRODUCT REPLACEMENT OR REFUND OF PURCHASE PRICE.
# IN NO CASE SHALL CGISCRIPT.NET BE LIABLE FOR ANY INCIDENTAL, SPECIAL OR
# CONSEQUENTIAL DAMAGES OR LOSS, INCLUDING, WITHOUT LIMITATION, LOST PROFITS
# OR THE INABILITY TO USE EQUIPMENT OR ACCESS DATA, WHETHER SUCH DAMAGES ARE
# BASED UPON A BREACH OF EXPRESS OR IMPLIED WARRANTIES, BREACH OF CONTRACT,
# NEGLIGENCE, STRICT TORT, OR ANY OTHER LEGAL THEORY. THIS IS TRUE EVEN IF
# CGISCRIPT.NET IS ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. IN NO CASE WILL
# CGISCRIPT.NET' LIABILITY EXCEED THE AMOUNT OF THE LICENSE FEE ACTUALLY PAID
# BY LICENSEE TO CGISCRIPT.NET.
#
# Credits:
# Andy Angrick - Programmer - angrick@cgiscript.net
# Mike Barone - Design - mbarone@cgiscript.net
#
# For information about this script or other scripts see 
# http://www.cgiscript.net
#
# Thank you for trying out our script.
# If you have any suggestions or ideas for a new innovative script
# please direct them to suggest@cgiscript.net.  Thanks.
#
########################################################################
#                       Config Variables                               #
########################################################################

(! -e "$basepath/setup.cgi")?($nosetup=1):(require("$basepath/setup.cgi"));
$flock=1;

########################################################################
#                       End Config Variables                           #
########################################################################
require("$basepath/libs.cgi");
$in{'cgiurl'} = $cgiurl.'/csChatRBox.cgi';
(!$htmlpath)&&($htmlpath=$cgipath);
(!$htmlurl)&&($htmlurl=$cgiurl);
$in{'htmlurl'} = $htmlurl;

$in{'cinfo'} = qq|
<p align="center"><font size=2 face=verdana><b><a href="http://www.cgiscript.net"><font color="#3366FF" size="1">Powered
        by csChat - © 2000,2001 CGIScript.net</font></a></b></font>
|;

$| = 1;	
eval { &main; };		
if ($@) {
  &cgierr("fatal error: $@"); 
  }		
exit; 

sub main{
&getdata();
($in{'command'} eq 'cnm')&&(&CheckNewMessages);
print "Content-type: text/html\n";
($in{'command'} eq '')&&($nosetup)&&(print "\n")&&(&Setup);
($in{'command'} eq 'login')&&(print "\n")&&(&Login);
($in{'command'} eq '')&&(print "\n")&&(&Login);
($in{'command'} eq 'lo')&&(&LogOut);
($in{'command'} eq 'savesetup')&&(print "\n")&&(($nosetup)?(&SaveSetup):(&PError("Error. Permission denied.")));
&GetLogin;
($in{'command'} eq 'pm')&&(&PostMessage);
print "\n";
($in{'command'} eq 'ss')&&(&StartSession);
($in{'command'} eq 'sh')&&(&ShowHeader);
($in{'command'} eq 'sf')&&(&ShowFooter);
($in{'command'} eq 'sm')&&(&ViewMessage);
($in{'command'} eq 'vm')&&(&ViewMessage);
}

sub CheckNewMessages{
print "Content-type: image/gif\n";
@s = stat("$htmlpath/msgfile.cgi");
&GetCookies;
&FindOnline;
if(($s[9] != $cookie{'CHATLOG'})||($uol)){
  print "Set-cookie: CHATMESS=1; path=/\n";
  print "Set-cookie: CHATLOG=$s[9]; path=/\n\n";
  }
else{
  print "Set-cookie: CHATMESS=0; path=/\n\n";
  }

exit;
}

sub LogOut{
print "Set-cookie: CHATUSER= ;path=/\n";
print "Set-cookie: CHATCOLOR= ;path=/\n";
print "Set-cookie: CHATLOG= ;path=/\n\n";
$in{'UserName'} = $ENV{'REMOTE_USER'};
&PageOut("$htmlpath/t_chat_login.htm");
exit;
}

sub ShowHeader{
$in{'m'} = 'Enters Chat';
&WriteToChat;
&PageOut("$htmlpath/t_chat_header.htm");
exit;
}

sub ShowFooter{
$in{'refresh'} = 1000 * $refresh;
&PageOut("$htmlpath/t_chat_footer.htm");
exit;
}


sub StartSession{
&PageOut("$htmlpath/t_index.htm");
exit;
}

sub ViewMessage{
&FindOnline;
open(MSG,"<$htmlpath/msgfile.cgi");
($flock)&&(flock(MSG,2));
while(<MSG>){
  $in{'line'} .= $_;
  }
close MSG;
($flock)&&(flock(MSG,8));
&PageOut("$htmlpath/t_chat_main.htm");
exit;
}

sub WriteToChat{
(!$in{'m'})&&(exit);
&GetCookies;
if($in{'color'}){
  $c = $in{'color'};
  }
else{
  $c = $cookie{'CHATCOLOR'};
  }
$u = $cookie{'CHATUSER'};
if($flock){
  open(LCK,">$htmlpath/lockfile");
  flock(LCK,2);
  }
$in{'m'} =~ s/<b>/{b}/gi;
$in{'m'} =~ s/<\/b>/{\/b}/gi;
$in{'m'} =~ s/<i>/{i}/gi;
$in{'m'} =~ s/<\/i>/{\/i}/gi;
$in{'m'} =~ s/<.*?>//g;  
$in{'m'} =~ s/{b}/<b>/gi;
$in{'m'} =~ s/{\/b}/<\/b>/gi;
$in{'m'} =~ s/{i}/<i>/gi;
$in{'m'} =~ s/{\/i}/<\/i>/gi;

$in{'m'} =~ s/(\S{1,50})/$1 /g;  
open(MSGT,">$htmlpath/msgfile.cgi.tmp");

print MSGT qq|<tr><td width="100%"><font color="$c"><b>$u:</b> $in{'m'}</font></td></tr>\n|;

open(MSG,"<$htmlpath/msgfile.cgi");
while(<MSG>){
  ($line++)&&($line > 50)&&(last);
  print MSGT $_;
  }
close MSG;
close MSGT;

rename("$htmlpath/msgfile.cgi.tmp","$htmlpath/msgfile.cgi");

if($flock){
  flock(LCK,8);
  close LCK;
  }


}

sub PostMessage{

if(($in{'m'} =~ /\bclear log\b/i)&&($cookie{'CHATUSER'} eq $moderator)){
  open(MSG,">$htmlpath/msgfile.cgi");
  close MSG;
}
else{
  &WriteToChat;
  }

@s = stat("$htmlpath/msgfile.cgi");
if($in{'color'}){
print "Set-cookie: CHATCOLOR=$in{'color'}; path=/\n";
}
print "Set-cookie: CHATLOG=$s[9]; path=/\n\n";

&ViewMessage;
}

sub GetLogin{
&GetCookies;
if(!$cookie{'CHATUSER'}){
  print "\n";
  $in{'UserName'} = $ENV{'REMOTE_USER'};
  &PageOut("$htmlpath/t_chat_login.htm");
  exit;
  }
else{
  $time = time;
  dbmopen(%li,"$htmlpath/login",0644);
  $li{$cookie{'CHATUSER'}} = $time;
  dbmclose %li;
  }
}

sub Login{
$in{'UserName'} = $ENV{'REMOTE_USER'};
&PageOut("$htmlpath/t_chat_login.htm");
exit;
}

sub FindOnline{
dbmopen(%li,"$htmlpath/login",0644);
my $time = time;
$li{$cookie{'CHATUSER'}} = $time;
foreach $i (keys %li){
$mt = $time - $li{$i};
  ($mt < ($refresh * 2))?((push(@occ,$i))&&($uo++)):(($uol=1)&&(delete($li{$i})));
  }
dbmclose %li;
&cuol;
$in{'occupants'} = join(" | ",@occ);
}

sub Setup{
$cgipath = `pwd`;chomp $cgipath;
$cgiurl = "$ENV{'HTTP_HOST'}/$ENV{'SCRIPT_NAME'}";
$cgiurl =~ s/\/csChatRBox.cgi//i;
$cgiurl =~ s/\/\//\//g;
$cgiurl = "http://".$cgiurl;
$rooturl = "http://$ENV{'HTTP_HOST'}";
$rootpath = $ENV{'DOCUMENT_ROOT'};

$setup = "\$cgiurl = '$cgiurl';
\$cgipath = '$cgipath';
\$refresh='5';
1;
";

print <<"EOF";
<font size=2 face=tahoma><b>Current contents of your setup.cgi file</b><br>Please verify the information and modify if needed:
<form method=post action="csChatRBox.cgi">
<input type=hidden name=command value=savesetup>
<textarea rows=10 cols=80 name=setup wrap=off>
$setup
</textarea>
<hr>
<input type=submit value="-=Save Changes=-"></form>
<p><font face="Tahoma" size="2"><b>Definitions:</b></font></p>
<p><font face="Tahoma" size="2">\$cgiurl = Full URL to the csChatRBox DIRECTORY<br>
\$cgipath = Full PATH to the csChatRBox DIRECTORY<br>
\$</font></font><font face="Tahoma" size="2">refresh

<font size=2 face=tahoma> = </font></font><font size="2" face="tahoma">number of
seconds to wait to check for new messages<font face="Tahoma" size="2"><br>
</p>
<p><font face="Tahoma" size="2"><b>Normal Installation Instructions:</b></font></p>
<p><font face="Tahoma" size="2">In most cases, the script is already configured.
</font></font></font><font face="Tahoma" size="2">C<font size="2" face="tahoma"><font face="Tahoma" size="2">lick 'Save'.
If the setup portion of the script cannot find your sites variables
automatically, you will might have to enter those in the above text area.</font></p>
<p><font face="Tahoma" size="2"><b>CGI-BIN Installation Instructions:</b></font></p>
<p><font face="Tahoma" size="2">If your hosting service <b>will not</b> let you
run scripts outside your <b>cgi-bin</b> directory, then follow these procedures:</font></p>
<p><font face="Tahoma" size="2">Copy </font></font></font><font face="Tahoma" size="2">the
csChatRBox.cgi and libs.cgi fil<font face="Tahoma" size="2"><font size="2" face="tahoma">es to a directory in your
cgi-bin directory, making sure they are chmod'd to 755. For example, you could
create a /cgi-bin/csChatRBox/ directory and place csChatRBox.cgi</font></font>
and<font face="Tahoma" size="2"><font size="2" face="tahoma"> libs.cgi</font></font>
in this directory<font size="2" face="tahoma"><font face="Tahoma" size="2">.</font></p>
<p><font face="Tahoma" size="2">Create a directory outside your cgi-bin
directory and copy all the remaining files and subdirectories there. For
example, you could create a /cgi-script/csChatRBox and place the files there.</font></p>
</font><p>Run csChatRBox.cgi from your webbrowser to initiate the auto-setup.
This will create the setup.cgi file. And if you see this screen, this is where
you are in the installation process.</p>
<font size="2" face="tahoma">
<p><font face="Tahoma" size="2">Edit the above variables (or manually edit
setup.cgi) to the following:<br>
\$cgiurl = URL to the csChatRBox directory INSIDE your cgi-bin directory (where
the script is installed).<br>
\$cgipath = FULL PATH to the csChatRBox directory INSIDE your cgi-bin directory
(where the script is installed).<br>
<br>
<i><b>ADD THE FOLLOWING VARIABLES TO THE ABOVE CONFIGURATION OR MANUALLY EDIT
setup.cgi:<br>
</b></i>\$htmlurl =&nbsp; FULL URL to the csChatRBox directory OUTSIDE your cgi-bin
directory (where the remaining files where installed) <br>
\$htmlpath = FULL PATH to the csChatRBox directory OUTSIDE your cgi-bin
directory (where the remaining files where installed)</font></p>
<p><font face="Tahoma" size="2">For Example, your new setup.cgi file might look something like this:<br>
\$cgiurl='http://www.cgiscript.net/cgi-bin/csChatRBox';<br>
\$cgipath='/www/vhosts/cgiscript.net/cgi-bin/csChatRBox';<br>
\$htmlurl='http://www.cgiscript.net/cgi-script/csChatRBox';<br>
\$htmlpath='/www/vhosts/cgiscript.net/cgi-script/csChatRBox';<br>
</font></font>\$refresh='5';
<font size="2" face="tahoma">
<font face="Tahoma" size="2"><br>
1;</font></p>
<p><font face="Tahoma" size="2"><i>(note: the '1' at the end is to prevent
errors from perl if \$password was left empty)</i></font></p></font></font><p><font size="2" face="tahoma">If
you have any problems of questions, please feel free to contact <a href="mailto:contact\@cgiscript.net">contact\@cgiscript.net</a></font></p><p>&nbsp;</p>

EOF

exit;
}

sub SaveSetup{
(-e "$basepath/setup.cgi")&&(&PError("Error. Access Denied"));
$in{'setup'} =~ s/\r*\n/\n/g;
open(SETUP,">setup.cgi");
print SETUP $in{'setup'};
print SETUP "\n";
close SETUP;
print <<"EOF";
<script language=javascript>
alert("Setup.cgi reconfigured");
window.location = "csChatRBox.cgi?command=login";
</script>
EOF
exit;
}