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
|
sub online {
&secure_checkid($alias, $tmpid);
my(@away) = &prove_away($alias, $room, 'return_list');
for (;;) {
for ($i = 0; $i <= $#away; $i += 2) {
last if $away[$i] eq $alias or $room eq $loginplace;
}
open DATEI, "<data/online/users/$alias";
my $oldstamp = <DATEI>;
close DATEI;
if ($oldstamp > time - 100) {
open DATEI, "<data/user/counts/$alias.online";
my $online = <DATEI>;
close DATEI;
my $total = time - $oldstamp + $online;
open DATEI, ">data/user/counts/$alias.online";
print DATEI $total;
close DATEI;
}
last;
}
unless (-d "data/online/rooms/$room") {
mkdir "data/online/rooms/$room", 511;
}
open DATEI, ">data/online/users/$alias";
print DATEI time;
close DATEI;
open DATEI, ">data/online/rooms/$room/$alias";
print DATEI time;
close DATEI;
open DATEI, '<data/online/prove';
my $provetime = <DATEI>;
close DATEI;
&check_online if $provetime < time - 40;
print qq[<html>\n <head>\n <meta http-equiv="refresh" content="20" URL="chat?request=online&room=$room&alias=$alias&tmpid=$tmpid">\n <style type="text/css">\n a { font-family: arial; font-size:11px; color: #ffffef; }\n a:hover { color: #ffffff; }\n </style>\n <style type="text/css" media="all">\n a { text-decoration: none; }\n a:hover { text-decoration:underline; }\n </style>\n </head>\n <body bgcolor="$chatbg">\n];
opendir ROOM, 'data/online/rooms/' . $room;
my(@room) = sort(readdir ROOM);
closedir ROOM;
my $chatter = $#room - 1;
print "<font size='1' color='ffffff' face='arial'>$room ($chatter):</font><table>\n";
open FILE, "<data/online/rstat/$room";
my(@rstat) = <FILE>;
close FILE;
shift @rstat;
shift @rstat;
open FILE, '<data/hierachie';
my(@userlevels) = (<FILE>, @rstat);
close FILE;
open FILE, "<data/online/rstat/$room.away";
my(@away) = <FILE>;
close FILE;
foreach my $nick (@room) {
if (-f "data/online/rooms/$room/$nick") {
my $inside = 0;
foreach $_ (@away) {
my($name, $awaymessage) = split(/<;/, $_, 3);
if ($name eq $nick) {
chomp $awaymessage;
print "<tr><td><img title='$awaymessage' alt='$awaymessage' src='$gfxpath/away.gif'></td>";
$inside = 2;
}
}
if ($inside == 0) {
foreach $_ (@userlevels) {
my($name, $level) = split(/<;/, $_, 3);
if ($nick eq $name) {
chomp $level;
$inside = 1;
if ($level == 1) {
print "<tr><td><img title='Raumbesetzer' alt='Raumbesetzer' src='$gfxpath/rb.gif'></td>";
last;
}
elsif ($level == 2) {
print "<tr><td><img title='Die Unschuld vom Land' alt='Die Unschuld vom Land' src='$gfxpath/uvl.gif'></td>";
last;
}
elsif ($level == 3) {
print "<tr><td><img title='Wächter' alt='Wächter' src='$gfxpath/wa.gif'></td>";
last;
}
elsif ($level == 5) {
print "<tr><td><img title='oberwächter' alt='Oberwächter' src='$gfxpath/ow.gif'></td>";
last;
}
elsif ($level == 7) {
print "<tr><td><img title='Administrator' alt='Administrator' src='$gfxpath/adm.gif'></td>";
last;
}
else {
print '<tr><td></td>';
last;
}
}
}
}
if ($inside == 0) {
print '<tr><td></td>';
}
print "<td><a href='chat?request=divcom&var=alias_html&alias=$alias&tmp=$nick&tmpid=$tmpid' target='$nick'>$nick</a></td></tr>\n";
}
}
print '</table></body></html>';
}
1;
|
