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
|
#!/usr/bin/perl -w
# yChat - Copyright by Paul C. Bütow
use CGI;
$q = new CGI;
require config;
print $q->header();
$alias = $q->param("alias");
$tmpid = $q->param("tmpid");
$room = $q->param("room");
&secure_checkid($alias);
# Onlinezeit zählen !
open(DATEI,"<data/online/users/$alias");
my $oldstamp = <DATEI>;
close DATEI;
if ($oldstamp > (time - 60)) {
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;
}
##### ENDE
open(DATEI,">data/online/users/$alias");
print DATEI time;
close DATEI;
if (-f "data/online/rooms/$room") { } else { mkdir "data/online/rooms/$room", 0777; }
if (-f "data/online/rstat/$room") { } else {
open(DATEI,">data/online/rstat/$room"); # Raumbesetzerstatus setzen
print DATEI "0\n\n$alias\n";
close DATEI;
}
open(DATEI,">data/online/rooms/$room/$alias");
print DATEI time;
close DATEI;
open(DATEI,"<data/online/prove"); # Räume und Chatter auf Existenz überprüfen
my $provetime = <DATEI>;
close DATEI;
if ($provetime < (time - 30)) {
&check_online;
}
&start_html("Online","online");
opendir(ROOM,"data/online/rooms/".$room);
my @room = readdir(ROOM);
closedir(ROOM);
my $chatter = $#room-1;
print $q->div( "$room ($chatter):" ), "<table>";
@room = sort(@room);
foreach $online (@room) {
if (-f "data/online/rooms/$room/$online") {
&prove_away($online,$room);
if ($away ne undef) {
print "<tr><td><img title='$away' alt='$away' src='$gfxpath/away.gif'></td>";
goto WEITER;
}
&hierachie($online);
if ($hierachie eq "ow") {
print "<tr><td><img title='Oberwächter' alt='Oberwächter' src='$gfxpath/ow.gif'></td>";
goto WEITER;
} elsif ($hierachie eq "wa") {
print "<tr><td><img title='Wächter' alt='Wächter' src='$gfxpath/wa.gif'></td>";
goto WEITER;
}
&prove_besetzer($online,$room);
if ($r_besetzer eq "true") {
print "<tr><td><img title='Raumbesetzer' alt='Raumbesetzer' src='$gfxpath/rb.gif'></td>";
} else {
print "<tr><td></td>";
}
WEITER:
print "<td><a href='main2.pl?var=alias_html&alias=$alias&tmp=$online&tmpid=$tmpid' target='$online'><font size='1' face='arial'>$online</font></a></td></tr>";
}
}
print "</table>", $q->end_html;
|
