0.7.6/modules/webchat.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

sub webchat {
   my @rooms = &diropen('data/online/rooms');
   my $output;

   foreach my $room (@rooms) {
	next if ($room =~ /\./);
   	my @users = &diropen("data/online/rooms/$room") or print "$!\n";

	foreach my $user (@users) {
		next if ($user =~ /\./);
		open FILE, "data/online/rooms/$room/$user";
		my $timestamp = <FILE>;
		close FILE;
		chomp $timestamp;

		$output = $output . "($user)($timestamp)($room)\n";
	}
   }

  print $output;
}
1;