From 630af0ed6c0af69c7df2e45aef7a87722a3c00c0 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sat, 6 Apr 2013 13:14:47 +0200 Subject: tagging ychat-perl-legacy --- 0.4.2/htdocs.pl | 244 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 244 insertions(+) create mode 100644 0.4.2/htdocs.pl (limited to '0.4.2/htdocs.pl') diff --git a/0.4.2/htdocs.pl b/0.4.2/htdocs.pl new file mode 100644 index 0000000..bb70682 --- /dev/null +++ b/0.4.2/htdocs.pl @@ -0,0 +1,244 @@ +#!/usr/bin/perl -w + +# yChat - Copyright by Paul C. Bütow + +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("help.sno","Alle Chatbefehle"); +} elsif ($var eq "logo_html") { + &start_html("Logo"); + print "
", + "
"; + $q->end_html; +} elsif ($var eq "menu_html") { + &menu_html; +} elsif ($var eq "menu2_html") { + &menu2_html; +} elsif ($var eq "werda_html") { + &werda_html; +} elsif ($var eq "logs_html") { + &secure_checkid($alias); + &logs_html; +} elsif ($var eq "view_logs_html") { + &secure_checkid($alias); + &hirachie($alias); + if ($hirachie eq "ow" || $hirachie eq "wa") { + &printfile($tmp,"blank" ,"log"); + } +} elsif ($var eq "superuser_html") { + &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",""); + print $q->end_html; + sleep 2; + &remove_online($alias,$room); + &secure_removeid($alias); + exit; +} +ENDJS + &start_html("Menü","blank"); +print < +function fenster(fenster,target) { + open(fenster,target,"width=500,height=500,screenX=100,screenY=100,scrollbars"); +} + + + Wer ist da? + Profil ändern + Chatoptionen + Benutzerliste + Chatbefehle
+ Benutzerboard + Superuser + Logdateien + Updates + Credits + Verlassen + + + +END +} + +sub menu2_html { +$JavaScript = < + Normal1 = new Image(); + Normal1.src = "$gfxpath/_updates.gif"; + Highlight1 = new Image(); + Highlight1.src = "$gfxpath/_updates_.gif"; + Normal2 = new Image(); + Normal2.src = "$gfxpath/_credits.gif"; + Highlight2 = new Image(); + Highlight2.src = "$gfxpath/_credits_.gif"; + Normal3 = new Image(); + Normal3.src = "$gfxpath/_readme.gif"; + Highlight3 = new Image(); + Highlight3.src = "$gfxpath/_readme_.gif"; + Normal4 = new Image(); + Normal4.src = "$gfxpath/_todo.gif"; + Highlight4 = new Image(); + Highlight4.src = "$gfxpath/_todo_.gif"; + +function Bildwechsel(Bildnr,Bildobjekt) { + window.document.images[Bildnr].src = Bildobjekt.src; +} + +ENDJS + &start_html("Menü2","blank"); +print < + + + + + +END +} + + +sub werda_html { # Anzeige, wer eingelogt ist. + &start_html("Wer ist da?"); + print < + $alias, schön daß Du hier bist :-) + +
+
+ Folgende Personen befinden sich im Chat: +
+
+
+END + &list_dir("data/online/rooms"); + foreach(@dir) { + if (-e "data/online/rooms/$_" && $_ ne ".." && $_ ne ".") { + my $room = $_; + &read_file("data/online/rstat/$room"); + my @rstat = ; + close DATEI; + my $door = "[Abgesperrt!]" if ($rstat[0] eq "1\n"); + &list_dir("data/online/rooms/$room",2); + local $nr = $#dir2-1; + print $q->b( $_ ), + " $door ($nr) Raumthema: $rstat[1]", + $q->br; + foreach(@dir2) { + if ($_ ne ".." && $_ ne ".") { + print + $q->a( { -href=>"main2.pl?var=alias_html&alias=$alias&tmp=$_&tmpid=$tmpid" }, "$_"), " "; + } + } + print $q->br, $q->br; + } + } + print + "
", + $q->end_html; +} + +sub logs_html { + &start_html("Logdateien"); + print < + Hier befinden sich alle Logdateien + +
+END + &hirachie($alias); + if ($hirachie eq "ow" || $hirachie eq "wa") { + print $q->div( "Folgende Logdateien des Raumes \"Cyberbar\" 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/$_&tmpid=$tmpid", + -target=>"_new" }, + "$_" ), + " "; + } + } + } 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." ), + $q->hr; + &printfile("data/htdocs/logs_html"); + } + print + $q->end_html; +} + +sub superuser_html { # Zeigt an, wer Superuser ist + &start_html("Superuser"); + print "
Hallo $alias. Du bist als "; + &hirachie($alias); + if ($hirachie eq "ow") { + print + $q->b( "Oberwächter" ), + " (OW) eingetragen.
", + $q->hr; + } elsif ( $hirachie eq "wa") { + print + $q->b( "Wächter" ), + " (WÄ) eingetragen.", + $q->hr; + } else { + print + $q->b( "normaler Chatter" ), + " (NC) eingetragen.", + $q->hr; + } + + my $nrow = $#ows+1; + print + "
", + $q->b( "OW" ), + "s ($nrow Stück)"; + foreach(@ows) { + print + $q->font( { -color=>"FFA500" }, + " ".$_); + } + my $nrwa = $#was+1; + print + "
", + $q->hr, + "
", + $q->b( "WÄ" ), + "s ($nrwa Stück)"; + foreach(@was) { + print + $q->font( { -color=>"FFA500" }, + " ".$_); + } +print < + Die jeweiligen Fähigkeiten der Oberwächter (OW) und der Wächter (WÄ) sind unter + "Chat-Befehle" + dokumentiert. +
+ + +END +} \ No newline at end of file -- cgit v1.2.3