--- deliantra/server/ext/rent.ext	2007/09/13 08:35:24	1.11
+++ deliantra/server/ext/rent.ext	2008/05/03 11:14:50	1.13
@@ -147,7 +147,7 @@
       if ($pl->{rent}{last_online_check}) {
          $pl->{rent}{last_online_check} = time
             - List::Util::min 3600,
-                 $pl->ob->get_ob_key_value ("schmorplog_last_save") - $pl->{rent}{last_online_check};
+                 $pl->ob->kv_get ("schmorplog_last_save") - $pl->{rent}{last_online_check};
       } else {
          $pl->{rent}{last_online_check} = time;
       }
@@ -185,13 +185,7 @@
    },
 ;
 
-our $RENT_TIMER = Event->timer (
-   reentrant => 0,
-   after     => 60,
-   interval  => 3600,
-   data      => cf::WF_AUTOCANCEL,
-   cb        => Coro::unblock_sub {
-      pay_balance $_ for cf::player::list;
-   },
-);
+our $RENT_TIMER = cf::periodic 3600, Coro::unblock_sub {
+   pay_balance $_ for cf::player::list;
+};