1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#
# This script just quickly maps old tcl functions to the new ones,
# use this is you are to lazy to get of your butt and update your scripts :D
#
proc gethosts {handle} {
return [getuser $handle HOSTS]
}
proc addhost {handle host} {
setuser $handle HOSTS $host
}
proc chpass {handle newpass} {
setuser $handle PASS $newpass
}
# setxtra is no longer relevant
proc getxtra {handle} {
return [getuser $handle XTRA]
}
proc setinfo {handle info} {
setuser $handle INFO $info
}
proc getinfo {handle} {
return [getuser $handle INFO]
}
proc getaddr {handle} {
return [getuser $handle BOTADDR]
}
proc setaddr {handle addr} {
setuser $handle BOTADDR $addr
}
proc getdccdir {handle} {
return [getuser $handle DCCDIR]
}
proc setdccdir {handle dccdir} {
setuser $handle DCCDIR $dccdir
}
proc getcomment {handle} {
return [getuser $handle COMMENT]
}
proc setcomment {handle comment} {
setuser $handle COMMENT $comment
}
proc getemail {handle} {
return [getuser $handle XTRA email]
}
proc setemail {handle email} {
setuser $handle XTRA EMAIL $email
}
proc getchanlaston {handle} {
return [lindex [getuser $handle LASTON] 1]
}
# as you can see it takes a lot of effort to simulate all the old commands
# and adapting your scripts will take such an effort you better include
# this file forever and a day :D
|
