1# Main body of code.
2
3puts -nonewline "Loading [info script] ..."
4
5#    $cn connect irc.freenode.net 6667
6$cn registerevent 001 "$cn join $channel"
7
8# Register a default action for commands from the server.
9$cn registerevent defaultcmd {
10    puts "[action] [msg]"
11}
12
13# Register a default action for numeric events from the server.
14$cn registerevent defaultnumeric {
15    puts "[action] XXX [target] XXX [msg]"
16}
17
18# Register a default action for events.
19$cn registerevent defaultevent {
20    puts "[action] XXX [who] XXX [target] XXX [msg]"
21}
22
23# Register a default action for PRIVMSG (either public or to a
24# channel).
25
26$cn registerevent PRIVMSG {
27    puts "[who] says to [target] [msg]"
28}
29
30# If you uncomment this, you can change this file and reload it
31# without shutting down the network connection.
32
33if {0} {
34    $cn registerevent PRIVMSG {
35	puts "[who] says to [target] [msg]"
36	if { [msg] == "RELOAD" && [target] == $::ircclient::nick } {
37	    if [catch {
38		::irc::reload
39	    } err] {
40		puts "Error: $err"
41	    }
42	    set ::ircclient::RELOAD 1
43	}
44    }
45}
46
47$cn registerevent KICK {
48    puts "[who] KICKed [target] : [msg]"
49}
50
51puts " done"
52