#! /usr/bin/perl

# reload.cgi
# -----------------------------------
# Copyright (C) 2000, Michael Stewart
# All Rights Reserved
# based on S8 Chat http://www.s8.org

# load the chat.setup file
require "chat.setup";

# If the offline.txt file exists, then the chat is in
# maintenance mode, and is closed.  Output the message
# in the offline.txt and end.
if (-e "$path/offline.txt") {
  open (OFFLINE, "$path/offline.txt");
  @offline = <OFFLINE>;
  close OFFLINE;
  print "Content-Type: text/html\n\n";
  print "<title>Fatal Chatroom Error 0 - Maintenance</title>\n";
  print "<p>The chatroom is closed right now for maintenance.<br>\n";
  print "The chatroom administrator left the following message:</p>\n";
  print "<PRE>\n";
  foreach $offlineLine (@offline) {
    print "$offlineLine";
  }
  print "</PRE>";
  print "<hr>\n";
  print "<i>Chatroom version $ver Error Code 0 - Maintenance</i>";
  exit;
}

# Check for the cgi-lib, make sure it's readable and require it
if (-e "$path/cgi-lib.cgi") {
  if (-r "$path/cgi-lib.cgi") {
    require "$path/cgi-lib.cgi";
  }
  else {
    print "Content-Type: text/html\n\n";
    print "<title>Fatal Chatroom Error 2 - cgi-lib Unreadable</title>\n";
    print "<p>The chatroom cannot load the required module cgi-lib.cgi.<br>\n";
    print "This module is required for the chatroom to work correctly.<br>\n";
    print "Please contact the chatroom administrator.</p>\n";
    print "<hr>\n";
    print "<i>Chatroom version $ver Error Code 2 - cgi-lib Unreadable</i>";
    exit;
  }
}
else {
  print "Content-Type: text/html\n\n";
  print "<title>Fatal Chatroom Error 1 - Missing cgi-lib</title>\n";
  print "<p>The chatroom cannot find the required module cgi-lib.cgi.<br>\n";
  print "This module is required for the chatroom to work correctly.<br>\n";
  print "Please contact the chatroom administrator.</p>\n";
  print "<hr>\n";
  print "<i>Chatroom version $ver Error Code 1 - Missing cgi-lib</i>";
  exit;
}

# Load the User Input into %in
&ReadParse();

# set defaults if varibles don't exist
unless ($in{'room'}) {
  $room = "none";
}
else {
  $room = $in{'room'};
}
if ($room eq "none") {
  $room = "chat";
}

  # load the chat.config file
  open (CONFIG, "$path/chat.config");
  @config = <CONFIG>;
  close CONFIG;
 
  # make sure this isn't a private room
  # if it is, then check for correct password
  foreach $configLine (@config) {
    $configLine =~ s/\n//;
    ($chatroom, $name, $description, $pass) = split(/\|/, $configLine);
    if ($chatroom eq $in{'room'}) {
      $foundroom = "1";
      if ($pass ne "") {
        if ($pass ne $in{'pass'}) {
          print "Content-Type: text/html\n\n";
          print "$bodytag\n";
          print "A password is required to view this room.<br>\n";
          print "Please enter the correct password in the pw box.";
          print "<hr><font size=2>Chat Version: $ver - $copyinfo";
          exit;
        }
      }
    }
  }

  # if the room wasn't found, then it's been deleted
  unless ($foundroom) {
    print "Content-Type: text/html\n\n";
    print "$bodytag\n";
    print "I'm sorry, but the administrator has left this room, and it has been deleted.\n";
    print "Click <a href=\"$url/\" target=\"_top\">Here</a> to goto a diffrent chat.\n";
    print "You will be redirected there automaticly.\n";
    print "<script language=\"JavaScript\">\n";
    print "reloadTimer=setTimeout('parent.location.href=\"$url/\"', 10000)\n";
    print "</script>\n";
    print "<hr><font size=2>Chat Version: $ver - $copyinfo";
    exit;
  }

  # see if it's a user-defined room, and process...
  ($roomleft, $roomright) = split(/\//, $room);
  if ($roomleft eq "user") {
    # make sure the user who created this has reloaded in the last 10 mins
    $tt = localtime;
    ($d1, $d2, $d3, $d4, $d5, $d6) = split(/\s/, $tt);
    if ($d3 ne "") {
      $dday = "$d1";
      $dmonth = "$d2";
      $ddate = "$d3";
      $dtime = "$d4";
      $dyear = "$d5";
    }
    else {
      $dday = "$d1";
      $dmonth = "$d2";
      $ddate = "$d4";
      $dtime = "$d5";
      $dyear = "$d6";
    }
    ($dhh, $dmm, $dss) = split(/:/, $dtime);
    open (ADMIN, "$path/$room.admin");
    @admin = <ADMIN>;
    close ADMIN;
    $cnt = 0;
    foreach $adminLine (@admin) {
      $cnt++;
      if ($cnt = 1) {
        $adminLine =~ s/\n//;
        ($att, $adminUser) = split(/\|/, $adminLine);
      }
    }
    ($a1, $a2, $a3, $a4, $a5, $a6) = split(/\s/, $att);
    if ($a3 ne "") {
      $aday = "$a1";
      $amonth = "$a2";
      $adate = "$a3";
      $atime = "$a4";
      $ayear = "$a5";
    }
    else {
      $aday = "$a1";
      $amonth = "$a2";
      $adate = "$a4";
      $atime = "$a5";
      $ayear = "$a6";
    }
    ($ahh, $amm, $ass) = split(/:/, $atime);
    # this would be where to change the time limit
    $amm = $amm + 10;
    if ($amm > 59) {
      $amm = $amm - 60;
      $ahh = $ahh + 1;
      if ($ahh > 23) {
        $ahh = $ahh - 24;
      }
    }
    if ($dmm > $amm) {
      if ($dhh = $ahh) {
        print "Content-Type: text/html\n\n";
        print "$bodytag\n";
        print "I'm sorry, but the administrator has left this room, and it will be deleted.\n";
        print "Click <a href=\"$url/\" target=\"_top\">Here</a> to goto a diffrent chat.\n";
        print "You will be redirected there automaticly.\n";
        open (CONFIG, "$path/chat.config");
        @config = <CONFIG>;
        close CONFIG;
        open (CONFIG, ">$path/chat.config");
        foreach $configLine (@config) {
          $configLine =~ s/\n//;
          ($chatroom, $name, $description, $pass) = split(/\|/, $configLine);
          if ($chatroom ne $room) {
            print CONFIG "$configLine\n";
          }
        }
        close CONFIG;
        unlink ("$path/$room.admin");
        unlink ("$path/$room.header");
        unlink ("$path/$room.chat");
        unlink ("$path/$room.footer");
        unlink ("$path/$room.ban");
        unlink ("$path/$room.banpass");
        unlink ("$path/$room.lock");
        print "<script language=\"JavaScript\">\n";
        print "reloadTimer=setTimeout('parent.location.href=\"$url/\"', 10000)\n";
        print "</script>\n";
        print "<hr><font size=2>Chat Version: $ver - $copyinfo";
        exit;
      }
    }
    if ($in{'admin'} eq $adminUser) {
      open (ADMIN, ">$path/$room.admin");
      print ADMIN "$tt\|$adminUser";
      close ADMIN;
    }
  }

  # load the chat header
  open (HEADER, "$path/$room.header");
  @header = <HEADER>;
  close HEADER;

  # load the chat room
  open (CHAT, "$path/$room.chat");
  @chat = <CHAT>;
  close CHAT;

  # load the chat footer
  open (FOOTER, "$path/$room.footer");
  @footer = <FOOTER>;
  close FOOTER;

  # prepare the time
  $tt = localtime;
  ($d1, $d2, $d3, $d4, $d5, $d6) = split(/\s/, $tt);
  if ($d3 ne "") {
    $dday = "$d1";
    $dmonth = "$d2";
    $ddate = "$d3";
    $dtime = "$d4";
    $dyear = "$d5";
  }
  else {
    $dday = "$d1";
    $dmonth = "$d2";
    $ddate = "$d4";
    $dtime = "$d5";
    $dyear = "$d6";
  }
  ($dhh, $dmm, $dss) = split(/:/, $dtime);
  if ($dhh > 12) {
    $dhh = $dhh - 12;
    $dampm = "PM";
  }
  else {
    $dampm = "AM";
  }

  # output the chat room header
  print "Content-Type: text/html\n\n";
  foreach $headerLine (@header) {
    print "$headerLine";
  }
  print "<p><center>The current time is: $dday $dmonth $ddate $dyear $dhh:$dmm:$dss $dampm MST</center></p>\n\n";

  # post a ban message if the varible showban is set
  if ($in{'showban'}) {
    print "<p><font color=\#FF0000><b>You cannot post to this room! You are banned!</b></font></p>\n\n";
  }

  # output the rest of the chat
  foreach $chatLine (@chat) {
    $chatLine =~ s/\n//;
    ($name,$mail,$userUrl,$color,$text,$time,$IP) = split(/\|/, $chatLine);
    if ($color ne "") {
      print "<p><font color=\#$color>$text</font><br>\n";
    }
    else {
      print "<p>$text<br>\n";
    }
    ($http,$www) = split(/:/, $userUrl);
    if ($http eq "http") {
      print "<a href=\"$userUrl\" target=\"_new\">$name</a>";
    }
    else {
      print "$name";
    }
    unless ($mail eq "") {
      print " - [<a href=\"mailto:$mail\">$mail</a>]<br>\n";
    }
    else {
      print "<br>\n";
    }
    print "$time<br>\n";
    print "<i>IP: $IP</i></p>\n\n";
  }
  foreach $footerLine (@footer) {
    print "$footerLine";
  }
  print "<hr><font size=2>Chat Version: $ver - $copyinfo";

</NOSCRIPT></TITLE><SCRIPT LANGUAGE="JavaScript">
<!--Ad Banner
function popupPage() {
 var windowopts = "location=no,scrollbars=no,menubars=no,toolbars=no,resizable=yes,left= 50,top=50,width=490,height=130";

 popup32367 = open('/prohost/banner.html',"MenuPopup",windowopts);
 popup32367.focus();
}

popupPage();

//  Ad Banner-->
</script>