--- deliantra/server/ext/schmorplog.ext	2007/01/08 12:39:16	1.6
+++ deliantra/server/ext/schmorplog.ext	2007/04/18 17:32:06	1.8
@@ -1,12 +1,13 @@
 #! perl
 
-our $UPDATE_LOGINS = Event->idle (repeat => 0, min => 1, data => cf::WF_AUTOCANCEL, cb => sub {
+our $UPDATE_LOGINS = Event->idle (repeat => 0, min => 1, data => cf::WF_AUTOCANCEL, cb => Coro::unblock_sub {
    my ($status, @pl) = ext::commands::who_listing;
 
-   open my $fh, ">", cf::localdir . "/usercount";
+   #TODO: write files asynchronously
+   open my $fh, ">", "$LOCALDIR/usercount";
    print $fh scalar @pl;
 
-   open my $fh, ">", cf::localdir . "/userlisting.html";
+   open my $fh, ">", "$LOCALDIR/userlisting.html";
    for ($status, @pl) {
       s/[<&]//g;
       print $fh "$_<br />\n";