--- deliantra/server/lib/cf.pm	2007/05/06 05:44:48	1.264
+++ deliantra/server/lib/cf.pm	2007/05/11 08:00:00	1.265
@@ -92,6 +92,10 @@
 # used to convert map paths into valid unix filenames by replacing / by ∕
 our $PATH_SEP = "∕"; # U+2215, chosen purely for visual reasons
 
+our $LOAD;       # a number between 0 (idle) and 1 (too many objects)
+our $LOADAVG;    # same thing, but with alpha-smoothing
+our $tick_start; # for load detecting purposes
+
 binmode STDOUT;
 binmode STDERR;
 
@@ -141,6 +145,16 @@
 
 The interval between server ticks, in seconds.
 
+=item $cf::LOADAVG
+
+The current CPU load on the server (alpha-smoothed), as a value between 0
+(none) and 1 (overloaded), indicating how much time is spent on processing
+objects per tick. Healthy values are < 0.5.
+
+=item $cf::LOAD
+
+The raw value load value from the last tick.
+
 =item %cf::CFG
 
 Configuration for the server, loaded from C</etc/crossfire/config>, or
@@ -320,6 +334,8 @@
    my ($job) = @_;
 
    if ($Coro::current == $Coro::main) {
+      my $time = Event::time;
+
       # this is the main coro, too bad, we have to block
       # till the operation succeeds, freezing the server :/
       
@@ -340,6 +356,13 @@
          Coro::cede or Event::one_event;
       }
 
+      $time = Event::time - $time;
+
+      LOG llevError | logBacktrace, "long sync job\n"
+         if $time > $TICK * 0.5;
+
+      $tick_start += $time; # do not account sync jobs to server load
+
       wantarray ? @res : $res[0]
    } else {
       # we are in another coroutine, how wonderful, everything just works
@@ -374,14 +397,12 @@
    # first touch the runtime file to show we are still running:
    # the fsync below can take a very very long time.
 
-   warn "touching runtime...\n";#d#
    if (my $fh = aio_open $runtime, O_WRONLY, 0) {
       utime undef, undef, $fh;
    }
 
    my $guard = cf::lock_acquire "write_runtime";
 
-   warn "starting to write runtime...\n";#d#
    my $fh = aio_open "$runtime~", O_WRONLY | O_CREAT, 0644
       or return;
 
@@ -405,7 +426,7 @@
    aio_rename "$runtime~", $runtime
       and return;
 
-   warn "... done writing runtime.\n";#d#
+   warn "runtime file written.\n";#d#
 
    1
 }
@@ -2840,7 +2861,7 @@
          return;
       }
 
-      $NOW = Event::time;
+      $NOW = $tick_start = Event::time;
 
       cf::server_tick; # one server iteration
 
@@ -2858,12 +2879,6 @@
 #      my $AFTER = Event::time;
 #      warn $AFTER - $NOW;#d#
 
-      # if we are delayed by four ticks or more, skip them all
-      $NEXT_TICK = Event::time if Event::time >= $NEXT_TICK + $TICK * 4;
-
-      $TICK_WATCHER->at ($NEXT_TICK);
-      $TICK_WATCHER->start;
-
       if (my $sig = shift @WAIT_FOR_TICK_BEGIN) {
          $sig->send;
       }
@@ -2871,7 +2886,20 @@
          $sig->send;
       }
 
+      $NOW = Event::time;
+
+      # if we are delayed by four ticks or more, skip them all
+      $NEXT_TICK = $NOW if $NOW >= $NEXT_TICK + $TICK * 4;
+
+      $TICK_WATCHER->at ($NEXT_TICK);
+      $TICK_WATCHER->start;
+
+      $LOAD = ($NOW - $tick_start) / $TICK;
+      $LOADAVG = $LOADAVG * 0.75 + $LOAD * 0.25;
+
       _post_tick;
+
+
    },
 );