--- deliantra/server/ext/schmorplog.ext	2007/06/11 22:18:03	1.10
+++ deliantra/server/ext/schmorplog.ext	2007/11/14 08:09:46	1.11
@@ -1,6 +1,8 @@
 #! perl # depends=irc
 
-our $UPDATE_LOGINS = Event->idle (repeat => 0, min => 1, data => cf::WF_AUTOCANCEL, cb => Coro::unblock_sub {
+our $UPDATE_LOGINS = EV::idle Coro::unblock_sub {
+   $_[0]->stop;
+
    my ($status, @pl) = ext::commands::who_listing;
 
    #TODO: write files asynchronously
@@ -12,7 +14,7 @@
       s/[<&]//g;
       print $fh "$_<br />\n";
    }
-});
+};
 
 cf::player->attach (
    on_login => sub {