1 files changed, 84 insertions, 0 deletions
diff --git a/0.4.9/online.pl b/0.4.9/online.pl
new file mode 100644
index 0000000..e785652
--- /dev/null
+++ b/0.4.9/online.pl
@@ -0,0 +1,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&auml;chter' alt='Oberw&auml;chter' src='$gfxpath/ow.gif'></td>";
+    goto WEITER;
+   } elsif ($hierachie eq "wa") {
+    print "<tr><td><img title='W&auml;chter' alt='W&auml;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;
+
+