4 $msgType => Process.pl#7:
5 $message => Process.pl#7:
6 $origWho => Process.pl#12: untouched $who variable.
7 $origMessage => Process.pl#13: untouched $message variable.
8 $origIn => Question.pl#15: (my) successful (not repeated) asked factoid
10 $message => Process.pl#6:
11 $nuh => Irc.pl#279: nick-user-host
12 $userHandle => User.pl: handle which nick is registered under.
15 %channels => $channels{$channel}{$mode}{$nick}
16 %chanstats => $chanstats{$channel}{TYPE}
17 %cmdstats => $cmdstats{TYPE}
18 %userList => $userList{$user}{$type}
19 %userList => $userList{$user}{'mask'}{$what} = 1;
22 ### Thorough check and cleanup of... (comments need to be read though)
29 ### Address testing with the "new" code.
30 ### nick == $1, text = $'
33 blah:erp good... about time got it to work.
34 blah:erp erp good... ditto
46 unfski:erp hrm... good :)
47 unfski:erp erp hrm... good :)
58 &DoModes($chan,$modes,$targets);
59 &DeleteUserInfo($nick,@chans);
60 # NOTE: subhash list can only be deleted with "delete" not with "undef".
61 foreach $chan (keys %channels) {
62 foreach $mode (keys %{$channels{$chan}}) {
63 foreach $user (keys %{$channels{$chan}{$mode}}) {
65 ### &DeleteUserInfo().
66 # DUI: type working fix
67 # part yes undef=>delete
68 # sign yes fe loops=>DUI($n,%c);
69 # nick yes undef=>delete
74 ### Soon to be new format of factoid.db, or at least infobot-extra.db
76 [factoid key] -> [created].[modified].[requests].[locked]
78 [who by] [who by] [who by] [who by]
79 [time] [time] [time] [time]
82 $db{'key'} = $created_by .$;. $created_time .$;$;.
83 $modified_by .$;. $modified_time .$;$;.
84 $request_by .$;. $request_time .$;. $request_count .$;$;.
85 $locked_by .$;. $locked_time;
87 factoid can only be unlocked by creator. possibly need to be matched
88 against nick || user@*.x.org || user@x.y.z.*
91 # forget: factoid locking half-done TODO
93 # factoid update (2 create; 4 modify) DONE.
96 raw: ..... KICK #tnflesh damagick :i can do this too
97 940445681 [12632] >>> [1mtoo[0m was kicked off [1m#tnflesh damagick :i \
98 can do this[0m by [1mChimmy[0m ([1mP[0m)
99 my ($kicker, $chan, $knick, $why) = @_;