View/Edit #81:notify

Switch to edit mode.

1:  caller == this || $perm_utils:controls(caller_perms(), this) || raise(E_PERM)
2:  if (this == $webber)
3:    return
4:  endif
5:  this.last_active = time()
6:  if (typeof(args[1]) == $LIST)
7:    for line in (args[1])
8:      "    (length(line) > (buffered_output_length() / 4)) && raise(E_QUOTA);"
9:      notify(this, line)
10:     this.bytes = this.bytes + length(line) + 1
11:     this:pause()
12:   endfor
13:   if (this.daemon.spies)
14:     fork (0)
15:       for x in (this.daemon.spies)
16:         for line in (args[1])
17:           x:notify(tostr("[", this, "]: ", line))
18:         endfor
19:       endfor
20:     endfork
21:   endif
22: else
23:   notify(this, args[1])
24:   this.bytes = this.bytes + length(args[1]) + 1
25:   this:pause()
26:   for x in (this.daemon.spies)
27:     x:notify(tostr("[", this, "]: ", args[1]))
28:   endfor
29: endif
30: "Last modified by Dax (#789) on Tue May  3 13:45:02 2005 MDT."

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