#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI qw/:standard/;
use DBI;
# Copyright: Dieser Skript wurde geschrieben von der infos24 GmbH, internet service. Er kann für jeden Zweck genutzt werden,
# vorausgesetzt, der Zweck ist vereinbar mit den Gesetzen der BRD. Er kann nicht eingesetzt werden in einem Kontext,
# der rassistischem, fremdenfeindlichem oder nationalistischem Gedankengut Vorschub leistet. Es ist legitim, den
# Skript an individuelle Verhältnisse anzupassen, alle | todosrdings darf dieser Copyright Vermerk nicht entfernt werden.
# Eine Weitergabe des Skriptes gegen Entgelt ist nicht gestattet.
# Die Tabellen richtet der Chat selber ein. Die Datenbank selbst ist einzurichten. Hier z.B. chat3. Im Internet gibt das meist der Provider vor
# Zugangswerte für die Datenbank: virtueller Pfad, User, Passwort
# Beispiel: Lokaler Rechner
#üblicher ist für einen lokalen Rechner sowas
#$verbinden1="DBI:mysql:chat3:localhost";
#$verbinden2="root";
#$verbinden3="";
$verbinden1="DBI:mysql:chat4:localhost";
$verbinden2="root";
$verbinden3="bv4ary6y";
############################# NICHTS MEHR ÄNDERN ###############################
$beitrag=param('beitrag');
$privat=param('privat');
$nick=param('nick');
$anwen=param('anwen');
$modul=param('modul');
$stand=param('stand');
$ipadresse2=param('ipadresse2');
$ipadresse=$ENV{REMOTE_ADDR};
$css_color = $ENV{HTTP_HOST};
if($css_color eq "www.englisch-lehrbuch.de" || $css_color eq "englisch-lehrbuch.de") {
$css_bg = "#DEE1E8";
} else {
$css_bg = "#E9EDF9";
}
$dbh=DBI->connect($verbinden1,$verbinden2,$verbinden3);
$dbh->{RaiseError}=1;
$dbh->{PrintError}=0;
$privat=~s/<.*?>//g;
$nick=~s/<.*?>//g;
$anwen=~s/<.*?>//g;
$stand=~s/<.*?>//g;
$nick=substr($nick,0,13);
################################### LOGIN-SITE ####################################
if( !$modul)
{
print "Chat-Login
";
################################ ENDE LOGIN-SITE ######################################
eval
{
$sql = qq{select * from user};
my $sth = $dbh->prepare( $sql );
$sth->execute();
};
if ($@)
{
$sql = "CREATE TABLE user (Nick char(40) NOT NULL,id int(10) NOT NULL,Privat enum('nein','ja') NOT NULL,datum timestamp,index(Nick),index(id),ipdresse char(20),telefon enum('ja','nein'))";
my $sth = $dbh->prepare( $sql );
$sth->execute;
$sth->finish;
$sql = "CREATE TABLE beitrag (id int(10) AUTO_INCREMENT NOT NULL PRIMARY KEY,
Nick char(40) NOT NULL,anwen char(50),datum timestamp,Beitrage blob,index(Nick))";
my $sth = $dbh->prepare( $sql );
$sth->execute;
$sth->finish;
}
}
################################ LOGIN-SITE MIT FEHLERMELDUNG ######################################
if($modul eq "eins"){
$sql = qq{select Nick from beitrag where Nick="$nick" and now()<=date_add(datum,interval 20 minute)};
$sth = $dbh->prepare($sql);
$Anzahl=$sth->execute();
$sth->finish;
$sql = qq{select ipdresse from user where Nick="$nick"};
$sth = $dbh->prepare( $sql );
$sth->execute;
$ergebniss=$sth->fetchrow_array();
$sth->finish;
if($Anzahl>=1 and $ipadresse ne $ergebniss){
print "ERROR
Wenn Du die Einträge, die nicht direkt an Dich gerichtet sind, ausblenden willst, wähle die Option \'private Nachrichten zeigen\'.
If you want to see only messages sent to you, choose Option \'privat messages only\'.
";
}
####################### MODUL-fuenf ###########################
if($modul eq fuenf){
$wieviele=0;
$wohin=0;
$sql = qq{select Privat,id from user where Nick="$nick"};
$sth = $dbh->prepare( $sql );
$sth->execute;
@ergebnis=$sth->fetchrow_array();
$sth->finish;
$wohin=int($ergebnis[1]);
$test=$ergebnis[0];
if($ergebnis[0] eq "nein"){
$sql=qq{select Nick,anwen,beitrage, date_format(datum,'%H:%i:%s'),id from beitrag where id > $wohin and (anwen="alle | todos" or anwen="$nick" or nick="$nick")};
}else{
$sql=qq{select Nick,anwen,Beitrage, date_format(datum,'%H:%i:%s'),id from beitrag where id >$wohin and (anwen="$nick" or nick="$nick")};
}
$sth = $dbh->prepare( $sql );
$wieviele=$sth->execute;
print "Chat
body {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;background-color: $css_bg;}
";
$sth->finish;
$sql = qq{update user set id=$ende where nick="$nick" };
$dbh->do( $sql );
$sth->finish;
}
################################# MODUL_HILFE ############################
if($modul eq "hilfe"){
print "
Hilfe | ayuda
Funktionen dieses Chats | Functions of this chat
deutscher Text
la versión española
Link / Bild / Zitat / email einfügen:
HTML wurde in diesem Chat deaktiviert, weil es zum Mißbrauch geradezu einlädt. Es ist also nicht möglich via HTML tags das Design zu beeinflussen oder Elemente einzufügen. Auf der anderen Seite ist es natürlich so, dass die Möglichkeit, Hyperlinks, Bilder, email Adressen oder Zitate einzufügen, höchst sinnvoll ist. Deshalb wurden eigene Schnittstellen geschaffen, die es ermöglichen Hyperlinks, Bilder, email Adresse oder Zitate auf eine einfache Art und Weise in den Chat zu integrieren. Das Verfahren ist hierbei immer das gleiche.
Add link / image / quote / email
HTML was deactivated in this chat because of the risk of misuse. Therefore it is not possible to influence the design by
HTML tags or to add elements. On the other hand it seems quite useful to add hyperlinks, images, email addresses or quotes. Therefore we have created this possibilities in another way. The procedure is always the same.
Link hinzufügen
Um einen Link hinzuzufügen wählen Sie den Schaltknopf Link (Doppelklick). Es poppt sich ein kleines Fenster auf. In dieses Textfeld fügen Sie bitten den Link ein. Klicken Sie auf ok. Der Link wird in das Textfeld des Chats eingebaut ([link]www.ein-beispiel.de[/link]). Sie können dann entweder weiterschreiben und dann auf ok klicken oder sofort auf ok clicken. Selbstverständlich kann auch vor dem Link Text stehen. Nachdem Sie im eigentlichen Chat ok geklickt haben , sehen Sie Ihren Link.
Add a link
To add a link choose the button Link and a little pop-up window will be opened. Into this field you put the link's address. Click ok. The link will be added to the text field of the chat. ([link]www.example.de[/link]). You can continue writing and click then ok or click immediately ok. Of course, also before the link text can be written. After you have clicked in the actual chat ok you will see the link.
Bild einfügen
Ein Bild wird auf die gleiche Art und Weise wie ein Link in die Seite integriert. Klicken Sie auf die Schaltfläche imágen | Bild. Es poppt sich ein Fenster auf. Geben Sie in dieses Fenster die Url zu dem Bild im Internet an. Die Url eines Bildes können Sie folgendermaßen herausfinden. Gehen Sie zu der Website, wo sich das Bild befindet, welches Sie einfügen möchten. Fahren Sie mit dem Mouse Cursor auf das Bild. Drücken Sie die rechte Maustaste. Es erscheint ein pop up Menue. Klicken Sie Eigenschaften. Unter Adresse steht der Link zu dem Bild. Markieren Sie das Bild. (Mit gedrückter linker Maustaste über die Adresse fahren, um sie zu markieren. Dann rechte Maustaste, im Pop up Menue kopieren anwählen, Maustaste loslassen. Der Link zu dem Bild befindet sich jetzt im Zwischenspeicher. Gehen Sie zum Chat, clicken Sie auf imagen | Bild. Setzen Sie den Mouse Cursor in das Textfeld des aufpoppenden Fensters. Klicken Sie dann die rechte Maustaste. Wählen sie im Pop up Menü einfügen. Die Url zu dem Bild wird eingefügt. Klicken Sie auf ok. Sie sehen jetzt im Textfeld [bild]http://www.ein_beispiel.de/bild.jpg[/bild]. Sie können jetzt entweder weiterschreiben und dann ok klicken, oder sofort. Selbstberständlich dann auch vor dem Bild Text, andere Bilder, Hyperlinks etc. stehen. Nachdem Sie im Textfeld des Chats ok geklickt haben, erscheint das Bild im Chat.
Add an image
An image is inserted in the same way like the link. Click the button imágen | image. A pop-up window will appear. Insert the URL of the image you want to insert. To know the URL of an image do as follows Go to the web page where the image is to be found. Put the mouse over the image and click the right button. A mask will appear Click the left button on characteristics. At the bottom the URL of the image is to be found. You can mark the URL, copy it and paste it into the pop-up window add . Click ok In the text area you'll see: [bild]http://www.example.de/bild.jpg[/bild]. Now you can go on writing or insert the image by clicking ok. Of course other texts can be put before or after the image. After clicking ok the image appears in the chat.
Zitat hinzufügen
Klicken Sie die Schaltfläche cita | Zitat. Es poppt sich ein Fenster auf. Fügen Sie in das Textfeld das Zitat oder irgendeinen anderen Text ein, den Sie besonders hervorheben wollen. Klicken Sie auf ok. Ihr Zitat wird in das Textfeld des Chats eingebaut. ([zitat] Ihr Zitat[/zitat]).
Add a quote
Click the button quote | Zitat. A pop-up window will appear. Add the quote or whatever you like to put into the text field. Click ok. Your quote will be added to the message field of the chat. ([zitat] Your quote [/zitat]).
email hinzufügen
Eine email wird wie ein Link eingegeben, nur dass man eben anstatt eines Hyperlinks eine email Adresse eingibt. Im Textfeld des Chats hat es dann folgendes Aussehen. [email]ein_beispiel\@nirvana.de[/email]
añadir email
An email address is added just like a link, only that instead of a hyperlink an email adress is added. In the message field of the chat it looks like this: [email]an_example\@nirvana.de[/email]
añadir email
Smiley hinzufügen
Sie haben in einem Chat keine Möglichkeiten, durch eine non verbale Kommunikation (Gestik, Mimik) die Bedeutung des Geschriebenen weiter zu erläutern. Schreiben sie in einem Chat-Text Du Angeber dann sieht der andere eben Du Angeber. Er sieht nicht, dass sie es vielleicht nett oder ironisch meinen. Smileys ersetzen hierbei diese non verbale Kommunikation. Für jeden ist offensichich, dass die Bedeutung dieser zwei Aussagen höchst unterschiedlich ist.
Du Angeber
Du Angeber
Sie fügen ein Smily ein, indem Sie auf eines klicken. In der Box des Chats erscheint dann irgendetwas der Art S3S.
añadir smily
In a chat you don't have the possibilities of the non-verbal communication (gestic, mimic), which in certain cases helps to clarify what you want to say. If you write in a chat you idiot , the person who reads it only sees you idiot can't know if you mean it ironically or nicely or not. The smileys have this function as the non-verbal communication. It is evident that the same phrase means something different, depending on the smiley you use.
You idiot
You idiot
To insert a smiley it's enough to click on one. In the text area appears someting like:
S3S.
autoscroll
Wenn Sie den Chat betreten, ist die Funktion autoscroll (Sie finden diese unterhalb der smilies) aktiviert, das heißt, dass die entsprechende Checkbox ein Häkchen hat. autoscroll bedeutet, dass automatisch an das Seitenende gescrollt wird, wenn nicht mehr alle Beiträge im sichtbaren Fenster gezeigt werden können, weil es zu viele sind. Hierbei entsteht nun folgendes Problem. Es kann sein, dass Sie einen Beitrag lesen wollen, der schon weit zurückliegt, das heißt im sichtbaren Fenster nicht mehr angezeigt wird. Da die Funktion autoscroll aber aktiviert ist, können Sie diesen Beitrag nicht lesen, weil Sie nicht zurückscrollen können. In diesem Fall müssen Sie die Funktion autoscroll deaktivieren. Wenn Sie den zurückliegenden Beitrag gelesen haben, können Sie die Funktion wieder aktivieren.
autoscroll
When entering the chat the function autoscroll (to be found below the smilies) activated (the check box has a cross). autoscroll means that automaticaly the page is scrolled to the bottom if there are more threads than can be shown in one window. If you want to read an older thread deactivated the function autoscroll. After reading the old thread you can again re-activate the function.
private Nachrichten senden
Die Teilnehmer des Chats sind in der Auswahlbox aufgeführt. Betritt ein neuer Chater den Raum, müssen Sie mit einem Klick auf ok diese Box aktualisieren. Wenn Sie einen Chater anwählen, (nicht alle | todos) dann verschicken Sie diese Nachricht nur an diesen Teilnehmer, die anderen Teilnehmer sehen dann die Nachricht nicht.
private message
All participants of the chat are to be found in the select box. If someone enters you have to click on refresh for updating the box. If you choose a nick your message is not seen by any other participant of the chat. To send to all participants click all | todos
öffentliche Nachrichten ausblenden
Wollen Sie sich privat mit einer Person unterhalten, dann sind die öffentlichen Beiträge der anderen Teilnehmer störend. Sie können Beiträge, die nicht an Sie direkt gerichtet sind ausblenden indem Sie die Option Nur private Nachrichten zeigen aktivieren. Wollen Sie zu einem späteren Zeitpunkt wieder alle Nachrichten sehen, aktivieren Sie die Fläche Alle Nachrichten zeigen.
supress public messages
If you want to only talk to one person you can supress the messages of all others. Choose the option show private messages only. If later on you want to see all messages again, choose show all messages .
";
}
###################### MODUL_HILFESEITEN #######################
if ($modul eq "hilfevoice")
{
print "
Hilfe | ayuda
Funktionsweise dieses Voice Chats | Funcionamiento de este voice chat
deutscher Text
la versión española
Voraussetzungen
Um den Voice Chat nutzen zu können, muss Ihr Rechner mit einer Soundkarte, einem Mikrofon und Lautsprecher ausgestattet sein. Anstatt des Mikrofons und den Lautsprechern kann natürlich auch ein Headset verwendet werden. Der Voice Chat basiert auf Netmeeting und infolgedessen wird er nur funktionieren, wenn Netmeeting auf Ihrem Rechner installiert ist. Verwenden Sie windows 98 / XP / ME / 2000 wird normalerweise bei der Installation des Betriebssystem Netmeeting installiert. Sollte dies nicht der Fall sein, können Sie es entweder aus dem Netz kostenlos herunterladen oder von Ihrer CD installieren. Der Aufruf von Netmeeting erfolgt über ein ActivX Control, Sie müssen also die Standard Konfiguration von Windows eingestellt haben. Sollten Sie oder jemand anderes aus Gründen der Sicherheit alle ActivX Controls deaktiviert haben, können Sie sie folgendermaßen wieder aktivieren.
Wählen Sie im Internet Explorer EXTRAS Wählen Sie Internetoptionen Wählen Sie Sicherheit Wählen Sie Stufe anpassen
Hier sollten nun folgen ActiveX Controls und Plugins aktiviert werden
ActivX Steuerelemente ausführen, die für Scripting sicher sind : ja
ActivX Steuerelemente initialisieren und ausführen, die nicht sicher sind: nein
ActivX Steuerelemente und Plugins ausführen: ja
Download von signierten ActivX Steuerelementen: ja
Download von unsignierten ActivX Steuerelementen: nein
Diese Einstellungen entsprechen den Standard Einstellungen. Sie können Sie diese Standardeinstellungen auch erstellen, indem Sie bei Sicherheitsstufe auf Mittel clicken. Es kann gute Gründe geben, warum von Ihnen oder jemand anderem alle ActivX Controls deaktiviert worden sind. Tatsächlich birgt jedes aktivierte ActivX Control ein Risiko. Sollten auf Ihrem Rechner die ActiveX Controls deaktiviert sein, dann sollten Sie nach Verlassen des Chats alle ActivX Controls wieder deaktivieren.
Prerequisitos
Para usar el voice chat/ chat de voz su ordenador tiene que estar dispuesto de una ficha de sonido, de un micrófono y de altavoces. Evidentemente el micrófono y los altavoces pueden ser sustituidos por un headset. El voice chat se basa en Netmeeting y por lo tanto solo se puede utilizarlo si Netmeeting está instalado en su ordenador. Si usa como sistema operatiovo windows 98 / XP / ME / 2000 normalmente Netmeeting se instala al instalar el sistema operativo. Si esto no es el caso o sea si Netmeeting no está instalado en su ordenador, puede bajarlo de la red o instalarlo de su CD. La activación de Netmeeting se realiza a través de un ActiveX Control, dicho de otra manera la configuración de su computador tiene que ser la misma que tenía después haber instalado windows por primera vez y antes de haberlo modificado. Si usted u otra persona modificó esta configuración por razones de seguridad puede reactivar los ActivX Contros de la manera siguiente.
Elija la opción HERRAMIENTAS en el Internet Explorer Elija opciones de Internet Elija Seguridad Elija nivel personalizado
Ahora debe activar secuencias de comandos ActivX
Activar la secuencia de comandos de los controles de ActivX marcados como seguros: Elija activar.
Descargar los controles firmados para ActivX: Elija pedir datos.
Descargar los controles no firmados para ActivX: Elija desactivar.
Ejecutar controles y complementos de AktivX: Elija activar.
Inicializar y activar la secuencia de comandos de los controles de ActivX no marcados como seguros: Elija desactivar.
Está configuración corresponde a la configuración normal. Está configuración también la recibe si elija la opción nivel de seguridad intermedio. Puede haber cantidad de buenas razones que llevaron a usted o a otra persona a desactivar todos los ActivX Controls. En el fondo todos los ActivX Controls representan un peligro. Si en su ordenador se desactivó todos los ActiveX Controls le aconsejamos de desactivarlos de nuevo una después haber salido de esta página.
Starten des Voice Chats
Sie starten den Voice Chat indem Sie auf die Schaltfläche Voice chat öffnen clicken. Netmeeting wird jetzt gestartet. Wenn Sie Netmeeting noch nie aufgerufen haben, erscheint eine Maske, in der Sie einige Angaben machen müssen. Was Sie in diese Felder eintragen ist völlig egal, allerdings ist es sinnvoll, bei dem Feld Namen irgendetwas Aussagekräftiges einzutragen. Danach wird Netmeeting in den rechten Rahmen integriert. Sie können jetzt von jedem User des Chats durch einen Click auf Ihren Nick angewählt werden. Werden Sie angewählt, poppt bei Ihnen ein Fenster auf, dass sie fragt, ob Sie den Anruf annehmen wollen. Wenn Sie bestätigen, ist die Verbindung hergestellt und Sie können sich via Mikrophon mit Ihrem Gegenüber unterhalten.
Comenzar el chat
Para comenzar el chat elija el enlace comenzar el chat. Netmeeting será activado. Si usted activa Netmeeting por primera vez, aparecerá una máscara que exige un par de informaciones. No tiene ninguna importancia lo que pone en la casillas aunque evidentemente es útil de meter algo en la casilla nombre que permite de saber quién es usted (por ejemplo el mismo nick que utiliza en el chat). Después haber llenado las casillas Netmeeting será integrado en el marco de la derecha. Ahora cualquier usuario del chat puede ponerse en contacto con usted. Basta hacer un clic sobre su nombre. Si alguien trata de conectarse con usted verá aparecer una ventanilla que le pregunta si acepta la llamada. Si lo confirma puede hablar con este usuario a través del micrófono.
Andere Browser
Verwenden Sie einen anderen Browser als den Explorer, dann können Sie Netmeeting nicht direkt aus dem Chat heraus aufrufen. Sie müssen dann Netmeeting mit der \'Hand\' starten. Die Datei, die Netmeeting startet heißt Wb32.exe. Wahrscheinlich finden Sie Netmeeting aber auch im Menüpunkt Programme. Ist Netmeeting gestartet, müssen Sie die IP Adresse dessen kennen, mit dem Sie sprechen wollen. Die IP Adresse wird im oberen rechten Feld des Chats aufgeblendet. Geben Sie diese Ip Adresse in Netmeeting ein und klicken Sie auf das Telefon. Die entsprechende IP Adresse wird angewählt.
Otros browser
Si utiliza otro browser que el Internet Explorer entonces no puede activar Netmeeting directamente del chat. En este caso tiene que activar Netmeeting \'con la mano\'. El archivo que activa Netmeetng se llama Wb32.exe, pero también es muy probable que encuentra Netmeeting en el menú bajo programas. Una vez activado Netmeeting tiene que conocer el número IP de la persona con la que quiere ponerse en contacto. El número IP la encuentro en el marco derecho del chat. Ponga este número en Netmeeting y haga un clic sobre el teléfono. Netmeeting establecerá una conexión con este número.
Andere Funktionen von Netmeeting
Haben Sie auf die Schaltfläche Chat öffnen geklickt, sehen Sie in der rechten unteren Ecke das Symbol von Netmeeting . Sie können mit einem Doppelclick Netmeeting öffnen und dann Funktionen nutzen, die Sie nicht nutzen können, wenn Sie Netmeeting aus dem Chat starten. Es steht Ihnen dann auch die Hilfe von Netmeeting zur Verfügung, wo alle Funktionen dieses Programms erläutert werden.
Otras funciones de Netmeeting
Después haber activado Netmeeting , verá a la derecha abajo el icon de Netmeeting . Con un doble clique sobre este icon usted puede abrir Netmeeting y utilizar todas las funciones, que no puede utilizar si llama Netmeeting desde el chat. Entonces también tendrá a su disposición la opción ayuda, donde se explica detalladamente todas las funciones de Netmeeting.
Proxy Server
Netmeeting funktioniert unter Umständen nicht, wenn ein Proxyserver involviert ist. Allerdings ist die Anzahl der möglichen Konfigurationen dann so hoch, dass eine Beschreibung wie die dann auftretenden Probleme zu lösen sind hier nicht gegeben werden kann. Sie müßten dann bei einer Suchmaschine das Wort Netmeeting und den Namen ihres Proxy Servers eingeben. Sie werden dann mit Sicherheit eine Lösung erhalten.
Servidores Proxy
Si usted se conecta al Internet a traves de un proxy es muy probable que Netmeeting no funciona. Sin embargo la cantidad de
configuraciones posibles no permite de describir una solución. En este caso usted debe poner en un motor de búsqueda la palabra Netmeeting y el nombre de su severidor proxy. Seguramente encontrará una descripción de como resolver su problema.
";
$sql = qq{select distinct(Nick), ipdresse,date_format(datum,'%H:%i:%s') from user order by Nick};
$sth = $dbh->prepare( $sql );
$sth->execute();
while(@ergebnis=$sth->fetchrow_array()){
if($ergebnis[0] ne $testnick){
print "
Wählen Sie im Internet Explorer EXTRAS
. Sie können mit einem Doppelclick Netmeeting öffnen und dann Funktionen nutzen, die Sie nicht nutzen können, wenn Sie Netmeeting aus dem Chat starten. Es steht Ihnen dann auch die 
text chat