Server.tcl
No OneTemporary
Actions

Size

2 KB

Referenced Files

None

Subscribers

None

Server.tcl
View Options

	# ===============================================
	# ========= ==== ====== ============
	# ============ ====== === === = ==========
	# ============ ===== ======== === =========
	# ============ ===== ============= ==========
	# ============ ===== ============ ===========
	# == DcK ===== ===== =========== ============
	# ============ ===== ========== =============
	# ============ ====== === === ==============
	# ============ ======= === ==========
	# ===============================================
	# ===============================================
	# == Tau Ceti Central == Server administration ==
	# == This is a very dangerous product to use ==
	# == Don't deploy it in stable environment ==
	# == Or say goodbye to the serv security ==
	# == This warning will not be repeated ==
	# == All your base are belong to us! ==
	# ===============================================
	# ===============================================
	#
	# (c) 2011 Sébastien Santoro aka Dereckson.
	# Released under BSD license.

	#
	# Binds
	#

	bind bot - tc2 bot:tc2

	#Commands aliases only, main commands are handled by tc2:initialize
	bind dcc W php-fpm dcc:phpfpm
	bind pub W .php-fpm pub:phpfpm
	bind pub - .df pub:df

	#
	# Initializes bind and creates procedures for every tc2 commands
	#

	proc tc2:addcommand {command} {
	set proc_tc2_command_dcc {
	tc2 dcc $idx $handle %COMMAND% $arg
	return 1
	}
	set proc_tc2_command_pub {
	tc2 pub "$chan $nick" $handle %COMMAND% $text
	return 1
	}
	bind dcc W $command dcc:$command
	bind pub W ".$command" pub:$command
	proc dcc:$command {handle idx arg} [string map "%COMMAND% $command" $proc_tc2_command_dcc]
	proc pub:$command {nick uhost handle chan text} [string map "%COMMAND% $command" $proc_tc2_command_pub]

	}

	proc tc2:initialize {} {
	foreach command [registry get tc2.commands] {
	tc2:addcommand $command
	}
	}

	tc2:initialize

	#
	# TC2 client procedures
	#

	proc bot:tc2 {sourcebot command text} {
	if [catch {
	set success [dict get $text success]
	set reply [dict get $text reply]
	set bind [dict get $text bind]
	set who [dict get $text who]
	tc2:reply $bind $who $reply
	}] {
	putdebug $text
	}
	}

	proc tc2 {bind who handle command arg} {
	set bot [registry get tc2.bot]
	if ![islinked $bot] {
	tc2:reply $bind $who "$bot isn't linked"
	return
	}
	putbot $bot "tc2 [dict create requester $handle command $command arg $arg bind $bind who $who]"
	}

	proc tc2:reply {bind who message} {
	if {$bind == "dcc"} {
	putdcc $who $message
	} elseif {$bind == "pub"} {
	foreach "chan nick" $who {}
	putserv "PRIVMSG $chan :$nick, $message"
	} {
	error "Unknown bind in tc2:reply: $bind (expected: dcc or pub)"
	}
	}

File Metadata

Mime Type: text/plain
Expires: Thu, Dec 26, 02:32 (19 h, 11 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 2314153
Default Alt Text: Server.tcl (2 KB)

Server.tclNo OneTemporaryActions

Server.tclView Options

File Metadata

Event Timeline

Server.tcl
No OneTemporary
Actions

Server.tcl
View Options