6a7
@verb #0:"checkpoint_finished" this none this rxdo #55
@program #0:"checkpoint_finished" this none this
if (valid(caller_perms()))
  return
endif
if (!$running_checkpoint)
  return
endif
unforked = this.checkpoint_unforked
this.checkpoint_unforked = 0
if (args[1])
  $last_checkpoint_time = $running_checkpoint
  if (unforked)
    $wiz_utils:moo_alertall("Checkpoint completed in ", $time_utils:english_time(time() - $last_checkpoint_time), ".")
  else
    $wiz_utils:guard_alert(tostr("Checkpoint completed OK (yay!) in ", $time_utils:english_time(z = time() - $last_checkpoint_time), "."))
    "    if ((db_disk_size() - #2765.cp_times[$][3]) > 3000000)"
    "      \"We've grown three or more megabytes since the last checkpoint.. let's try to find out why.\";"
    "      #8084.peak = {};"
    "      for x in [#0..max_object()]"
    "        #8084.peak = {@#8084.peak, {x, object_bytes(x)}};"
    "        $cmd_utils:suspend_if_needed(0);"
    "      endfor"
    "    endif"
    "    #2765.cp_times = {@#2765.cp_times, {z, time(), db_disk_size(), memory_usage()}};"
  endif
else
  $wiz_utils:guard_alert("AAIIEEE!!! Checkpoint failed!!")
  if ($retry_failed_checkpoints)
    suspend(10)
    dump_database()
  endif
endif
$running_checkpoint = 0
"Resume any help tasks that were suspended during the checkpoint."
for x in ($help_utils.hold)
  `resume(x) ! ANY'
  "  suspend(0);"
  "Rather than letting this task run right now, we'll wait until we've resumed them all and let the MOO's scheduler deal out CPU time. - Lao."
  $cmd_utils:suspend_if_needed(0)
endfor
$help_utils.hold = {}
"Last modified by Lao-Tzu (#8084) on Thu Dec 20 15:42:12 2001 MST."
.

0