arbchanmodes.tcl
Public
Actions

Authored By

	dereckson
	Apr 7 2015, 15:33

Size

5 KB

Referenced Files

None

Subscribers

None

arbchanmodes.tcl
View Options

	# arbchanmodes.tcl
	# Provides additional Eggdrop Tcl functions to check for any valid user prefix
	#
	# 2010-2014 (c) Thomas "thommey" Sader
	#
	# ----------------------------------------------------------------------------
	# "THE BEER-WARE LICENSE" (Revision 42):
	# <thommey@gmail.com> wrote this file. As long as you retain this notice you
	# can do whatever you want with this stuff. If we meet some day, and you think
	# this stuff is worth it, you can buy me a beer in return. Thomas Sader
	# ----------------------------------------------------------------------------
	#
	# Adds the following Tcl functions:
	#
	# isowner <nick> [chan] - checks for prefix ~ (mode +q)
	# isadmin <nick> [chan] - checks for prefix & (mode +a)
	#
	###############
	# If you touch the code below and then complain the script "suddenly stopped working" I'll touch you at night.
	###############

	package require Tcl 8.4
	package require eggdrop

	proc lchange {varname old new} {
	upvar 1 $varname list
	if {![info exists list]} { return }
	while {[set pos [lsearch -exact $list $old]] != -1} {
	set list [lreplace $list $pos $pos]
	lappend list $new
	}
	return $list
	}

	proc lremove {varname element} {
	upvar 1 $varname list
	if {![info exists list]} { return }
	while {[set pos [lsearch -exact $list $element]] != -1} {
	set list [lreplace $list $pos $pos]
	}
	return $list
	}

	bind raw - 005 parse005
	proc parse005 {from key text} {
	if {[regexp {CHANMODES=(\S+)} $text -> modes]} {
	set ::modeconfig [split $modes ,]
	}
	if {[regexp {PREFIX=$(\S+)$} $text -> umodes]} {
	set ::umodeconfig $umodes
	}
	return 0
	}

	proc modeparam {pre modechar} {
	if {![info exists ::umodeconfig]} {
	putlog "Arbchanmodes: Could not get usermodeconfig from raw 005!"
	set ::umodeconfig qaohv
	}
	if {![info exists ::modeconfig]} {
	putlog "Arbchanmodes: Could not get modeconfig from raw 005!"
	set ::modeconfig [split beI,kfL,lj,psmntirRcOAQKVCuzNSMTGZ ,]
	}
	set pls [expr {$pre eq "+"}]
	if {[string match $modechar $::umodeconfig] \|\| [string match $modechar [lindex $::modeconfig 0]] \|\| [string match $modechar [lindex $::modeconfig 1]]} {
	return 1
	}
	if {[string match $modechar [lindex $modeconfig 2]]} {
	return $pls
	}
	if {[string match $modechar [lindex $modeconfig 3]]} {
	return 0
	}
	putlog "Arbchanmodes: Unknown mode char '$modechar'!"
	return 0
	}


	bind raw - MODE parsemode
	# "thommey!thommey@tclhelp.net MODE #thommey -v+v TCL ^\|^"
	proc parsemode {from key text} {
	set text [split $text]
	set chan [string tolower [lindex $text 0]]
	if {![validchan $chan]} { return }
	foreach {mode victim} [parsemodestr [lindex $text 1] [lrange $text 2 end]] {
	set victim [string tolower $victim]
	if {$mode eq "+q"} { lappend ::_owners($chan) $victim }
	if {$mode eq "-q"} { lremove ::_owners($chan) $victim }
	if {$mode eq "+a"} { lappend ::_admins($chan) $victim }
	if {$mode eq "-a"} { lremove ::_admins($chan) $victim }
	}
	return 0
	}

	# removes first element from the list and returns it
	proc pop {varname} {
	upvar 1 $varname list
	if {![info exists list]} { return "" }
	set elem [lindex $list 0]
	set list [lrange $list 1 end]
	return $elem
	}

	# parses a modestring "+v-v" and a list of victims {nick1 nick2} and returns a flat list in the form {modechange victim modechange victim ..}
	# static modelist with parameters taken from unrealircd (better do it dynamically on raw 005 ;)
	proc parsemodestr {modestr victims} {
	set result [list]
	set pre "+"
	foreach char [split $modestr ""] {
	if {$char eq "+" \|\| $char eq "-"} {
	set pre $char
	} else {
	set param [expr {[modeparam $pre $char] ? [pop victims] : ""}]
	lappend result $pre$char $param
	}
	}
	set result
	}

	proc isowner {nick chan} {
	set nick [string tolower $nick]
	set chan [string tolower $chan]
	if {![info exists ::_owners($chan)]} { return 0 }
	if {[lsearch -exact $::_owners($chan) $nick] == -1} { return 0 }
	return 1
	}

	proc isadmin {nick chan} {
	set nick [string tolower $nick]
	set chan [string tolower $chan]
	if {![info exists ::_admins($chan)]} { return 0 }
	if {[lsearch -exact $::_admins($chan) $nick] == -1} { return 0 }
	return 1
	}

	proc resetlists {chan} {
	if {[validchan $chan]} {
	set channels [list $chan]
	} else {
	set channels [channels]
	}
	foreach chan [channels] {
	set chan [string tolower $chan]
	unset -nocomplain ::_owners($chan)
	unset -nocomplain ::_admins($chan)
	}
	}

	bind raw - 352 parsewho
	proc parsewho {f k t} {
	foreach {mynick chan ident host server nick flags} [split $t] break
	set nick [string tolower $nick]
	set chan [string tolower $chan]
	if {![validchan $chan]} { return }
	if {[string first "~" $flags] != -1} { lappend ::_owners($chan) $nick }
	if {[string first "&" $flags] != -1} { lappend ::_admins($chan) $nick }
	return 0
	}

	bind nick - * checktheynick
	bind part - * checktheyleft
	bind sign - * checktheyleft
	proc checktheynick {nick host hand chan newnick} {
	set chan [string tolower $chan]
	set nick [string tolower $nick]
	set newnick [string tolower $newnick]
	lchange ::_owners($chan) $nick $newnick
	lchange ::_admins($chan) $nick $newnick
	}
	proc checktheyleft {nick host hand chan reason} {
	set nick [string tolower $nick]
	set chan [string tolower $chan]
	lremove ::_owners($chan) $nick
	lremove ::_admins($chan) $nick
	}

	# Handle eggdrop leaving channels
	bind part - * checkileft
	bind sign - * checkileft
	bind kick - * checkikicked
	bind evnt - disconnect-server resetlists

	proc checkileft {nick host hand chan {msg ""}} {
	if {![isbotnick $nick]} { return }
	resetlists $chan
	}
	proc checkikicked {nick host hand chan target reason} {
	if {![isbotnick $target]} { return }
	resetlists $chan
	}

File Metadata

Mime Type: text/plain
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 1608
Default Alt Text: arbchanmodes.tcl (5 KB)

arbchanmodes.tclPublicActions

arbchanmodes.tclView Options

File Metadata

Event Timeline

arbchanmodes.tcl
Public
Actions

arbchanmodes.tcl
View Options