/usr/share/znc/modtcl/modtcl.tcl is in znc-tcl 1.4-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 | # Copyright (C) 2004-2014 ZNC, see the NOTICE file for details.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
# TCL master file for ZNC modtcl
#
# Usage: LoadModule = modtcl /path/to/this/file
#
# rehash simply reloads this file and shows info for any errors
set ::MasterFile [info script]
proc rehash {} {
if {[catch {source $::MasterFile}]} {
PutModule "Error rehashing tcl master file: $::errorInfo"
}
}
proc bgerror {message} {
PutModule "Background error: $::errorInfo"
}
# set basic eggdrop style variables
set ::botnet-nick ZNC_[GetUsername]
set ::botnick [GetCurNick]
set ::server [GetServer]
set ::server-online [expr [GetServerOnline] / 1000]
# add some eggdrop style procs
proc putlog message {PutModule $message}
proc puthelp {text {option ""}} {
if {[regexp -nocase {^(?:privmsg|notice) (\S+) :(.*)} $text . target line]} {
if {$target == "*modtcl"} {PutModule $line; return}
if {$target == "*status"} {PutStatus $line; return}
if {[string index $target 0] != "#" || [botonchan $target]} {PutUser ":$::botnick![getchanhost $::botnick] $text"}
}
PutIRC $text
}
proc putserv {text {option ""}} {puthelp $text}
proc putquick {text {option ""}} {puthelp $text}
proc stripcodes {flags args} {return [regsub -all {\xF|\x2|\x16|\x1F|\x7|\x3([0-9]{1,2})?(,[0-9]{1,2})?} [join $args] {}]}
proc unixtime {} {return [clock seconds]}
proc duration {s} {
set ret ""
foreach {n m} "year 31536000 week 604800 day 86400 hour 3600 minute 60 second 1" {
if {$s >= $m} {
set tmp [expr $s / $m]
if {$tmp == 1} {set i ""} else {set i "s"}
set ret $ret[format "%lu %s%s " $tmp $n $i]
incr s -[expr $tmp * $m]
}
}
return $ret
}
proc encrypt {key string} {return [bencrypt $key $string]}
proc decrypt {key string} {return [bdecrypt $key $string]}
proc channels {} {return [GetChans]}
proc chanlist {channel {flags ""}} {
set ret ""
foreach u [GetChannelUsers [string trim $channel "{}"]] {lappend ret [lindex $u 0]}
return $ret
}
proc getchanmode channel {return [GetChannelModes [string trim $channel "{}"]]}
proc getchanhost {nick {channel ""}} {
# TODO: to have full info here we need to use /who #chan when we join
if {$channel == ""} {set channel [join [channels]]}
foreach c $channel {
foreach u [GetChannelUsers $c] {
if {[string match $nick [lindex $u 0]]} {
return "[lindex $u 1]@[lindex $u 2]"
}
}
}
return ""
}
proc onchan {nick chan} {return [expr [lsearch -exact [string tolower [chanlist $chan]] [string tolower $nick]] != -1]}
proc botonchan channel {return [onchan $::botnick $channel]}
proc isop {nick {channel ""}} {return [PermCheck $nick "@" $channel]}
proc isvoice {nick {channel ""}} {return [PermCheck $nick "+" $channel]}
proc botisop {{channel ""}} {return [isop $::botnick $channel]}
proc botisvoice {{channel ""}} {return [isvoice $::botnick $channel]}
proc PermCheck {nick perm channel} {
if {$channel == ""} {set channel [channels]}
if {[ModuleLoaded crypt]} {regsub {^\244} $nick {} nick}
foreach c $channel {
foreach u [GetChannelUsers $c] {
if {[string match -nocase $nick [lindex $u 0]] && [string match *$perm* [lindex $u 3]]} {
return 1
}
}
}
return 0
}
proc ModuleLoaded modname {
foreach {mod args glob} [join [GetModules]] {
if {[string match -nocase $modname $mod]} {return 1}
}
return 0
}
# rewrite all timers to use the after command
proc utimer {seconds tcl-command} {after [expr $seconds * 1000] ${tcl-command}}
proc timer {minutes tcl-command} {after [expr $minutes * 60 * 1000] ${tcl-command}}
proc utimers {} {set t {}; foreach a [after info] {lappend t "0 [lindex [after info $a] 0] $a"}; return $t}
proc timers {} {set t {}; foreach a [after info] {lappend t "0 [lindex [after info $a] 0] $a"}; return $t}
proc killtimer id {return [after cancel $id]}
proc killutimer id {return [after cancel $id]}
# pseudo procs to satisfy script loading, no functionality
proc setudef {type name} {return}
proc modules {} {return "encryption"}
proc channel {command {options ""}} {return ""}
proc queuesize {{queue ""}} {return 0}
proc matchattr {handle flags {channel ""}} {return 0}
# load other script files
source [file dirname $::MasterFile]/binds.tcl
PutModule "Succesfully loaded modtcl with master file: [info script]"
|