File: server.tcl

package info (click to toggle)
circus 0.43-1
  • links: PTS
  • area: non-free
  • in suites: hamm, potato, slink
  • size: 1,868 kB
  • ctags: 236
  • sloc: tcl: 6,574; sh: 157; ansic: 66; makefile: 36
file content (14 lines) | stat: -rw-r--r-- 230 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#
# Basic procedures to send messages to the server

proc	msg {target message} {
	raw "PRIVMSG $target: $message"
}

proc	join {target {key ""}} {
	raw "JOIN $target key"
}

proc	mode {target modes} {
	raw "MODE $target $modes"
}