########################### 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 = "23.11.2k"; $version = "0.2.2"; $title = "yChat.de ($version)"; #$gfxpath = "http://localhost/yChat/"; $gfxpath = "../../yChat/"; $style = < 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 } 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 "

Push

" if ($bodyclass eq "log"); &read_file($file2print); @file2print = ; close DATEI; print @file2print; } sub start_html { # Der HEADER einer HTML-Datei print ""; print "" if ($_[1] eq "online"); print < $title - $_[0] $style END if ($_[1] ne "") { print ""; } else { print ""; } } 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
\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
\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
\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 "
($hours:$min:$sec) $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
"; close DATEI; &write_file($syslog); print DATEI "($day.$month.-$hours:$min:$sec) $msg2log User: $alias IP#: $ENV{'REMOTE_ADDR'}\n
"; } elsif ($method eq "system") { print DATEI "($day.$month.-$hours:$min:$sec) $msg2log User: $alias IP#: $ENV{'REMOTE_ADDR'}\n
"; } 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 = ; 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("($hours:$min:$sec) $alias verläßt den Chat ..."); } else { &post("($hours:$min:$sec) $_ hat den Chat verlassen ... "); &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 = ; 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) = @_; &read_file("data/online/ident/$alias2check"); my @ip = ; close DATEI; if ($ip[0] ne $ENV{'REMOTE_ADDR'}) { &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","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."); &input_html("true") if ($method = 2); } exit; } } 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 = ; close DATEI; foreach(@was) { if ($_ eq $alias2prove || $_ eq "$alias2prove\n") { $hirachie = "wa"; } } if ($hirachie ne "wa" || $_ eq "$alias2prove\n") { &read_file("data/ow"); @ows = ; close DATEI; foreach(@ows) { if ($_ eq $alias2prove || $_ eq "$alias2prove\n") { $hirachie = "ow"; } } } }