ServersLog.tcl
View Options

	package require rest

	bind pub - .+log pub:log
	bind dcc - +log dcc:log

	bind pubm - "#* \[\] " pubm:log

	proc pubm:log {nick uhost handle chan text} {
	if {[isbot $nick]} {
	return 0
	}

	regexp "^\\\[(.)\\\] (.)" $text match component entry

	if {![could_be_a_component $component]} {
	return 0
	}

	if {[is_known_component $component]} {
	set callback [get_putbymode_chan_callback $chan $nick]
	handle_send_to_servers_log [resolve_nick $nick] $chan $text $callback
	putcmdlog "<<$nick>> !$handle! .+log $text"
	} {
	putserv "PRIVMSG $chan :$nick, if you wish to log that, confirm with .+log $text"
	}
	}

	proc pub:log {nick uhost handle chan arg} {
	set callback [get_putbymode_chan_callback $chan $nick]
	handle_send_to_servers_log [resolve_nick $nick] $chan $arg $callback
	}

	proc dcc:log {handle idx arg} {
	global username
	handle_send_to_servers_log $handle $username $arg "dcc $idx"
	}

	proc is_known_component {candidate} {
	# If "Dwellers" is a known component, are known:
	# - Dwellers
	# - Dwellers/DevCentral

	foreach component [registry get serverslog.knowncomponents] {
	if {[regexp ^${component}(/.+)?$ $candidate]} {
	return 1
	}
	}

	return 0
	}

	proc could_be_a_component {candidate} {
	set firstCharacter [string index $candidate 0]

	# Dates and numeric sequences are ignored
	if {[string is digit $firstCharacter]} {
	return 0
	}

	if {$firstCharacter == " "} {
	return 0
	}

	foreach component [registry get serverslog.knownnotcomponents] {
	if {$candidate == $component} {
	return 0
	}
	}

	return 1
	}

	proc handle_send_to_servers_log {emitter source arg callback} {
	global network

	#Parse [component] entry
	if {[regexp "\\\[(.)\\\] (.)" $arg match component entry]} {
	add_to_servers_log $emitter "$network $source" $component $entry
	return 1
	} {
	putbymode $callback "use the format \[component\] message"
	return 0
	}
	}

	proc add_to_servers_log {emitter source component entry} {
	set request [dict2json "
	date [iso8601date]
	emitter $emitter
	source {$source}
	component {$component}
	entry {$entry}
	"]

	rest::simple https://api.nasqueron.org/servers-log/ {} {
	method PUT
	content-type application/json
	format json
	} $request
	}

File Metadata

Mime Type: text/plain
Expires: Tue, May 13, 16:57 (21 h, 8 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 2634674
Default Alt Text: ServersLog.tcl (2 KB)

ServersLog.tcl
No OneTemporary
Actions

ServersLog.tcl
View Options

File Metadata

Event Timeline

ServersLog.tclNo OneTemporaryActions

ServersLog.tclView Options

File Metadata

Event Timeline

ServersLog.tcl
No OneTemporary
Actions

ServersLog.tcl
View Options