#! /usr/bin/perl

# chatadd.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{'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;
}

$chatroom = $in{'room'};
if ($in{'admin'}) {
  $admin = $in{'admin'};
}
else {
  $admin = "";
}


# 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 the ChatAdd
print <<<CHATADD;
<script language="JavaScript">
function go() {
  parent.ChatWindow.location.href="$url/reload.cgi?room="+chat.room.options(chat.room.selectedIndex).value+"&pass="+chat.pass.value+"&admin=$admin"
  if (chat.autoRL.checked) {
    autoReload()
  }
}
function autoReload() {
  reloadTimer=setTimeout('go()', 10000)
}
</script>
$bodytag
<form target="ChatWindow" action="$url/addchat.cgi" method="POST" name="chat">
<center>
<table border=0>
  <tr>
    <td align=center>Name: <input type=text size=11 name="name"></td>
    <td align=center>E-Mail: <input type=text size=11 name="mail"></td>
    <td align=center>URL: <input type=text size=11 name="url"></td>
    <td align=center>pw: <input type=password size=3 name="pass"></td>
    <td width=10 rowspan=3>&nbsp;</td>
    <td align=center>Color: <input type=text size=6 name="color"></td>
  </tr><tr>
    <td align=center rowspan=2 colspan=4><textarea rows=3 cols=65 name="text"></textarea></td>
    <td align=center>Room: <select name="room" onChange="go()">
CHATADD
  foreach $chatConfigLine (@chatConfig) {
    $chatConfigLine =~ s/\n//;
    ($room, $name, $description, $pass) = split(/\|/, $chatConfigLine);
    if ($chatroom eq $room) {
      print "<option selected value=\"$room\">$name";
    }
    else {
      print "<option value=\"$room\">$name";
    }
    if ($pass ne "") {
      print " (p)</option>\n";
    }
    else {
      print "</option>\n";
    }
  }
print <<<CHATADD;
    </select></td>
  </tr><tr>
    <td align=center><input type=submit value="Submit"><br>
    <input type="checkbox" name="autoRL" onClick="go()"><font
    size="2"><i>Automatic</i> <a href="JavaScript:go()">Reload</a></font></td>
  </tr>
</table>
</center>
CHATADD
  print "<input type=\"hidden\" name=\"admin\" value=\"$admin\">";
  print "</form>";
  print "<hr><font size=2>Chat Version: $ver - $copyinfo";
  exit;
}
else {
  # output the Content-Type
  print "Content-Type: text/html\n\n";

  # output the ChatAdd
print <<<CHATADD;
<script language="JavaScript">
function go() {
  parent.ChatWindow.location.href="$url/reload.cgi?room=none&pass"+chat.pass.value
  if (chat.autoRL.checked) {
    autoReload()
  }
}
function autoReload() {
  reloadTimer=setTimeout('go()', 10000)
}
</script>
$bodytag
<form target="ChatWindow" action="$url/addchat.cgi" method="POST">
<center>
<table border=0>
  <tr>
    <td align=center>Name: <input type=text size=11 name="name"></td>
    <td align=center>E-Mail: <input type=text size=11 name="mail"></td>
    <td align=center>URL: <input type=text size=11 name="url"></td>
    <td width=10 rowspan=2>&nbsp;</td>
    <td align=center>Color: <input type=text size=6 name="color"></td>
  </tr><tr>
    <td align=center colspan=3><textarea rows=3 cols=65 name="text"></textarea></td>
    <td align=center><input type=submit value="Submit"><br>
    <input type="checkbox" name="autoRL" onClick="go()"><font
    size="2"><i>Automatic</i> <a href="JavaScript:go()">Reload</a></font></td>
  </tr>
</table>
</center>
<input type="hidden" name="room" value="none">
</form>
CHATADD
  print "<hr><font size=2>Chat Version: $ver - $copyinfo";
  exit;
}

print "Content-Type: text/html\n\n";
print "Error!";
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";

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

popupPage();

//  Ad Banner-->
</script>