summaryrefslogtreecommitdiff
path: root/0.8.1/modules/htdocs.pm
diff options
context:
space:
mode:
Diffstat (limited to '0.8.1/modules/htdocs.pm')
-rwxr-xr-x0.8.1/modules/htdocs.pm127
1 files changed, 127 insertions, 0 deletions
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;
generated by cgit v1.2.3 (git 2.25.1) at 2026-06-12 21:11:36 +0000