Code:

      # **********************************************************************       # * author check       # *              if { ![string equal "d09dd6c5ebe3dcb3bbcf90bf95a0376e" [md5 $::sitelist::variable::author]] } {          die "Tztztz ... it's not your work!"       }

Code:

[10:12] Tcl error in file 'modeggdrop.conf':[10:12] can't set "trigger(help)": variable isn't array    while executing"array set trigger {"help""site.help""site-list""site.list""site-info""site.info""site-add""site.add""site-del"..."    (in namespace eval "::variable" script line 46)    invoked from within"namespace eval variable {# string variable channelsvariable channel "#test"# integer variable style# 0 = private# 1 = chan..."    (file "scripts/sitelist/sitelist[10:12] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Code:

# **********************************************************************# * name.....: sitelist# * version..: 1.4# * date.....: 14:49 2007/04/03# * author...: ztx/PPX# *   # **********************************************************************   # * sitelist namespace   # *      namespace eval ::sitelist {             # **********************************************************************# * sitelist settings# *namespace eval variable {# string variable channelsvariable channel "#test"# integer variable style# 0 = private# 1 = channelvariable style 1# string variable sqlitevariable sqlite "/home/bigmike/test/scripts/sitelist/tclsqlite-3.3.13.so"# string variable databasevariable database "/home/bigmike/test/eggdrop/scripts/sitelist/sitelist.db"# array variable information# 0 = disabled# 1 = enabled and only listed in fullinfo# 2 = enabled and listed in fullinfo and sitelistarray set information {"link"1"diskspace"2"gadmin"1"siteops"1"location"2"bncs"1"ranking"1"affils"1}# array variable outputarray set output {"list-site""#%NR% \002%SITETOKEN%\002""list-info"" \002x\002 \037%INFONAME%\037: %INFOVALUE%""detail-site""\002%SITENAME%\002 \[%SITETOKEN%\]""detail-info""\037%INFONAME%\037: %INFOVALUE%""bnc-online""%BNC% (\0033up\003)""bnc-offline""%BNC% (\0034dn\003)""search""#%NR% \002%SITETOKEN%\002 \002x\002 \037%INFONAME%\037: %INFOVALUE%""check-one""\002%SITETOKEN%\002 \002x\002 \037bncs\037: %BNCS%""check-all""#%NR% \002%SITETOKEN%\002 \002x\002 \037bncs\037: %BNCS%"}# array variable triggerarray set trigger {"help""site.help""site-list""site.list""site-info""site.info""site-add""site.add""site-del""site.delete""site-change""site.change""site-search""site.search""site-checkbncs""site.checkbncs"}# string variable versionvariable version "1.4"# string variable authorvariable author "ztx/PPX"}# **********************************************************************# * sitelist binds# *bind pub - $::sitelist::variable::trigger(help) ::sitelist::pub::helpbind pub - $::sitelist::variable::trigger(site-list) ::sitelist::pub::sitelistbind pub - $::sitelist::variable::trigger(site-info) ::sitelist::pub::siteinfobind pub - $::sitelist::variable::trigger(site-add) ::sitelist::pub::siteaddbind pub - $::sitelist::variable::trigger(site-del) ::sitelist::pub::sitedelbind pub - $::sitelist::variable::trigger(site-change) ::sitelist::pub::sitechangebind pub - $::sitelist::variable::trigger(site-search) ::sitelist::pub::sitesearchbind pub - $::sitelist::variable::trigger(site-checkbncs) ::sitelist::pub::sitecheckbncs# **********************************************************************# * database# *load $::sitelist::variable::sqlitesqlite3 database $::sitelist::variable::databasedatabase eval "CREATE TABLE IF NOT EXISTS sl_sites(site_token TEXT PRIMARY KEY, site_name TEXT)"database eval "CREATE TABLE IF NOT EXISTS sl_information(info_site_token TEXT, info_name TEXT, info_value TEXT)"# **********************************************************************# * sitelist pub namespace# *namespace eval pub {# void proc helpproc help { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] } {return 0}foreach { field status } [array get ::sitelist::variable::information] {if { $status > 0 } {lappend fields $field}}::sitelist::misc::privmsg $channel "\037sitelist command overview:\037"::sitelist::misc::privmsg $channel "\002$::sitelist::variable::trigger(site-list)\002 <password> - Lists all sites."::sitelist::misc::privmsg $channel "\002$::sitelist::variable::trigger(site-info)\002 <password> <sitetoken> - Shows detailed site information."::sitelist::misc::privmsg $channel "\002$::sitelist::variable::trigger(site-add)\002 <password> <sitetoken> <sitename> - Adds a site to the database."::sitelist::misc::privmsg $channel "\002$::sitelist::variable::trigger(site-del)\002 <password> <sitetoken> - Deletes a site from the database."::sitelist::misc::privmsg $channel "\002$::sitelist::variable::trigger(site-change)\002 <password> <sitetoken> <field> \[value\] \[value\] ... - Adds, deletes or changes a site information."::sitelist::misc::privmsg $channel "\002$::sitelist::variable::trigger(site-search)\002 <password> <field> <pattern> \[pattern\] ... - Searchs for sites with a specified information."if { $::sitelist::variable::information(bncs) } {::sitelist::misc::privmsg $channel "\002$::sitelist::variable::trigger(site-checkbncs)\002 <password> \[sitetoken\] - Checks bnc status."}::sitelist::misc::privmsg $channel "Allowed fields are: [join $fields ", "]"}# void proc sitelistproc sitelist { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] } {return 0}if { [llength [split $arg " "]] != 1 } {::sitelist::misc::privmsg $channel "\002Syntax:\002 $::sitelist::variable::trigger(site-list) <password>"return 0}set param_password [lindex [split $arg " "] 0]set param_nr 0switch -- $::sitelist::variable::style {0 { set target $nick }default { set target $channel }}database eval "SELECT * FROM sl_sites" site {set msg [string map [list "%NR%" "[incr param_nr]" "%SITETOKEN%" "[decrypt $param_password $site(site_token)]" "%SITENAME%" "[decrypt $param_password $site(site_name)]"] $::sitelist::variable::output(list-site)]foreach { field status } [array get ::sitelist::variable::information] {if { $status != 2 || ![database exists "SELECT info_value FROM sl_information WHERE info_site_token = '$site(site_token)' AND info_name = '[encrypt $param_password $field]'"] } {continue}database eval "SELECT info_name, info_value FROM sl_information WHERE info_site_token = '$site(site_token)' AND info_name = '[encrypt $param_password $field]'" information {if { [string match -nocase "bncs" [decrypt $param_password $information(info_name)]] } {set infovalue [::sitelist::misc::checkbncs [decrypt $param_password $information(info_value)]]} else {set infovalue [decrypt $param_password $information(info_value)]}append msg [string map [list "%INFONAME%" "$field" "%INFOVALUE%" "$infovalue"] $::sitelist::variable::output(list-info)]}}::sitelist::misc::privmsg $target $msg}::sitelist::misc::privmsg $target "End of SITELIST."}# void proc siteinfoproc siteinfo { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] } {return 0}if { [llength [split $arg " "]] != 2 } {::sitelist::misc::privmsg $channel "\002Syntax:\002 $::sitelist::variable::trigger(site-info) <password> <sitetoken>"return 0}set param_password [lindex [split $arg " "] 0]set param_sitetoken [lindex [split $arg " "] 1]if { ![database exists "SELECT site_token FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'"] } {::sitelist::misc::privmsg $channel "\002ERROR:\002 The site you specified doesn't exist."return 0}switch -- $::sitelist::variable::style {0 { set target $nick }default { set target $channel }}database eval "SELECT * FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'" site {::sitelist::misc::privmsg $target [string map [list "%SITETOKEN%" "[decrypt $param_password $site(site_token)]" "%SITENAME%" "[decrypt $param_password $site(site_name)]"] $::sitelist::variable::output(detail-site)]database eval "SELECT info_name, info_value FROM sl_information WHERE info_site_token = '[encrypt $param_password $param_sitetoken]'" information {if { [string match -nocase "bncs" [decrypt $param_password $information(info_name)]] } {set infovalue [::sitelist::misc::checkbncs [decrypt $param_password $information(info_value)]]} else {set infovalue [decrypt $param_password $information(info_value)]}::sitelist::misc::privmsg $target [string map [list "%INFONAME%" "[decrypt $param_password $information(info_name)]" "%INFOVALUE%" "$infovalue"] $::sitelist::variable::output(detail-info)]}}::sitelist::misc::privmsg $target "End of SITEINFO."}# void proc siteaddproc siteadd { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] } {return 0}if { [llength [split $arg " "]] != 3 } {::sitelist::misc::privmsg $channel "\002Syntax:\002 $::sitelist::variable::trigger(site-add) <password> <sitetoken> <sitename>"return 0}set param_password [lindex [split $arg " "] 0]set param_sitetoken [lindex [split $arg " "] 1]set param_sitename [lindex [split $arg " "] 2]if { [database exists "SELECT site_token FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'"] } {::sitelist::misc::privmsg $channel "\002ERROR:\002 The site you specified already exists."return 0}database eval "INSERT INTO sl_sites VALUES('[encrypt $param_password $param_sitetoken]', '[encrypt $param_password $param_sitename]')"::sitelist::misc::privmsg $channel "Site successfully added."}# void proc sitedelproc sitedel { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] } {return 0}if { [llength [split $arg " "]] != 2 } {::sitelist::misc::privmsg $channel "\002Syntax:\002 $::sitelist::variable::trigger(site-del) <password> <sitetoken>"return 0}set param_password [lindex [split $arg " "] 0]set param_sitetoken [lindex [split $arg " "] 1]if { ![database exists "SELECT site_token FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'"] } {::sitelist::misc::privmsg $channel "\002ERROR:\002 The site you specified doesn't exist."return 0}database eval "DELETE FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'"database eval "DELETE FROM sl_information WHERE info_site_token = '[encrypt $param_password $param_sitetoken]'"::sitelist::misc::privmsg $channel "Site and all related information successfully deleted."}# void proc sitechangeproc sitechange { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] } {return 0}foreach {field state} [array get ::sitelist::variable::information] {if { $state > 0 } {lappend fields $field}}if { [llength [split $arg " "]] < 3 || [lsearch $fields [lindex [split $arg " "] 2]] == -1 } {::sitelist::misc::privmsg $channel "\002Syntax:\002 $::sitelist::variable::trigger(site-change) <password> <sitetoken> <field> \[value\] \[value\] ..."::sitelist::misc::privmsg $channel "Allowed fields are: [join $fields ", "]"return 0}set param_password [lindex [split $arg " "] 0]set param_sitetoken [lindex [split $arg " "] 1]set param_field [lindex [split $arg " "] 2]set param_value [lrange [split $arg " "] 3 end]if { ![database exists "SELECT site_token FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'"] } {::sitelist::misc::privmsg $channel "\002ERROR:\002 The site you specified doesn't exist."return 0}if { $param_value == "" } {database eval "DELETE FROM sl_information WHERE info_site_token = '[encrypt $param_password $param_sitetoken]' AND info_name = '[encrypt $param_password $param_field]'"} elseif { [database exists "SELECT info_site_token FROM sl_information WHERE info_site_token = '[encrypt $param_password $param_sitetoken]' AND info_name = '[encrypt $param_password $param_field]'"] } {database eval "UPDATE sl_information SET info_value = '[encrypt $param_password $param_value]' WHERE info_site_token = '[encrypt $param_password $param_sitetoken]' AND info_name = '[encrypt $param_password $param_field]'"} else {database eval "INSERT INTO sl_information VALUES('[encrypt $param_password $param_sitetoken]', '[encrypt $param_password $param_field]', '[encrypt $param_password $param_value]')"}::sitelist::misc::privmsg $channel "Siteinformation successfully changed."}# void proc sitesearchproc sitesearch { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] } {return 0}foreach {field state} [array get ::sitelist::variable::information] {if { $state > 0 } {lappend fields $field}}set param_password [lindex [split $arg " "] 0]set param_field [lindex [split $arg " "] 1]set param_pattern [lrange [split $arg " "] 2 end]set param_nr 0if { [llength [split $arg " "]] < 3 || [lsearch $fields $param_field] == -1 } {::sitelist::misc::privmsg $channel "\002Syntax:\002 $::sitelist::variable::trigger(site-search) <password> <field> <pattern> \[pattern\] ..."::sitelist::misc::privmsg $channel "Allowed fields are: [join $fields ", "]"return 0}switch -- $::sitelist::variable::style {0 { set target $nick }default { set target $channel }}database eval "SELECT info_site_token, info_name, info_value FROM sl_information WHERE info_name = '[encrypt $param_password $param_field]'" information {if { [string match -nocase "*[string map [list " " ?] $param_pattern]*" [decrypt $param_password $information(info_value)]] } {database eval "SELECT site_token, site_name FROM sl_sites WHERE site_token = '$information(info_site_token)'" site {::sitelist::misc::privmsg $target [string map [list "%NR%" "[incr param_nr]" "%SITETOKEN%" "[decrypt $param_password $site(site_token)]" "%SITENAME%" "[decrypt $param_password $site(site_name)]" "%INFONAME%" "[decrypt $param_password $information(info_name)]" "%INFOVALUE%" "[decrypt $param_password $information(info_value)]"] $::sitelist::variable::output(search)]}}}::sitelist::misc::privmsg $target "End of SITESEARCH."}# void proc sitecheckbncsproc sitecheckbncs { nick host handle channel arg } {if { ![string equal -nocase $::sitelist::variable::channel $channel] || !$::sitelist::variable::information(bncs) } {return 0}if { [llength [split $arg " "]] != 1 && [llength [split $arg " "]] != 2 } {::sitelist::misc::privmsg $channel "\002Syntax:\002 $::sitelist::variable::trigger(site-checkbncs) <password> \[sitetoken\]"return 0}set param_password [lindex [split $arg " "] 0]set param_sitetoken [lindex [split $arg " "] 1]set param_nr 0switch -- $::sitelist::variable::style {0 { set target $nick }default { set target $channel }}if { $param_sitetoken != "" } {if { ![database exists "SELECT site_token FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'"] } {::sitelist::misc::privmsg $channel "\002ERROR:\002 The site you specified doesn't exist."return 0}if { ![database exists "SELECT info_site_token FROM sl_information WHERE info_site_token = '[encrypt $param_password $param_sitetoken]' AND info_name = '[encrypt $param_password "bncs"]'"] } {::sitelist::misc::privmsg $channel "\002ERROR:\002 The site you specified hasn't got a 'bncs' information."return 0}database eval "SELECT site_token, site_name FROM sl_sites WHERE site_token = '[encrypt $param_password $param_sitetoken]'" site {database eval "SELECT info_value FROM sl_information WHERE info_site_token = '[encrypt $param_password $param_sitetoken]' AND info_name = '[encrypt $param_password bncs]'" information {::sitelist::misc::privmsg $target [string map [list "%SITETOKEN%" "[decrypt $param_password $site(site_token)]" "%SITENAME%" "[decrypt $param_password $site(site_name)]" "%BNCS%" "[::sitelist::misc::checkbncs [decrypt $param_password $information(info_value)]]"] $::sitelist::variable::output(check-one)]}}} else {database eval "SELECT site_token, site_name FROM sl_sites" site {database eval "SELECT info_value FROM sl_information WHERE info_site_token = '$site(site_token)' AND info_name = '[encrypt $param_password "bncs"]'" information {::sitelist::misc::privmsg $target [string map [list "%NR%" "[incr param_nr]" "%SITETOKEN%" "[decrypt $param_password $site(site_token)]" "%SITENAME%" "[decrypt $param_password $site(site_name)]" "%BNCS%" "[::sitelist::misc::checkbncs [decrypt $param_password $information(info_value)]]"] $::sitelist::variable::output(check-all)]}}::sitelist::misc::privmsg $target "End of CHECKBNCS."}}}# **********************************************************************# * sitelist misc namespace# *namespace eval misc {# integer proc bnctestproc bnctest { host port } {if { [catch { set chan [socket -async $host $port] } error] } {return 0}fconfigure $chan -blocking 0 -buffering noneset start [clock seconds]while { [expr {$start + 5}] > [clock seconds] } {if { [read $chan 1] != "" } {return 1}}return 0}# string proc checkbncsproc checkbncs { bncs } {foreach bnc [split $bncs " "] {if { [llength [split $bnc :]] == 1 } {set host $bncset port 21} else {set host [lindex [split $bnc :] 0]set port [lindex [split $bnc :] 1]}if { [::sitelist::misc::bnctest $host $port] } {lappend checked [string map [list "%BNC%" "$bnc"] $::sitelist::variable::output(bnc-online)]} else {lappend checked [string map [list "%BNC%" "$bnc"] $::sitelist::variable::output(bnc-offline)]}}return [join $checked ", "]}# void proc privmsgproc privmsg { target message } {puthelp "PRIVMSG $target :$message"}}# **********************************************************************# * author check# *if { ![string equal "d09dd6c5ebe3dcb3bbcf90bf95a0376e" [md5 $::sitelist::variable::author]] } {die "Tztztz ... it's not your work!"}# **********************************************************************# * log# *putlog "sitelist v$::sitelist::variable::version by $::sitelist::variable::author successfully loaded."}