View/Edit #54:_get_ghost

Name(s): _get_ghost

1:  if (!caller_perms().wizard)
2:    raise(E_PERM)
3:  endif
4:  if (this:fileexists("ghost"))
5:    image = this:fileread("ghost")
6:    suspend(0)
7:    return $file_utils:to_value(image)[2]
8:  else
9:    backup_ghost = pass(@args)
10:   fork (0)
11:     this:_set_ghost(backup_ghost)
12:   endfork
13:   return backup_ghost
14: endif
15: "Last modified by Raptor (#6319) on Wed Nov  4 16:49:11 1998 EST."
16: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
17: "Last modified by Dax (#789) on Sat Aug 17 14:50:05 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.