From 630af0ed6c0af69c7df2e45aef7a87722a3c00c0 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 6 Apr 2013 13:14:47 +0200
Subject: tagging ychat-perl-legacy

---
 0.2.4c/htdocs.pl | 222 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 222 insertions(+)
 create mode 100644 0.2.4c/htdocs.pl

(limited to '0.2.4c/htdocs.pl')

diff --git a/0.2.4c/htdocs.pl b/0.2.4c/htdocs.pl
new file mode 100644
index 0000000..b52dd6b
--- /dev/null
+++ b/0.2.4c/htdocs.pl
@@ -0,0 +1,222 @@
+#!/usr/bin/perl -w
+
+use CGI;		# CGI-Modul laden
+$q = new CGI;
+
+require config;		# config.pm in Dokument laden
+
+print
+ $q->header();		# HTTP-Header erzeugen
+
+
+#####################################
+##WELCHE SUB MUß AUSGEFÜHRT WERDEN?##
+#####################################
+if ($var eq "help_html") {
+ &printfile("data/htdocs/help_html","Alle Chatbefehle");
+} elsif ($var eq "menu_html") {
+ &menu_html;
+} elsif ($var eq "werda_html") {
+ &werda_html;
+} elsif ($var eq "logs_html") {
+ &logs_html;
+} elsif ($var eq "view_sulogs_html") {
+ &hirachie($alias);
+ if ($hirachie eq "ow") {
+  &start_html("Oberwächter-Logdateien");
+  print "<div><a href=\"push.pl?alias=$alias&tmp=$tmp&var=push_logs_html\">Push</a><hr>";
+  &printfile($tmp);
+  print "</div></body></html>";
+ }
+} elsif ($var eq "view_logs_html") {
+ &hirachie($alias);
+ if ($hirachie eq "ow" || $hirachie eq "wa") {
+  &printfile($tmp,$tmp,"log");
+ }
+} elsif ($var eq "superuser_html") {
+ &superuser_html;
+} elsif ($var eq "bar_html") {
+ print
+  $q->start_html(-bgcolor=>"ffa500"),
+  $q->end_html;
+} else {
+ print
+  $q->start_html(-bgcolor=>"000000"),
+  $q->end_html;
+}
+
+sub menu_html {
+ if ($tmp eq "quit") {
+  print
+   $q->script( { -language=>"JavaScript" }, "window.open(\"index.pl?tmp=quit\",\"_top\")" );
+  sleep 1;
+  &remove_online($alias);
+  &secure_removeip($alias);
+  unlink("data/msgs/$alias");
+ }
+ &start_html("Menü","menu");
+print <<END;
+ <center>
+  <div>
+   [<a href="htdocs.pl?var=werda_html&alias=$alias&room=$room&col=$col&secol=$secol&&tmp=$tmp" target="werda">Wer ist da?</a>]
+   [<a href="main2.pl?var=edit_profile_html&alias=$alias" target="ProfilAendern">Profil ändern</a>]
+   [<a href="main2.pl?var=edit_options_html&alias=$alias" target="main">Optionen</a>]
+   [<a href="main2.pl?var=list_alias_html&alias=$alias" target="Benutzerliste">Benutzer</a>]
+   [<a href="htdocs.pl?var=help_html" target="Befehle">Befehle</a>]
+   [<a href="main2.pl?var=gb_html&alias=$alias" target="Board">Board</a>]
+   [<a href="htdocs.pl?var=superuser_html&alias=$alias" target="Hirachie">Superuser</a>]
+   [<a href="htdocs.pl?var=logs_html&alias=$alias" target="Logdateien">Logs</a>]
+   [<a href="push.pl?alias=$alias&room=$room&var=clear_screen" target="main">Weiterchatten</a>]
+   [<a href="htdocs.pl?var=menu_html&tmp=quit&alias=$alias">Verlassen</a>]
+  </div>
+ </center>
+</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
+ &list_dir("data/online/rooms");
+ foreach(@dir) {
+  if (-e "data/online/rooms/$_" && $_ ne ".." && $_ ne ".") {
+   my $room = $_;
+   &list_dir("data/online/rooms/$room",2);
+   local $nr = $#dir2-1;
+   print $q->b( $_ ),
+         "($nr)",
+         $q->br;
+   foreach(@dir2) {
+    if ($_ ne ".." && $_ ne ".") {
+     print
+      $q->a( { -href=>"main2.pl?var=alias_html&alias=$alias&tmp=$_" }, "$_"), " ";
+    }
+   }
+   print $q->br, $q->br;
+  }
+ }
+ print
+  "</div>",
+  $q->end_html;
+}
+
+sub logs_html {
+ &secure_checkip($alias);
+ &start_html("Logdateien");
+ print <<END;
+<div>
+ Hier befinden sich alle Logdateien
+</div>
+<hr>
+END
+ &hirachie($alias);
+ if ($hirachie eq "ow" || $hirachie eq "wa") {
+  if ($hirachie eq "ow") {
+   print $q->div( "Folgende Logdateien können nur von Oberwächtern (OW) gelesen werden" );
+   &printfile("data/htdocs/logs_html");
+   &list_dir("data/logs/ow");
+   my @sortedir = sort(@dir);
+   foreach(@sortedir) {
+    if (-f "data/logs/ow/$_") {
+     print $q->a( { -href=>"htdocs.pl?var=view_sulogs_html&alias=$alias&tmp=data/logs/ow/$_",
+     		    -target=>$_},
+ 	   "$_" ).
+ 	   " ",
+    }
+   }
+  print $q->hr;
+  }
+  print $q->div( "Folgende Logdateien können nur von Wächtern und Oberwächtern gelesen werden (Sortiert nach A-Z, a-z):" ),
+        $q->br;
+  &list_dir("data/logs");
+  my @sortedir = sort(@dir);
+  foreach(@sortedir) {
+   if (-f "data/logs/$_") {
+    print $q->a( { -href=>"htdocs.pl?alias=$alias&var=view_logs_html&tmp=data/logs/$_",
+  	           -target=>"_new" },
+ 	  "$_" ),
+ 	  " ";
+   }
+  }
+ if ($hirachie eq "wa") {
+   print $q->hr,
+   	 $q->div( "Oberwächter können zusätzlich die Systemlogdateien lesen. Du bist allerdings ein \"Wächter\" und ",
+   		  " bist nicht dazu berechtigt " ),
+         $q->br;
+   &printfile("data/htdocs/logs_html");
+ }
+ } else {
+  print $q->div( "Logdateien können nur von Oberwächtern (OW) und von Wächtern (WÄ) gelesen werden. Du bist jedoch ein ",
+  		  "\"Normaler Chatter\". Wächter können alles nachlesen, was öffentlich gechattet wurde. Oberwächter ",
+  		  "können folgende Systemlogdateien zusätzlich lesen:" ),
+        $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 ";
+ &hirachie($alias);
+ if ($hirachie eq "ow") {
+  print
+   $q->b( "Oberwächter" ),
+   " (OW) eingetragen.</div>",
+   $q->hr;
+ } elsif ( $hirachie 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
-- 
cgit v1.2.3