--- deliantra/server/lib/cf.pm	2010/04/11 04:52:07	1.512
+++ deliantra/server/lib/cf.pm	2010/04/12 17:13:36	1.514
@@ -110,6 +110,9 @@
 
 our %RESOURCE;
 
+our $OUTPUT_RATE_MIN =   4000;
+our $OUTPUT_RATE_MAX = 100000;
+
 our $TICK = MAX_TIME * 1e-6; # this is a CONSTANT(!)
 our $NEXT_RUNTIME_WRITE; # when should the runtime file be written
 our $NEXT_TICK;
@@ -398,7 +401,7 @@
 =item cf::periodic $interval, $cb
 
 Like EV::periodic, but randomly selects a starting point so that the actions
-get spread over timer.
+get spread over time.
 
 =cut
 
@@ -588,6 +591,17 @@
    wantarray ? @res : $res[-1]
 }
 
+sub objinfo {
+   (
+      "counter value"     => cf::object::object_count,
+      "objects created"   => cf::object::create_count,
+      "objects destroyed" => cf::object::destroy_count,
+      "freelist size"     => cf::object::free_count,
+      "allocated objects" => cf::object::objects_size,
+      "active objects"    => cf::object::actives_size,
+   )
+}
+
 =item $coin = coin_from_name $name
 
 =cut