View/Edit #142:cyclecache

Switch to edit mode.

1:  if (!caller_perms().wizard)
2:    raise(E_PERM)
3:  endif
4:  time = time()
5:  i = 1
6:  while (i <= length($dns_utils.cache))
7:    if ($dns_utils.cache[i][2] < time)
8:      $dns_utils.cache = listdelete($dns_utils.cache, i)
9:    else
10:     i = i + 1
11:   endif
12:   $command_utils:suspend_if_needed(0)
13: endwhile
14: "Last modified by manta (#7165) on Sun Feb 27 15:52:51 2000 MST."
15: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
16: "Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."

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