tagging ychat-perl-legacyychat-perl-legacy

1 files changed, 241 insertions, 0 deletions

diff --git a/0.4.9/htdocs.pl b/0.4.9/htdocs.pl
new file mode 100644
index 0000000..b8f8831
--- /dev/null
+++ b/0.4.9/htdocs.pl
@@ -0,0 +1,241 @@
+#!/usr/bin/perl -w

+

+# yChat - Copyright by Paul C. Bütow

+

+use CGI;

+$q = new CGI;

+require config;

+print

+ $q->header;

+

+#####################################

+##WELCHE SUB MUß AUSGEFÜHRT WERDEN?##

+#####################################

+$var = $q->param("var");

+if ($var eq "help_html") {

+ &printfile("help.sno","Alle Chatbefehle");

+} elsif ($var eq "logo_html") {

+ &start_html("Logo");

+print<<END;

+<layer top=-3 left=0><div style="position:absolute; top:5; left:10">

+<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

+ codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"

+ WIDTH=48 HEIGHT=48>

+ <PARAM NAME=movie VALUE="$gfxpath/ySymbol.swf">

+ <PARAM NAME=loop VALUE=false>

+ <PARAM NAME=menu VALUE=false>

+ <PARAM NAME=quality VALUE=high>

+ <PARAM NAME=scale VALUE=noborder>

+ <PARAM NAME=wmode VALUE=opaque>

+ <PARAM NAME=bgcolor VALUE=#005146>

+ <EMBED src="$gfxpath/ySymbol.swf" loop=false menu=false quality=high scale=noborder wmode=opaque bgcolor=#005146

+ WIDTH=48 HEIGHT=48 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>

+</OBJECT>

+</div></layer>

+END

+print $q->end_html;

+} elsif ($var eq "menu_html") {

+ $alias = $q->param("alias");

+ $tmpid = $q->param("tmpid");

+ $room = $q->param("room");

+ $col = $q->param("col");

+ $secol = $q->param("secol");

+ $tmp = $q->param("tmp");

+ &menu_html;

+} elsif ($var eq "werda_html") {

+ $alias = $q->param("alias");

+ $tmpid = $q->param("tmpid");

+ &werda_html;

+} elsif ($var eq "logs_html") {

+ $alias = $q->param("alias");

+ $tmpid = $q->param("tmpid");

+ &secure_checkid($alias);

+ &logs_html;

+} elsif ($var eq "view_logs_html") {

+ $alias = $q->param("alias");

+ $tmpid = $q->param("tmpid");

+ $tmp = $q->param("tmp");

+ &secure_checkid($alias);

+ &hierachie($alias);

+ if ($hierachie eq "ow" || $hierachie eq "wa") {

+  &printfile($tmp,"Logdatei","blank");

+ }

+} elsif ($var eq "superuser_html") {

+ $alias = $q->param("alias");

+ $tmpid = $q->param("tmpid");

+ &secure_checkid($alias);

+ &superuser_html;

+} else {

+ print

+  $q->start_html(-bgcolor=>"000000"),

+  $q->end_html;

+}

+

+sub menu_html {

+if ($tmp eq "quit") {

+  &start_html("Quit","blank","<script language=\"JavaScript\">open(\"index.pl?tmp=quit\",\"_top\");</script>");

+  print $q->end_html;

+  &zeit;

+  &post($room,"<i><font color=ffffff>($hours:$min:$sec)</font> <font color=ffffff>$alias verläßt den Chat ... </font></i>");

+  sleep 2;

+  &rm_alias($alias,$room);

+  exit;

+}

+ENDJS

+ &start_html("Menü","blank");

+print <<END;

+<script language="JavaScript">

+function fenster(fenster,target) {

+ open(fenster,target,"width=500,height=500,screenX=100,screenY=100,scrollbars");

+}

+</script>

+<font size=2 face=verdana><p>

+   <a href='javascript:fenster("htdocs.pl?var=werda_html&alias=$alias&room=$room&col=$col&secol=$secol&tmp=$tmp&tmpid=$tmpid","weristda")'>Wer ist da?</a>

+   <a href='javascript:fenster("main2.pl?var=edit_profile_html&alias=$alias&tmpid=$tmpid&room=$room","ProfilAendern")'>Profil ändern</a>

+   <a href='javascript:fenster("main2.pl?var=edit_options_html&alias=$alias&tmpid=$tmpid&room=$room","Optionen")'>Chatoptionen</a>

+   <a href='javascript:fenster("main2.pl?var=list_alias_html&alias=$alias&tmpid=$tmpid","Benutzerliste")'>Benutzerliste</a>

+   <a href='javascript:fenster("htdocs.pl?var=help_html&tmpid=$tmpid","Befehle")'>Chatbefehle</a><br>

+   <a href='javascript:fenster("main2.pl?var=gb_html&alias=$alias&tmpid=$tmpid","Board")'>Benutzerboard</a>

+   <a href='javascript:fenster("htdocs.pl?var=superuser_html&alias=$alias&tmpid=$tmpid","Superuser")'>Superuser</a>

+   <a href='javascript:fenster("htdocs.pl?var=logs_html&alias=$alias&tmpid=$tmpid","Logdateien")'>Logs</a>

+   <a href='javascript:fenster("stat.pl?&alias=$alias&tmpid=$tmpid","Statistik")'>Statistik</a>

+   <a href="http://www.home.yChat.de" target="Home">Home</a>

+   <a href="http://www.credits.yChat.de" target="Credits">Credits</a>

+   <a href="htdocs.pl?alias=$alias&var=menu_html&room=$room&tmpid=$tmpid&tmp=quit">Verlassen</a>

+</p></font>

+</body>

+</html>

+END

+}

+

+sub werda_html { # Anzeige, wer eingelogt ist.

+ &start_html("Wer ist da?");

+ print <<END;

+<div>

+ $alias, schön daß Du hier bist :-)

+</div>

+<hr>

+<div>

+ Folgende Personen befinden sich im Chat:

+</div>

+<br>

+<div>

+END

+ opendir(ROOMDIRS,"data/online/rooms");

+  local @roomdirs = readdir(ROOMDIRS);

+ close(ROOMDIRS);

+ foreach(@roomdirs) {

+  if (-e "data/online/rooms/$_" && $_ ne ".." && $_ ne ".") {

+   my $room = $_;

+   open(RSTAT,"<data/online/rstat/$room");

+    my @rstat = <RSTAT>;

+   close RSTAT;

+   my $door = "[<font color=red>Abgesperrt!</font>]" if ($rstat[0] eq "1\n");

+   opendir(ROOMDIR,"data/online/rooms/$room");

+    my @roomdir = readdir(ROOMDIR);

+   close(ROOMDIR);

+   local $nr = $#roomdir-1;

+   print $q->b( $_ ),

+         " $door ($nr) Raumthema: $rstat[1]",

+         $q->br;

+   foreach(@roomdir) {

+    if ($_ ne ".." && $_ ne ".") {

+     print

+      $q->a( { -href=>"main2.pl?var=alias_html&alias=$alias&tmp=$_&tmpid=$tmpid" }, "$_"), " ";

+    }

+   }

+   print $q->br, $q->br;

+  }

+ }

+ print

+  "</div>",

+  $q->end_html;

+}

+

+sub logs_html {

+ &start_html("Logdateien");

+ print <<END;

+<div>

+ Hier befinden sich alle Logdateien

+</div>

+<hr>

+END

+ &hierachie($alias);

+ if ($hierachie eq "ow") {

+  print $q->div( "Folgende Logdateien des Raumes \"Cyberbar\" können nur von Oberwächtern gelesen werden (Sortiert nach A-Z, a-z):" ),

+        $q->br;

+  opendir(LOGS,"data/logs");

+   local @logs = readdir(LOGS);

+  closedir(LOGS);

+  local @sortedir = sort(@logs);

+  foreach(@sortedir) {

+   if (-f "data/logs/$_") {

+    print $q->a( { -href=>"htdocs.pl?alias=$alias&var=view_logs_html&tmp=data/logs/$_&tmpid=$tmpid",

+                     -target=>"_new" },

+           "$_" ),

+           " ";

+   }

+  }

+ } else {

+  print $q->div( "Logdateien können nur von Oberwächtern (OW) gelesen werden. Du bist jedoch ein Wächter (WÄ) oder ein",

+                    "\"Normaler Chatter\". Oberwächter können alles nachlesen, was öffentlich im Raum \"Cyberbar\" gechattet wurde." ),

+  $q->hr;

+  &printfile("data/htdocs/logs_html");

+ }

+ print

+  $q->end_html;

+}

+

+sub superuser_html { # Zeigt an, wer   Superuser ist

+ &start_html("Superuser");

+ print "<div>Hallo $alias. Du bist als ";

+ &hierachie($alias);

+ if ($hierachie eq "ow") {

+  print

+   $q->b( "Oberwächter" ),

+   " (OW) eingetragen.</div>",

+   $q->hr;

+ } elsif ( $hierachie eq "wa") {

+  print

+   $q->b( "Wächter" ),

+   " (WÄ) eingetragen.</div>",

+   $q->hr;

+ } else {

+  print

+  $q->b( "normaler Chatter" ),

+  " (NC) eingetragen.</div>",

+  $q->hr;

+ }

+

+ my $nrow = $#ows+1;

+ print

+  "<div>",

+  $q->b( "OW" ),

+  "s ($nrow Stück)";

+ foreach(@ows) {

+  print

+   $q->font( { -color=>"ffa500" },

+           " ".$_);

+ }

+ my $nrwa = $#was+1;

+  print

+  "</div>",

+  $q->hr,

+  "<div>",

+  $q->b( "WÄ" ),

+  "s ($nrwa Stück)";

+ foreach(@was) {

+   print

+   $q->font( { -color=>"FFA500" },

+           " ".$_);

+ }

+print <<END;

+<hr>

+ Die jeweiligen Fähigkeiten der Oberwächter (OW) und der Wächter (WÄ) sind unter

+ "<a href="htdocs.pl?var=help_html">Chat-Befehle</a>"

+ dokumentiert.

+</div>

+</body>

+</html>

+END

+}
\ No newline at end of file