ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/schmorplog.ext
(Generate patch)

Comparing deliantra/server/ext/schmorplog.ext (file contents):
Revision 1.23 by root, Sun Sep 21 23:21:49 2008 UTC vs.
Revision 1.25 by root, Sun Apr 11 04:52:07 2010 UTC

… …
3# statistics-package 3# statistics-package
4 4
5use Fcntl; 5use Fcntl;
6use Coro::AIO; 6use Coro::AIO;
7 7
8our $UPDATE_LOGINS = EV::idle sub { 8our $UPDATE_LOGINS = AE::idle sub {
9 $_[0]->stop; 9 $_[0]->stop;
10 10
11 cf::async { 11 cf::async {
12 my ($status, @pl) = ext::commands::who_listing; 12 my ($status, @pl) = ext::commands::who_listing;
13 13
… …
48 $pl->ob->kv_set (schmorplog_last_login => time); 48 $pl->ob->kv_set (schmorplog_last_login => time);
49 49
50 $pl->ob->kv_set (schmorplog_login_count => 50 $pl->ob->kv_set (schmorplog_login_count =>
51 1 + $pl->ob->kv_get ("schmorplog_login_count")); 51 1 + $pl->ob->kv_get ("schmorplog_login_count"));
52 52
53 (my $client = $pl->ns->version) =~ s/\n/\\n/g;
54
55 $pl->ob->kv_set (schmorplog_client => $client); 53 $pl->ob->kv_set (schmorplog_client => $pl->ns->{who_version});
56 54
57 ext::irc::do_notice (sprintf "%s logged in", $pl->ob->name); 55 ext::irc::do_notice (sprintf "%s logged in", $pl->ob->name);
58 56
59 $UPDATE_LOGINS->start; 57 $UPDATE_LOGINS->start;
60 58

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines