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.8.1/modules/htdocs.pm | 127 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 127 insertions(+)
 create mode 100755 0.8.1/modules/htdocs.pm

(limited to '0.8.1/modules/htdocs.pm')

diff --git a/0.8.1/modules/htdocs.pm b/0.8.1/modules/htdocs.pm
new file mode 100755
index 0000000..4f1bbeb
--- /dev/null
+++ b/0.8.1/modules/htdocs.pm
@@ -0,0 +1,127 @@
+sub htdocs {
+    if ($var eq 'help_html') {
+        &printfile('templates/help.sno', 'Alle Chatbefehle');
+    }
+    elsif ($var eq 'logo_html') {
+        &start_html('Logo');
+        &logo_html;
+    }
+    elsif ($var eq 'menu_html') {
+        &menu_html;
+    }
+    elsif ($var eq 'logs_html') {
+        &logs_html;
+    }
+    elsif ($var eq 'view_logs_html') {
+        &secure_checkid($alias, $tmpid);
+        &printfile("data/logs/$tmp", 'Logdatei', 'blank') if 7 <= &hierachie($alias);
+    }
+    elsif ($var eq 'superuser_html') {
+        &secure_checkid($alias, $tmpid);
+        &superuser_html;
+    }
+    elsif ($var eq 'chatiquette_html') {
+        &printfile('templates/chatiq.sno', 'Chatiquette');
+        print $q->end_html;
+    }
+    else {
+        print $q->start_html(-'bgcolor', '000000'), $q->end_html;
+    }
+}
+sub menu_html {
+    &start_html("Men\374");
+    print "<div>\n Von hier aus kannst du alle Untermen\374punkte des Systems erreichen:\n</div>\n<hr>\n";
+    &menu();
+    print "</body>\n</html>";
+}
+sub logo_html {
+    print qq[ <layer top=-3 left=0><div style="position:absolute; top:5; left:10">\n <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"\n  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"\n  WIDTH=48 HEIGHT=48>\n  <PARAM NAME=movie VALUE="$gfxpath/ySymbol.swf">\n  <PARAM NAME=loop VALUE=false>\n  <PARAM NAME=menu VALUE=false>\n  <PARAM NAME=quality VALUE=high>\n  <PARAM NAME=scale VALUE=noborder>\n  <PARAM NAME=wmode VALUE=opaque>\n  <PARAM NAME=bgcolor VALUE=$bgcolor>\n  <EMBED src="$gfxpath/ySymbol.swf" loop=false menu=false quality=high scale=noborder wmode=opaque bgcolor=$bgcolor  WIDTH=48 HEIGHT=48 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>\n </OBJECT>\n </div></layer>\n];
+    print $q->end_html;
+}
+sub logs_html {
+    &start_html('Logdateien');
+    &menu;
+    print "<div>\n Hier befinden sich alle Logdateien\n</div>\n<hr>\n";
+    if (5 <= &hierachie($alias)) {
+        print $q->div(qq[Folgende Logdateien des Raumes "$standardroom" k\366nnen nur von Oberw\344chtern oder h\366her gelesen werden (Sortiert nach A-Z, a-z):]), $q->br;
+        opendir LOGS, 'data/logs';
+        my(@logs) = readdir LOGS;
+        closedir LOGS;
+        my(@sortedir) = sort(@logs);
+        foreach $_ (@sortedir) {
+            if (-f "data/logs/$_") {
+                print $q->a({-'href', "chat?request=htdocs&alias=$alias&var=view_logs_html&tmp=$_&tmpid=$tmpid", -'target', '_new'}, "$_"), ' ';
+            }
+        }
+    }
+    else {
+        print $q->div("Logdateien k\366nnen nur von Oberw\344chtern (OW) gelesen werden. Du bist jedoch ein W\344chter (W\304) oder ein", qq["Normaler Chatter". Oberw\344chter k\366nnen alles nachlesen, was \366ffentlich im Raum "Cyberbar" gechattet wurde.]), $q->hr;
+    }
+    print $q->end_html;
+}
+sub superuser_html {
+    &start_html ('Superuser');
+    &menu;
+    print "<div>Hallo $alias. Du bist als ";
+    my $hierachie = &hierachie($alias);
+    if (9 <= $hierachie) {
+        print $q->b('Administrator'), ' (AD) eingetragen.</div><br>', $q->br;
+    }
+    elsif (7 <= $hierachie) {
+        print $q->b("Oberw\344chter"), ' (OW) eingetragen.</div><br>', $q->br;
+    }
+    elsif (5 <= $hierachie) {
+        print $q->b("W\344chter"), " (W\304) eingetragen.</div><br>", $q->br;
+    }
+    else {
+        print $q->b('normaler Chatter'), ' (NC) eingetragen.</div><br>', $q->br;
+    }
+    open FILE, 'data/hierachie';
+    my(@hierachie) = <FILE>;
+    close FILE;
+    my @ows, @was, @ads;
+    foreach $_ (@hierachie) {
+        my($name, $level) = split(/<;/, $_, 3);
+        chomp $level;
+        if ($level == 5) {
+            push @was, $name;
+        }
+        elsif ($level == 7) {
+            push @ows, $name;
+        }
+        elsif ($level == 9) {
+            push @ads, $name;
+        }
+        if (3 <= $hierachie) {
+            if ($level == 6) {
+                push @was, "$name!";
+            }
+            elsif ($level == 8) {
+                push @ows, "$name!";
+            }
+            elsif ($level == 10) {
+                push @ads, "$name!";
+            }
+        }
+    }
+    my $nads = $#ads + 1;
+    print '<div>', $q->b('AD'), "s ($nads St\374ck)";
+    foreach $_ (@ads) {
+        print $q->font({-'color', 'ffa500'}, ' ' . $_);
+    }
+    my $nrow = $#ows + 1;
+    print '</div><br><br><div>', $q->b('OW'), "s ($nrow St\374ck)";
+    foreach $_ (@ows) {
+        print $q->font({-'color', 'ffa500'}, ' ' . $_);
+    }
+    my $nrwa = $#was + 1;
+    print '</div><br>', $q->br, '<div>', $q->b("W\304"), "s ($nrwa St\374ck)";
+    foreach $_ (@was) {
+        print $q->font({-'color', 'FFA500'}, ' ' . $_);
+    }
+    print qq[<hr>\n Die jeweiligen F\344higkeiten der Oberw\344chter (OW) und der W\344chter (W\304) sind unter\n "<a href="chat?request=htdocs&var=help_html">Chat-Befehle</a>"\n dokumentiert. Versteckte Superuser k\366nnen nur von anderen Superusern auf\ndieser Liste eingesehen werden!\n</div>\n</body>\n</html>\n];
+}
+sub menu {
+    print "<div>\n  <a href='chat?request=divcom&var=edit_profile_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Profil \344ndern</a>\n  <a href='chat?request=divcom&var=edit_options_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Optionen</a>\n  <a href='chat?request=divcom&var=list_alias_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Benutzer</a>\n  <a href='chat?request=htdocs&var=help_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Befehle</a>\n  <a href='chat?request=divcom&var=gb_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Board</a>\n  <a href='chat?request=htdocs&var=superuser_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Superuser</a>\n  <a href='chat?request=htdocs&var=logs_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Logs</a>\n  <a href='chat?request=statistic&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Statistik</a>\n  <a href='chat?request=htdocs&var=chatiquette_html&alias=$alias&tmp=$tmp&tmpid=$tmpid'>Chatiquette</a>\n</div>\n<hr>\n";
+}
+1;
-- 
cgit v1.2.3