1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
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 5 <= &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 (7 <= $hierachie) {
print $q->b('Administrator'), ' (AD) eingetragen.</div><br>', $q->br;
}
elsif (5 <= $hierachie) {
print $q->b("Oberw\344chter"), ' (OW) eingetragen.</div><br>', $q->br;
}
elsif (3 <= $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 == 3) {
push @was, $name;
}
elsif ($level == 5) {
push @ows, $name;
}
elsif ($level == 7) {
push @ads, $name;
}
if (3 <= $hierachie) {
if ($level == 4) {
push @was, "$name!";
}
elsif ($level == 6) {
push @ows, "$name!";
}
elsif ($level == 8) {
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;
|
