View/Edit #1997:_kick

Switch to edit mode.

Name(s): _kick
1:  "Begin generic security check (_kick)"
2:  if (verb == "_kick" && !args[1]:isa(this))
3:    raise(E_INVARG, "Illegal object", args[1])
4:    return E_INVARG
5:  endif
6:  "End generic security check (_kick)"
7:  if (!$code_utils:task_valid(this.task_id))
8:    this.task_id = task_id()
9:    this:filewrite(this.filename + ".new", {})
10:   this:write(#1, 1)
11:   "Replace old version with new one."
12:   `this:filedelete(this.filename) ! ANY'
13:   this:filerename(this.filename + ".new", this.filename)
14:   this.last_kick = time()
15: endif
16: "Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."

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

You are not logged in.

[home | help | who | search | setup | code]