[ViewVC] Diff of: cvs/deliantra/server/ext/rent.ext

Comparing deliantra/server/ext/rent.ext (file contents):
Revision 1.10 by root, Tue Jun 26 04:56:10 2007 UTC vs.
Revision 1.13 by root, Sat May 3 11:14:50 2008 UTC

    $pl->{rent}{balance} += $offline + $online;
 }
 sub pay_balance {
    my ($pl) = @_;
+   cf::cede_to_tick;
    update_balance $pl;
    return unless $pl->{rent}{balance} > 0;
       $pl->{rent}{last_offline_check} ||= time;
       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;
       }
       update_balance $pl;
          reject_entry $pl;
       }
    },
 ;
-our $RENT_TIMER = Event->timer (
+our $RENT_TIMER = cf::periodic 3600, Coro::unblock_sub {
-   reentrant => 0,
-   after     => 60,
-   interval  => 3600,
-   data      => cf::WF_AUTOCANCEL,
-   cb        => sub {
-      pay_balance $_ for cf::player::list;
+   pay_balance $_ for cf::player::list;
-   },
+};
-);

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