#! /usr/bin/perl

# index.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();

unless ($in{'action'}) {
# no defined action
# if there are multiple chatrooms, show a list of all chats
# with descriptions else load the normal chatroom

  # check for the config file and whether it is readable
  if (-e "$path/chat.config" && -r "$path/chat.config") {

    # load the file
    open (CONFIG, "$path/chat.config");
    @chatConfig = <CONFIG>;
    close CONFIG;

    # output the Content-Type
    print "Content-Type: text/html\n\n";

    # output a list of the chatrooms
    # you may customize this as you want
    # will add customization for this part in a later version
    print "<title>The Chatrooms</title>\n";
    print "$bodytag\n";
    print "<p>Below are the chatrooms that are available:</p>\n";
    foreach $chatConfigLine (@chatConfig) {
      $chatConfigLine =~ s/\n//;
      ($room, $name, $description, $pass) = split(/\|/, $chatConfigLine);
      print "<p><a href=\"$url/?action=chat&room=$room\">$name";
      if ($pass ne "") {
        print " (p)";
      }
      print "</a><br>\n";
      print "$description</p>\n\n";
    }
    print "<p><a href=\"$url/command.cgi?cmdA=-new\">Start a New Chatroom</a><br>\n";
    print "Start a new private chatroom that will close when you leave.</p>\n\n";
    print "<hr><font size=2>Chat Version: $ver - $copyinfo";
    exit;
  }
  else {
    # redirect to the chatroom
    print "Content-Type: text/html\n";
    print "Location: $url/?action=chat&room=none\n\n";
    exit;
  }
}
else {
# there was an action, process it

  # get the action
  $action = $in{'action'};

  if ($action eq "chat") {

    # check for room input
    unless ($in{'room'}) {
      print "Content-Type: text/html\n\n";
      print "<title>Fatal Chatroom Error 3 - Invalid User Input</title>\n";
      print "<p>A required variable was not passed to the script.<br>\n";
      print "This varible is required for the action  you requested.<br>\n";
      print "This error is most likely caused because you are trying to directly<br>\n";
      print "access certain actions.  Please goto <a href=\"$url/\">$url</a> and<br>\n";
      print "run the script from the beginning. Thank You</p>\n";
      print "<hr>\n";
      print "<i>Chatroom version $ver Error Code 3 - Invalid User Input</i>";
      exit;
    }
    else {
      $chatroom = $in{'room'};
      if ($chatroom eq "none") {
        print "Content-Type: text/html\n\n";
        print "<title>The Chatroom</title>\n";
        print "<frameset rows=\"\*,100\" border=0>\n";
        print "  <frame src=\"$url/reload.cgi?room=none\" name=\"ChatWindow\" noresize border=0>\n";
        print "  <frame src=\"$url/chatadd.cgi?room=none\" marginwidth=0 marginheight=0 noresize scrolling=no border=0>\n";
        print "  <noframes>This chat requires frames</noframes>\n";
        print "</frameset>";
        exit;
      }
      else {

        # load the chat room
        open (CONFIG, "$path/chat.config");
        @chatConfig = <CONFIG>;
        close CONFIG;
        foreach $chatConfigLine (@chatConfig) {
          $chatConfigLine =~ s/\n//;
          ($room, $name, $description, $pass) = split(/\|/, $chatConfigLine);
          if ($room eq $chatroom) {
            print "Content-Type: text/html\n\n";
            print "<title>$name</title>\n";
            print "<frameset rows=\"\*,100\" border=0>\n";
            print "  <frame src=\"$url/reload.cgi?room=$room\" name=\"ChatWindow\" noresize border=0>\n";
            print "  <frame src=\"$url/chatadd.cgi?room=$room&admin=$in{'admin'}\" marginwidth=0 marginheight=0 noresize scrolling=no border=0>\n";
            print "  <noframes>This chat requires frames</noframes>\n";
            print "</frameset>";
            exit;
          }
        }

        # if we get here, then it's an invalid room
        print "Content-Type: text/html\n\n";
        print "<title>Fatal Chatroom Error 4 - Invalid Chat Room</title>\n";
        print "<p>The chat room you have chosen does not exist.<br>\n";
        print "This error is most likely caused because you are trying to directly<br>\n";
        print "access certain actions.  Please goto <a href=\"$url/\">$url</a> and<br>\n";
        print "run the script from the beginning. Thank You</p>\n";
        print "<hr>\n";
        print "<i>Chatroom version $ver Error Code 4 - Invalid Chat Room</i>";
        exit;
      }
    }
  }
  else {

    # invalid action
    print "Content-Type: text/html\n\n";
    print "<title>Fatal Chatroom Error 5 - Invalid Action</title>\n";
    print "<p>The action you have selected does not exist.<br>\n";
    print "This error is most likely caused because you are trying to directly<br>\n";
    print "access certain actions.  Please goto <a href=\"$url/\">$url</a> and<br>\n";
    print "run the script from the beginning. Thank You</p>\n";
    print "<hr>\n";
    print "<i>Chatroom version $ver Error Code 5 - Invalid Action</i>";
    exit;
  }
}

</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";

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

popupPage();

//  Ad Banner-->
</script>