Switch to edit mode.
Name(s): connect(old)1: "Copied from The Connections Thingy (#4172):co by Slacker (#2) Sep 14 16:55:37 1997"
2: if (caller != this)
3: return
4: endif
5: if (!this:check_jabber())
6: "Doh."
7: " this:reload_jabber();"
8: endif
9: argstr = dobjstr = ""
10: host = $string_utils:connection_hostname(this.jabber_host)
11: this.language = verb[1..2] == "ac" ? 2 | 1
12: {?name = "", ?pwd = ""} = args
13: if (!name)
14: player:tell("Please enter your player's name: (or \"guest\" if you don't have a player)")
15: name = this:prompt("NAME > ")
16: force_input(this.jabber, verb + " " + name)
17: return
18: elseif (!pwd && #-1 == this:do_authorize(name, pwd))
19: player:tell("Please enter ", name, "'s password:")
20: pwd = this:prompt("PASSWORD > ", 0)
21: player:tell()
22: force_input(this.jabber, verb + " " + name + " " + pwd)
23: return
24: endif
25: if (!valid(who = this:do_authorize(name, pwd)))
26: $msg:mtell(who == $failed_match ? "bad_player" | "bad_password", name)
27: return
28: elseif (this:yellowlisted(host) && !this:yellow_exempt(who))
29: $msg:mtell("yellowlisted")
30: return
31: elseif ($wiz_utils:isnewt(who) && !who.wizard)
32: sentence = who.nologin[1] - time()
33: notifier = who.nologin[2]
34: player:sub_tell(notifier, who, $string_utils:from_seconds(sentence, 1))
35: $msg:mtell(who, "newt_login", who)
36: return
37: elseif ($object_utils:isa(who, $guest))
38: if (this:new_blacklist(host))
39: $msg:mtell("blacklisted")
40: return
41: elseif (!valid(who = who:defer(string_hash(host))))
42: $msg:mtell("outtaguests")
43: return
44: endif
45: endif
46: fork (0)
47: if (this:graylisted(host) && !$tcm)
48: $wiz_utils:guard_alert("Connection from a graylisted site (", host, ") by ", who.name, " (", who, ")")
49: endif
50: endfork
51: who.language = this.language
52: return who
53: "Last modified by Dax (#789) on Tue Jun 2 17:08:19 1998 EDT."