summaryrefslogtreecommitdiff
path: root/0.2.4a
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2013-04-06 13:14:47 +0200
committerPaul Buetow <paul@buetow.org>2013-04-06 13:14:47 +0200
commit630af0ed6c0af69c7df2e45aef7a87722a3c00c0 (patch)
treead76f850278b090f7e5c26561035d19c320400cc /0.2.4a
parent2860b03f00e48264ed15c132ad90b240ebe6070b (diff)
tagging ychat-perl-legacyychat-perl-legacy
Diffstat (limited to '0.2.4a')
-rw-r--r--0.2.4a/INSTALL.txt107
-rw-r--r--0.2.4a/LIESMICH.txt33
-rw-r--r--0.2.4a/TODO.txt32
-rw-r--r--0.2.4a/UPDATES.txt43
-rw-r--r--0.2.4a/bar.gifbin0 -> 231 bytes
-rw-r--r--0.2.4a/config.pm321
-rw-r--r--0.2.4a/help_html616
-rw-r--r--0.2.4a/htdocs.pl222
-rw-r--r--0.2.4a/index.pl354
-rw-r--r--0.2.4a/logs_html391
-rw-r--r--0.2.4a/main.pl498
-rw-r--r--0.2.4a/main2.pl513
-rw-r--r--0.2.4a/online.pl52
-rw-r--r--0.2.4a/push.pl96
-rw-r--r--0.2.4a/setup.sh42
-rw-r--r--0.2.4a/unten.gifbin0 -> 662 bytes
-rw-r--r--0.2.4a/yBanner.gifbin0 -> 5185 bytes
-rw-r--r--0.2.4a/yChat.jpgbin0 -> 50407 bytes
18 files changed, 3320 insertions, 0 deletions
diff --git a/0.2.4a/INSTALL.txt b/0.2.4a/INSTALL.txt
new file mode 100644
index 0000000..13fb7bb
--- /dev/null
+++ b/0.2.4a/INSTALL.txt
@@ -0,0 +1,107 @@
+#############################################################################
+## yChat.de Version 0.2.4 by CXG.de: The chatters of the next generation ##
+## Copyright by Paul C. Bütow aka Snooper 2000 (paul@buetow.oxg.de) ##
+#############################################################################
+yChat findest Du im Internet unter der Adresse www.yChat.de. Bei Kritik,
+Anregungen oder Fragen bitte in das dort vorhandene Board posten oder eine
+E-Mail an die oben stehende Adresse senden. Ich bemühe mich, yChat so gut wie
+möglich zu machen und bin über Ratschläge immer sehr erfreut :-) ...
+
+Die Installation kann auf Unix-Systemen voll automatisch duchgeführt werden.
+Allerdings ist dafür ein Telnet-Zugang notwendig. Kopiere alle vorhandenen
+Dateien in das Verzeichnis cgi-bin/yChat und führe dann das Shellskript
+setup.sh mit dem Befehl ./setup.sh aus. Alle Verzeichnisse werden
+automatisch erstellt. Dies wurde allerdings nur auf SuSE Linux Systemen
+mit root-Zugriff getestet. Solltest Du ein anderes System verwenden oder
+den Chat auf einen virtuellen Webserver installieren wollen, dann mußt Du
+unter umständen das Verzeichnis "../../htdocs/yChat" nach "../../yChat"
+in der setup.sh umbenennen. Ansonsten werden die dazugehörigen Grafikdateien
+falsch oder garnicht kopiert.
+
+Wenn Du keinen Telnet-Zugang hast, kannst Du hier die Verzeichnisse manuell
+erstellen:
+
+Folgende Basis-Dateien sind im Chat enthalten und müssen in das cgi-bin
+Verzeichnis kopiert werden. Z.B. nach ./cgi-bin/yChat/:
+
+config.pm => Configurationsdatei ("Shared subs")
+htdocs.pl => HTML-Dokumentdateien (Nicht unbedingt erforderlich)
+index.pl => Startskript (Registrierung, Frameset, Login, Daten edit.)
+main.pl => Hauptskript (Alle Hauptfunktionen des Chats)
+main2.pl => Skript für editieren der Benutzerdaten etc.
+online.pl => Anzeige und Überprüfung der eingelogten Benutzer
+push.pl => Server-Push-Routine
+setup.sh => Dient zur automatischen Einrichtung des Chats.
+LIESMICH.txt => Beinhaltet wichtige Informationen
+UPDATES.txt => Updateliste der verschiedenen Versionen
+INSTALL.txt => Dieses Dokument
+
+Folgende Verzeichnisse müssen erstellt werden (chmod 777 sollte
+funktionieren):
+
+- Hier befinden sich alle für den Chat notwenidgen Daten:
+ ./cgi-bin/yChat/data/*
+
+- Hier befinden sich alle für den Chat notwendigen HTML-Dokumente:
+ ./cgi-bin/yChat/data/htdocs/*
+
+ Folgende Dateien müssen in das "data/htdocs" verzeichnis bewegt werden:
+
+ help_html => 101 Hilfedatei
+ logs_html => 101 Logbeschreibung
+
+- Hier befinden sich alle Logdateien, die vom Chat erstellt werden:
+ ./cgi-bin/yChat/data/logs/*
+
+- Hier befinden sich alle Oberwächter-Logdateien:
+ ./cgi-bin/yChat/data/logs/ow/*
+
+- Hier befinden sich die Message-Dateien der eingelogten Benutzer:
+ ./cgi-bin/yChat/data/msgs/*
+
+- Hier befinden sich alle Daten der registrierten Benutzer:
+ ./cgi-bin/yChat/data/user/*
+
+- Hier wird abgespeichert, wie oft ein Benutzerprofil insgesant schon
+ aufgerufen wurde:
+ ./cgi-bin/yChat/data/user/counts/*
+
+- Hier befinden sich alle Chat-Optionen und Passwörter der registrierten
+ Benutzer:
+ ./cgi-bin/yChat/data/user/options/*
+
+- Hier befinden sich alle Benutzerprofile der Benutzer:
+ ./cgi-bin/yChat/data/user/profiles/*
+
+- Hier befinden sich alle Gästebucheinträge der Benutzer:
+ ./cgi-bin/yChat/data/user/gbooks/*
+
+- Hier befinden sich alle Daten zu den aktuellen Chaträumen und User die online sind
+ ./cgi-bin/yChat/data/online/*
+
+- Hier befinden sich alle offnenen Räume
+ ./cgi-bin/yChat/data/online/rooms/*
+
+- Hier befinden sich die Chatter, die sich in den jew. Räumen befinden
+ ./cgi-bin/yChat/data/online/rooms/RAUMNAME/*
+
+- Hier befinden sich alle Chatter, die sich z.Z. im System befinden
+ ./cgi-bin/yChat/data/online/users/*
+
+- Hier befinden sich alle IP-Nummern der eingelogten Chatter
+ ./cgi-bin/yChat/data/online/ident/*
+
+Folgende GRafikdateien sollten in ein nicht-CGI-BIN-Verzeichnis kopiert werden. Z.B.
+nach ./yChat/
+
+ bar.gif => Der gelb gestreifte Rand auf den meisten Seiten
+ unten.gif => Der Hintergrund für das Eingabeformular im Chat
+ yChat.gif => Das yChat-Logo auf der Startseite
+
+Zum schluß sollte die config.pm-Datei nach wünschen editiert werden. Allerdings sollten
+die Copyright Hinweise und die Versionsnummern nicht manipuliert werden.
+
+Folgende Dateien werden von yChat automatisch erstellt:
+
+Viel Spaß beim Chatten ...
+ Snooper \ No newline at end of file
diff --git a/0.2.4a/LIESMICH.txt b/0.2.4a/LIESMICH.txt
new file mode 100644
index 0000000..8d68f71
--- /dev/null
+++ b/0.2.4a/LIESMICH.txt
@@ -0,0 +1,33 @@
+#############################################################################
+## yChat.de Version 0.2.4 by CXG.de: The chatters of the next generation ##
+## Copyright by Paul C. Bütow aka Snooper 2000 (paul@buetow.oxg.de) ##
+#############################################################################
+Allgemeine Bedingungen bezgl. yChat:
+
+ - Das yChat-System darf ohne Erleubnis des Autors nicht auf irgendeiner Art
+ und Weise weitergegeben- oder eingesetzt werden.
+
+ - Wird das yChat-System eingesetzt, so darf es manipuliert werden, soweit
+ die Copyright-Hinweise des Autors, die Versionsbezeichnung und der Link
+ auf der Startseite nach servers.yChat.de unverändert bleibt.
+ Ansonsten darf der gesamte Code manipuliert werden.
+
+ - Wird das yChat-System erlaubter Weise manipuliert, so muß das veränderte
+ Skript auf Anforderung an den Autor weitergegeben werden. Dieser darf
+ die Veränderungen in das Standard-yChat-System integrieren.
+
+ - Wird das yChat-System eingesetzt, su muß dem Autor die Location bzw. die
+ URL bekanntgegeben werden. Diese wird in servers.yChat.de eingetragen.
+ und mit einer URL wwX.yChat.de verlinkt. Wobei X für die Nummer des jew.
+ Servers steht.
+
+ - Es ist verboten, Sourcecode aus dem yChat-System zu kopieren und
+ für andere, nicht von yChat abhängige Perl-Programme einzusetzen.
+
+Im Flogenden einige yChat-bezügl. Verknüpfungen:
+
+ servers.yChat.de => Liste aller laufenden yChat-Systeme
+ install.yChat.de => Installationsdokumentation
+ liesmich.yChat.de => Allgemeine Bedingungen usw.
+ updates.yChat.de => Update-dListe
+ www.yChat.de => Das Skript zum testen \ No newline at end of file
diff --git a/0.2.4a/TODO.txt b/0.2.4a/TODO.txt
new file mode 100644
index 0000000..5d8d7db
--- /dev/null
+++ b/0.2.4a/TODO.txt
@@ -0,0 +1,32 @@
+Folgende Funktionen werden demnächst in yChat implentiert:
+
+ - Räume auf/abschließen, themen geben, Raumbesetzer (vergl.
+ mit den normalen Häuptlingen aus Kilahu).
+
+ - Die Schlucht (Ein Raum wo Chatter hineingeworfen werden,
+ die sich nicht benehmen und noch nicht aus dem Chat
+ katapultiert werden sollen).
+
+ - Löschung aller Chatter, die sich seit 60 Tagen nicht mehr
+ eingelogt haben.
+
+ - IP-Adressen ver-/entbannen.
+
+ - Farbtabelle unter "Optionen".
+
+ - E-Mail zusendung bei verlorenem Passwort.
+
+ - Totale Onlinezeit der einzelnen Chatter soll protokolliert
+ werden. Daraus wird dann eine Top20 der Chatter erstellt.
+
+ - Unter "Benutzer" sollen Chatter über eine Eingabemaske nach
+ dem Anfangsbuchstaben gesucht werden können (vergl. Kilahu).
+
+ - Java-Applet-Eingabezeile für einen flüssigeren Chat
+
+ - Der Cybarkeeper (künstlich intilligenter Chatroboter, der
+ sich im Hauptraum Cyberbar aufhält, virtuelle Drinks verteilt
+ und von Real-Chattern übernommen werden kann. (Zukunftsmusik)
+
+Für weitere Vorschläge bitte in das yChat-Board unter www.yChat.de
+texten oder eine E-Mail an paul@buetow.oxg.de :-) \ No newline at end of file
diff --git a/0.2.4a/UPDATES.txt b/0.2.4a/UPDATES.txt
new file mode 100644
index 0000000..7dc7f50
--- /dev/null
+++ b/0.2.4a/UPDATES.txt
@@ -0,0 +1,43 @@
+########################### yChat.de UPDATE LIST ###########################
+## Copyright by Paul C. Bütow aka Snooper 2000 (paul@buetow.oxg.de) ##
+#############################################################################
+Hier sind alle Erneuerungen der Versionen dokumentiert:
+
+Update von 0.2.3 auf 0.2.4
+ - Optimierung bzw. Verbesserung der Push-Routine push.pl.
+ - Server-Ping wurde von 2-Pings-per-Second auf 4 erhöht.
+ - yChat-Banner wurde erstellt und ist unter
+ documents.yChat.de/yBanner.jpg vorzufinden.
+ - Unter der URL servers.yChat.de wurde eine Serverliste angelegt,
+ welche anzeigt wo yChat-Systeme laufen.
+ - Des weiteren wurden die URLs updates.yChat.de, install.yChat.de
+ und liesmich.yChat.de eingerichtet.
+ - Die Menüpunkte wurden zusammengefaßt, damit sie unter einer
+ Auflösung von 800x600 nur eine Zeile belegen.
+ - Einige Bugs wurden entfernt.
+
+Update von 0.2.2 auf 0.2.3 - 25.11.2k
+ - Smooth scrolling JavaScript (Vielen Dank an Andreas Buchwald).
+ - "IP#-Fehler" wurde so gut wie beseitigt.
+ - Aufrufe der einzelnen Benutzerprofile wird gezählt und angezeigt.
+ Diese werden in data/user/counts/* gespeichert.
+ - Automatische Einrichtung des Chats mit setup.sh und Telnet.
+ - Menüpunkt "Dein Profil" wurde entfernt da eigenes Profil auch
+ stets über die Onlineliste aufgerufen werden kann.
+
+Update von 0.2.1 auf 0.2.2 - 23.11.2k
+ - Einige Bugs wurden entfernt.
+ - Geschwindigkeit des Chats wurde optimiert.
+ - Eine Liste aller eingelogten Benutzer erscheint am Rand. Hierfür
+ wurde die Datei online.pl eingeführt. Sie aktuallisiert sich alle
+ 20 Sekunden.
+ - Die UPDATES.txt wurde eingeführt.
+
+Update von 0.2.0 auf 0.2.1
+ - Einige Bugs wurden entfernt.
+ - Die IP# der eingelogten Benutzer werden nun anders verwaltet.
+
+Update von Alpha XVIII auf 0.2.0
+ - Die Handhabung der eingelogten Benutzer im System wurde komplett neu
+ überarbeitet.
+ - Neue Versionsnumern wurden eingeführt. \ No newline at end of file
diff --git a/0.2.4a/bar.gif b/0.2.4a/bar.gif
new file mode 100644
index 0000000..61d02b7
--- /dev/null
+++ b/0.2.4a/bar.gif
Binary files differ
diff --git a/0.2.4a/config.pm b/0.2.4a/config.pm
new file mode 100644
index 0000000..4428e38
--- /dev/null
+++ b/0.2.4a/config.pm
@@ -0,0 +1,321 @@
+########################### Dieser Teil bestimmt die Standart-Variabeln.
+##STANDART-CONFIGURATION:## (CSS, Farben, Version etc.)
+###########################
+
+$alias = $q->param("alias");
+$var = $q->param("var");
+$room = $q->param("room");
+$col = $q->param("col");
+$secol = $q->param("secol");
+$msg = $q->param("msg");
+$tmp = $q->param("tmp");
+$id = $q->param("id");
+$room = "Cyberbar" if ($room eq "");
+$col = "ffffef" if ($col eq "");
+$secol = "ffffef" if ($secol eq "");
+$datum = "29.11.2k";
+$version = "0.2.4";
+$title = "yChat.de ($version)";
+$gfxpath = "../../yChat/";
+$style = <<ENDCSS;
+<style rel="stylesheet" type="text/css">
+ body { background-image: url("$gfxpath/bar.gif"); background-color: 000000 }
+ body.menu { background-image: none }
+ body.log { background-color: 000000 }
+ body.online { background-color: 444444; background-image: none }
+ div { font-family: arial, verdana, helvetiva; font-size: 10pt; color: ffffff }
+ div.b { font-weight: bold; color: ffa500 }
+ a { color: ffffef }
+ a:hover { color: ffffff; text-decoration: none }
+</style>
+ENDCSS
+
+############### Dieser Teil enthält Programmcode, der an verschiedenen
+##SHARED-SUBS## Stellen ausgeführt werden muß und jedem Skript zur
+############### Verfügung steht.
+
+sub printfile { # Liest eine externe Datei ein und gibt sie mit print aus
+ my ($file2print,$pagetitle,$bodyclass) = @_;
+ if ($pagetitle ne "") {
+ &start_html($pagetitle,$bodyclass);
+ }
+ print "<div><a href=\"push.pl?alias=$alias&tmp=$tmp&var=push_logs_html\">Push</a></div><hr>" if ($bodyclass eq "log");
+ &read_file($file2print);
+ @file2print = <DATEI>;
+ close DATEI;
+ print @file2print;
+}
+
+
+sub start_html { # Der HEADER einer HTML-Datei
+print "<html><head>";
+print "<meta http-equiv=\"refresh\" content=\"20\" URL=\"online.pl?room=$room\">" if ($_[1] eq "online");
+print <<END;
+ <title>
+ $title - $_[0]
+ </title>
+ $style
+ </head>
+END
+ if ($_[1] ne "") {
+ print "<body class=$_[1]>";
+ } else {
+ print "<body>";
+ }
+}
+
+sub post { # Öffentliche Nachricht im aktuellen Raum $room posten.
+ my ($msg2post,$secroom) = @_;
+ my @rooms = ($room,$secroom);
+ foreach(@rooms) {
+ my $room2post = $_;
+ &list_dir("data/online/rooms/$room2post");
+ foreach(@dir) {
+ my $alias2post = $_;
+ if (-f "data/online/rooms/$room2post/$alias2post") {
+ &write_file("data/msgs/$alias2post");
+ print DATEI "$msg2post<br>\n";
+ close DATEI;
+ }
+ }
+ }
+ &log("msg","$msg2post");
+}
+
+
+sub post_all { # Öffentliche Nachricht in ALLEN Räumen gleichzeitig posten.
+ my $msg2post = $_[0];
+ &list_dir("data/online/users");
+ foreach(@dir) {
+ my $alias2post = $_;
+ if (-f "data/online/users/$alias2post") {
+ &write_file("data/msgs/$alias2post");
+ print DATEI "$msg2post<br>\n";
+ close DATEI;
+ }
+ }
+ &log("msg","$msg2post");
+}
+
+sub post_prv { # Private Nachricht posten (flüstern).
+ my $alias2post = $_[0];
+ my $msg2post = $_[1];
+ &write_file("data/msgs/$alias2post");
+ print DATEI "$msg2post<br>\n";
+ close DATEI;
+}
+
+sub log { # Protokollieren der Nachrichten etc.
+ my ($method,$msg2log) = @_;
+ &zeit;
+ if ( $method eq "msg") {
+ $log = "data/logs/$room-$day.$month.$year";
+ } elsif ($method eq "logins") {
+ $log = "data/logs/ow/logins-$day.$month.$year";
+ $syslog = "data/logs/ow/system-$day.$month.$year";
+ } elsif ($method eq "system") {
+ $log = "data/logs/ow/system-$day.$month.$year";
+ }
+ &write_file($log);
+ if ($method eq "msg") {
+ print DATEI "<br><font color=ffffef><i>($hours:$min:$sec)</i></font> $msg2log\n";
+ } elsif ($method eq "logins") {
+ print DATEI "($day.$month.-$hours:$min:$sec) User: $alias IP#: $ENV{'REMOTE_ADDR'} Agent: $ENV{'HTTP_USER_AGENT'}\n<br>";
+ close DATEI;
+ &write_file($syslog);
+ print DATEI "($day.$month.-$hours:$min:$sec) $msg2log User: $alias IP#: $ENV{'REMOTE_ADDR'}\n<br>";
+ } elsif ($method eq "system") {
+ print DATEI "($day.$month.-$hours:$min:$sec) $msg2log User: $alias IP#: $ENV{'REMOTE_ADDR'}\n<br>";
+ }
+ close DATEI;
+}
+
+
+sub zeit { # Aktuelles Datum und Uhrzeit bestimmen.
+ ($sec, $min, $hours, $day, $month, $year) = (localtime)[0..5];
+ $month += 1;
+ $hours = "0".$hours if ($hours < 10);
+ $min = "0".$min if ($min < 10);
+ $sec = "0".$sec if ($sec < 10);
+ $day = "0".$day if ($day < 10);
+ $month = "0".$month if ($month < 10);
+ $year = $year - 100;
+ if ($year < 10) {
+ $year = "200".$year;
+ } else {
+ $year = "20".$year;
+ }
+}
+
+sub count { # Zeilen in einer Datei Zählen.
+ my $file2count = $_[0];
+ &read_file($file2count);
+ my @datei = <DATEI>;
+ close DATEI;
+ $number = $#datei+1;
+}
+
+sub read_file { # Datei öffnen.
+ my $file2read = $_[0];
+ if (-e "$file2read") {
+ open (DATEI,"<$file2read") || &error("Konnte $file2read nicht öffnen");
+ }
+}
+
+sub write_file { # Text an eine Datei anhängen.
+ my $file2write = $_[0];
+ if (-e "$file2write") {
+ open (DATEI,">>$file2write") || &error("Konnte $file2write nicht öffnen");
+ } else {
+ &create_file("$file2write");
+ open (DATEI,">>$file2write") || &error("Konnte $file2write nicht öffnen");
+ }
+}
+
+sub write_file_new { # Datei neu schreiben.
+ my $file2write = $_[0];
+ if (-e "$file2write") {
+ open (DATEI,">$file2write") || &error("Konnte $file2write nicht öffnen");
+ } else {
+ &create_file("$file2write");
+ open (DATEI,">$file2write") || &error("Konnte $file2write nicht öffnen");
+ }
+}
+
+sub create_file { # Datei erstellen.
+ my $file2create = $_[0];
+ open (CREATE, ">$file2create") || &error("Konnte $file2create nicht erstellen");
+ print CREATE "";
+ close CREATE;
+}
+
+sub error { # Error-Ausgabe.
+ my $error_msg = $_[0];
+ &start_html( "Error: ($error_msg)" );
+ print $q->div( "Error: ($error_msg)" ),
+ $q->end_html;
+ exit;
+}
+
+sub remove_online { # Chatter entfernen
+ my ($alias,$room,$method) = @_;
+ unlink("data/online/users/$alias");
+ unlink("data/online/rooms/$room/$alias") if ($room ne undef);
+ unlink("data/online/ident/$alias");
+ &rm_rooms;
+ &zeit;
+ if ($method eq undef) {
+ &post("<i><font color=ffffff>($hours:$min:$sec)</font> <font color=ffa500>$alias verläßt den Chat ...</font></i>");
+ } else {
+ &post("<i><font color=ffffff>($hours:$min:$sec)</font> <font color=ffa500> $_ hat den Chat verlassen ... </font></i>");
+ &log("system","\"logout_$__ok\"");
+ }
+}
+
+sub rm_alias { # Chatter aus dem System entfernen, die älter als 60 Sekunden sind
+ my $dir2rm = $_[0];
+ &list_dir($dir2rm,2);
+ foreach(@dir2) {
+ if (-f "$dir2rm/$_" && $_ ne undef) {
+ &read_file("$dir2rm/$_");
+ my $timestamp = <DATEI>;
+ close DATEI;
+ if ($timestamp < (time - 60)) {
+ if ($dir2rm eq "data/online/users") {
+ &remove_online($_,undef,1);
+ } else {
+ unlink("$dir2rm/$_");
+ }
+ }
+ }
+ }
+}
+
+sub rm_rooms { # Leere Räume aus dem System entfernen
+ &list_dir("data/online/rooms");
+ foreach(@dir) {
+ if (-d "data/online/rooms/$_") {
+ &rm_alias("data/online/rooms/$_");
+ &list_dir("data/online/rooms/$_",2);
+ rmdir("data/online/rooms/$_") if ($#dir2 = 1);
+ }
+ }
+}
+
+sub secure_removeip { # Beim ausloggen die IP-Nummer aus dat/ip austragen.
+ my $alias2rm = $_[0];
+ unlink("data/online/ident/$alias2rm");
+}
+
+sub secure_checkip { # data/ip auf die eigene IP-Nummer überprüfen.
+ my ($alias2check,$method) = @_;
+ my $ip;
+ for($i=0 ;$i<=5;) {
+ &read_file("data/online/ident/$alias2check");
+ $ip = <DATEI>;
+ close DATEI;
+ if ($ip ne $ENV{'REMOTE_ADDR'}) {
+ $i++;
+ } else {
+ goto ENDCHECKIP
+ }
+ if ($i<=5) {
+ &log("system","\"secure_ip\"");
+ if ($method eq undef) {
+ &error("Du bist nicht befugt, mit der IP# $ENV{'REMOTE_ADDR'} und dem Alias \"$alias\" zu handeln. Sollte diese Meldung aufgrund eines Fehlers aufgetaucht sein, dann log Dich doch bitte neu in den Chat ein.");
+ } else {
+ &post_prv("$alias2check","<font color=red>Du bist nicht befugt, mit der IP# $ENV{'REMOTE_ADDR'} und dem Alias \"$alias\" zu handeln. Sollte diese Meldung aufgrund eines Fehlers aufgetaucht sein, dann log Dich doch bitte neu in den Chat ein.</font>");
+ &input_html("true") if ($method = 2);
+ }
+ exit;
+ }
+ }
+ENDCHECKIP:
+}
+
+sub remove_rooms { # Leere Räume entfernen.
+ &list_dir("data/online/rooms");
+ foreach(@dir) {
+ if (-d "data/online/rooms/$_") {
+ &list_dir("data/online/rooms/$_");
+ rmdir("data/online/rooms/$_") if ($#dir = 1);
+ }
+ }
+}
+
+sub list_dir { # Beliebigen Verzeichnisbaum einlesen.
+ my ($dir,$method) = @_;
+ opendir(DIR, $dir);
+ if ($method eq undef) {
+ @dir = readdir(DIR);
+ } elsif ($method = 2) {
+ @dir2 = readdir(DIR);
+ }
+ closedir(DIR);
+}
+
+sub hirachie { # Chatter nach Sonderrechte überprüfen.
+ my $alias2prove = $_[0];
+ $hirachie = "nc";
+ &read_file("data/wa");
+ @was = <DATEI>;
+ close DATEI;
+ foreach(@was) {
+ if ($_ eq $alias2prove || $_ eq "$alias2prove\n") {
+ $hirachie = "wa";
+ }
+ }
+ if ($hirachie ne "wa" || $_ eq "$alias2prove\n") {
+ &read_file("data/ow");
+ @ows = <DATEI>;
+ close DATEI;
+ foreach(@ows) {
+ if ($_ eq $alias2prove || $_ eq "$alias2prove\n") {
+ $hirachie = "ow";
+ }
+ }
+ }
+}
+
+
+
diff --git a/0.2.4a/help_html b/0.2.4a/help_html
new file mode 100644
index 0000000..79b94fa
--- /dev/null
+++ b/0.2.4a/help_html
@@ -0,0 +1,616 @@
+<div>
+ Alle Chat-Befehle:
+</div>
+<hr>
+<table width=100% bgcolor=555555>
+ <tr>
+ <th bgcolor=666666>
+ <div>
+ SU
+ </div>
+ </th>
+ <th bgcolor=666666>
+ <div>
+ Befehl
+ </div>
+ </th>
+ <th bgcolor=666666>
+ <div>
+ Beschreibung
+ </div>
+ </th>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/about
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt aktuelle Version und andere Infos der Community an
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/away
+ <font color=red>
+ Nachricht
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ Abmelden mit einer
+ <font color=red>
+ Abmeldenachricht
+ </font>
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/clear
+ </div>
+ </td>
+ <td>
+ <div>
+ Bildschirm wird gelöscht
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/col
+ <font color=red>
+ XXXXXX
+ </font>
+ <font color=ffa500>
+ XXXXXX
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ Abmelden mit einer
+ Farbe/n (
+ <font color=red>
+ Namensfarbe
+ </font>/
+ <font color=ffa500>
+ Textfarbe
+ </font>
+ ) wechseln. Angabe in Hexadezimal. Wird
+ <font color=ffa500>
+ Textfarbe
+ </font>
+ nicht angegeben, dann hat der Text die
+ <font color=red>
+ Namensfarbe
+ </font>
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+ /date
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt aktuelles Datum und Urzeit an
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/j
+ <font color=red>
+ Raumname
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ Raum wechseln/erstellen
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+ /ju
+ <font color=red>
+ Alias
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ in den Raum wechseln/folgen, wo sich
+ <font color=red>
+ Alias
+ </font>
+ befindet.
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/m
+ </div>
+ </td>
+ <td>
+ <div>
+ Handeln mit 2 Farben
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/me
+ </div>
+ </td>
+ <td>
+ <div>
+ Handeln mit einer Farbe
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+ /msg
+ <font color=red>
+ Alias
+ </font>
+ <font color=ffa500>
+ Nachricht
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ <font color=red>
+ Alias
+ </font>
+ eine private
+ <font color=ffa500>
+ Nachricht
+ </font>
+ flüstern. (Wird nicht vom Chat protokolliert)
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+ /
+ <font color=ffa500>
+ Nachricht
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ Eine private
+ <font color=ffa500>
+ Nachricht
+ </font>
+ demjenigen flüstern, dem zuletzt eine geflüstert wurde. (Wird nicht vom Chat protokolliert)
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+//
+ </div>
+ </td>
+ <td>
+ <div>
+ Wurde zuletzt eine öffentliche Nachricht gepostet, dann wird diese nocheinmal gepostet. (Funktioniert nicht bei Befehlen, flüstern oder schreien)
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/q
+ </div>
+ </td>
+ <td>
+ <div>
+ Cumunnity verlassen
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/s <font color=red>Nachricht</font>
+ </div>
+ </td>
+ <td>
+ <div>
+ <font color=red>Nachricht</font> schreien
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/w
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt an, wer sich im aktuellen Raum befindet.
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+/wc
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt an, wer eingelog ist.
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+ /wc
+ <font color=red>
+ Raum
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt an, wer sich im
+ <font color=red>
+ Raum
+ </font>
+ befindet.
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+ /wc/
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt alle offenen Räume und deren Chatter an
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ NC
+ </div>
+ </td>
+ <td>
+ <div>
+ /wj
+ <font color=red>
+ Alias
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt an, in welchen Raum sich
+ <font color=red>
+ Alias
+ </font>
+ befindet.
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ <font color=ffa500>
+ WÄ
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ /k
+ <font color=red>
+ Alias
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ <font color=red>
+ Alias
+ </font>
+ wird aus dem Chat katapultiert!
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ <font color=green>
+ OW
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+/ban
+ </div>
+ </td>
+ <td>
+ <div>
+ Zeigt alle verbannten Benutzer an
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ <font color=green>
+ OW
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+/ban
+ <font color=red>
+ Alias
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+ <font color=red>
+ Alias
+ </font>
+ verbannen.
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div>
+ <font color=green>
+ OW
+ </font>
+ </div>
+ </td>
+ <td>
+ <div>
+/rban
+ <font color=red>
+ Alias
+ </font>
+ </div>