View/Edit #12:@iplist @uniplist

Switch to edit mode.

Name(s): @iplist @uniplist
1:  if (player != this)
2:    return $msg:mtell("huh")
3:  endif
4:  if (dobjstr)
5:    if (verb == "@iplist")
6:      if (dobjstr in this.IPlist)
7:        player:tell("'", dobjstr, "' is already in your IP list.")
8:      else
9:        if (!$cmd_utils:yes_or_no("Add '" + dobjstr + "' to your iplist? (This restricts what internet addresses you can connect from!)"))
10:         return
11:       endif
12:       player:tell("'", dobjstr, "' has been added to your IP list.")
13:       this.IPlist = setadd(this.IPlist, dobjstr)
14:     endif
15:   else
16:     if (dobjstr in this.IPlist)
17:       this.IPlist = setremove(this.IPlist, dobjstr)
18:       player:tell("'", dobjstr, "' has been removed from your IP list.")
19:     else
20:       player:tell("'", dobjstr, "' was not in your IP list.")
21:     endif
22:   endif
23: endif
24: if (this.IPlist)
25:   player:tell({"You may only login from these sites:", @this.IPlist})
26:   host = $string_utils:connection_hostname(connection_name(player))
27:   player:tell("This IP list ", $login:IPlisted(host, player) ? "DOES" | "DOES NOT", " allow you to login from your current connection site (", host, ").")
28: else
29:   player:tell("Your IP list is empty.  You may login from anywhere.")
30: endif
31: "Last modified by Dax (#789) on Mon Dec 10 21:08:32 2001 MST."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.

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