Code: Select all
roc ::rss-synd::outputFeed {feedlist newslist {oldfeed ""}} {
array set feed $feedlist
array set news $newslist
if {$oldfeed != ""} { array set old $oldfeed }
if {[llength $oldfeed] > 1} { array set last [lindex $old(item) 0] }
set i 0
foreach item $news(item) {
array set tmp $item
if {([info exists feed(max-output)]) && ($i == $feed(max-output))} { break }
if {([info exists last(title)]) && ([string match $last(title) $tmp(title)])} { break }
putserv "PRIVMSG [join $feed(channels) ", "] :[[namespace current]::formatOutput $feedlist $news(channel) $item]"
incr i
}
}
Code: Select all
roc ::rss-synd::outputFeed {feedlist newslist {oldfeed ""}} {
array set feed $feedlist
array set news $newslist
if {$oldfeed != ""} { array set old $oldfeed }
if {[llength $oldfeed] > 1} { array set last [lindex $old(item) 0] }
set i 0
foreach item $news(item) {
array set tmp $item
if {([info exists feed(max-output)]) && ($i == $feed(max-output))} { break }
if {([info exists last(title)]) && ([string match $last(title) $tmp(title)])} { break }
putserv "NOTICE $nick :[[namespace current]::formatOutput $feedlist $news(channel) $item]"
incr i
}
}
Code: Select all
# source scripts/script.tcl
source scripts/rss-synd.tcl
source scripts/alltools.tcl
source scripts/action.fix.tcl
Code: Select all
[13:12] Tcl error in file 'eggdrop.conf':
[13:12] can't find package http
while executing
"package require http"
(procedure "::rss-synd::init" line 5)
invoked from within
"::rss-synd::init"
(file "scripts/rss-synd.tcl" line 889)
invoked from within
"source scripts/rss-synd.tcl"
(file "eggdrop.conf" line 1321)
[13:12] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
Code: Select all
[13:26] ☻RSS Error☻: Unable to find tls package required for https, unloaded fe
d "https-test".
[13:26] ☻RSS Syndication Script☻: Loaded.
Code: Select all
[13:27] Tcl error [::rss-synd::getFeeds]: invalid command name "::http::config"
[13:27] RSS Warning: Couldn't open "./scripts/feeds/bash.db": no such file or directory.
[13:27] [pennst26!neighborho@xbox.ownz.all.console] !bash
[13:28] Tcl error [::rss-synd::getFeeds]: invalid command name "::http::config"
[13:30] Last message repeated 2 time(s).