I'm currently trying to run some RSS scripts:
Tried a few and all return the error: couldn't open socket: permission denied. Underneath a script example:
Code: Select all
# $Id: tweakers.tcl,v 1.35 2003/08/24 13:54:41 peter Exp $
# Tweakers.net Nieuws script voor de eggdrop
# version 2.0, 24/08/2003, door Peter Postma <peter@webdeveloping.nl>
#
# Changelog:
# 2.0: (24/08/2003)
# - de manier van het updaten is wat veranderd.
# de tnet(updates) setting wordt nu ook door de triggers gebruikt
# om te checken hoe lang de data gecached moet worden.
# - proxy configuratie toegevoegd.
# - flood protectie wordt nu per kanaal bijgehouden (lijkt me nuttiger zo).
# - autonews /amsg optie toegevoegd.
# - script werkt nu ook met Tcl 8.0
# 1.9: (04/07/2003) [changes]
# - check voor goede Tcl versie & alltools.tcl
# - flood protectie toegevoegd.
# - url voor laatste versie toegevoegd.
# - code style changes.
# 1.8: (26/05/2003) [bugfix]
# - 3de poging om de bug met & teken te fixen.
# 1.7: (20/05/2003) [changes]
# - de vreemde bug met het & teken is nu op een nettere manier gefixed.
# - kleine aanpassingen om het script nog wat robuuster te maken.
# 1.6: (17/05/2003) [bugfixes]
# - fix memory leak!!! (ongebruikte variabelen unsetten en
# de belangrijkste: de ::http::cleanup functie!
# - veel kleine Tcl changes/fixes
# 1.5: (12/10/2002) [features/changes]
# - extra check in de getdata procedure (voor HTTP errors zoals 404, etc..)
# - triggers/functie toegevoegd om de aankondiger aan en uit te zetten.
# - stukjes code netter en beter geschreven.
# - meer gebruiksvriendelijke error en log berichten.
# 1.4a: (09/10/2002) [bugfixes]
# - bugje gefixed met het & teken. regsub zet & om naar %titamp;
# ik heb geen idee waarom, maar de output is iig gefixed :-)
# - wat fouten gefixed in de getdata procedure. checks werken nu helemaal ok.
# - timer opnieuw instellen wanneer er een http error is, is gefixed.
# 1.4: (08/10/2002) [features/changes]
# - methode om berichten te sturen is nu in te stellen.
# - check op timestamp ipv. id ! (dit had ik eerder moeten bedenken >:)
# - extra layout opties toegevoegd.
# - updates minimaal 300 seconden!
# - checkt of tweakers.net down is. als dit niet wordt gecheckt dan
# blijft het script hangen en moet de bot opnieuw gestart worden.
# 1.3: (06/10/2002) [features/changes]
# - triggers in te stellen.
# - kanalen in te stellen waar de triggers gebruikt mogen worden.
# - layout in te stellen.
# - automatisch nieuws naar het kanaal sturen (kanalen in te stellen).
# - automatische updates in te stellen (om de hoeveel seconden).
# 1.2: (03/10/2002) [rewrote 1.1]
# - helemaal opnieuw geschreven.
# - betere code (regexp, regsub, http)
# 1.1: (21/08/2002) [first version]
# - eerste (goed werkende) versie.
# - script had alleen triggers, verder nog helemaal niets :-)
#
# Dit script maakt gebruik van een functie uit alltools.tcl.
# Zorg ervoor dat alltools.tcl geladen wordt in je eggdrop configuratie!
#
# Dit script gebruikt ook http.tcl. Deze moet op je systeem aanwezig zijn.
# Zet http.tcl *niet* in je eggdrop configuratie!
#
# Het tweakers.tcl script werkt het best met Tcl versies vanaf 8.0.
#
# Voor vragen/suggesties/bugs/etc: peter@webdeveloping.nl
#
# De laatste versie van dit script kan je hier vinden:
# http://www.pointless.nl/?page=eggdrop
#
# Pas aub. de configuratie hieronder aan:
#
### Configuratie instellingen ###
# maak gebruik van een http proxy om de gegevens op te halen?
# stel op deze manier in: "host.isp.com:port" of laat 't leeg voor geen proxy
set tnet(proxy) ""
# de triggers: [scheiden met een spatie]
set tnet(triggers) "!tweakers"
# benodigde flags om de triggers te kunnen gebruiken. [default=iedereen]
set tnet(flags) "-|-"
# kanalen waar de bot niet op de triggers zal reageren [scheiden met spatie]
set tnet(nopub) ""
# stuur berichten public of private wanneer er een trigger wordt gebruikt?
# 0 = Private message
# 1 = Public message
# 2 = Private notice
# 3 = Public notice
set tnet(method) 1
# aantal headlines weergeven wanneer een trigger wordt gebruikt. [>1]
set tnet(headlines) 4
# flood protectie: aantal seconden tussen gebruik van de triggers
# zet 't op 0 om de flood protectie uit te zetten.
set tnet(antiflood) 10
# hieronder kun je de layout aanpassen voor de output:
# %tyd = tijd
# %cat = categorie
# %tit = titel
# %id = id (wordt gebruikt in de nieuws url)
# %src = bron van het artikel
# %lnk = link naar de bron van het artikel
# %rea = aantal reacties
# %edt = editor, schrijver
# %b = bold (dikgedrukte) tekst
# %u = underlined (onderstreepte) tekst
set tnet(layout) "\[%bT.Net%b\] (%cat) %tit - http://tweakers.net/nieuws/%id"
# om de hoeveel minuten checken of er nieuws is? [minimaal 5]
# deze waarde wordt gebruikt door zowel de triggers als het autonews.
set tnet(updates) 5
# het nieuws automatisch weergeven in de kanalen? [0=nee / 1=ja]
set tnet(autonews) 1
# autonews: stuur naar welke kanalen? [kanalen scheiden met een spatie]
# gebruik "*" om het nieuws naar alle kanalen te sturen (/amsg).
set tnet(autonewschan) "#explicit-content"
# maximaal aantal berichten die worden getoond tijdens de automatische updates.
# hiermee kan je voorkomen dat de channel wordt ondergeflood als je de
# updates hoog hebt staan (bv. langer dan een uur).
set tnet(automax) 3
# trigger om het autonews aan te zetten. [string]
set tnet(autontrigger) "!tneton"
# trigger om het autonews uit te zetten. [string]
set tnet(autofftrigger) "!tnetoff"
# benodigde flags om de autonews[on/off] triggers te gebruiken [default=master]
set tnet(autotriggerflag) "m|m"
# log extra informatie (debug) naar de partyline? [0=nee / 1=ja]
set tnet(log) 1
### Eind configuratie instellingen ###
### Begin Tcl code ###
set tnet(version) "2.0"
if {[catch { package require http } err]} {
putlog "\[T.Net\] Kan [file tail [info script]] niet laden: Probleem met het laden van de http package: $err"
return 1
}
if {[info tclversion] < 8.0} {
putlog "\[T.Net\] Kan [file tail [info script]] niet laden: U heeft minimaal Tcl versie 8.0 nodig en u heeft Tcl versie [info tclversion]."
return 1
}
if {![info exists alltools_loaded]} {
putlog "\[T.Net\] Kan [file tail [info script]] niet laden: Zorg ervoor dat alltools.tcl in uw eggdrop configuratie wordt geladen!"
return 1
}
set whichtimer [timerexists "tnet:update"]
if {$whichtimer != ""} { killtimer $whichtimer }
catch { unset whichtimer }
foreach trigger [split $tnet(triggers)] {
bind pub $tnet(flags) $trigger tnet:pub
if {$tnet(log)} { putlog "\[T.Net\] Trigger $trigger added." }
}
catch { unset trigger }
if {$tnet(autofftrigger) != ""} { bind pub $tnet(autotriggerflag) $tnet(autofftrigger) tnet:autoff }
if {$tnet(autontrigger) != ""} { bind pub $tnet(autotriggerflag) $tnet(autontrigger) tnet:auton }
proc tnet:getdata {} {
global tnet tnetdata
if {$tnet(log)} { putlog "\[T.Net\] Updating data..." }
set url "http://www.tweakers.net/turbotracker.dsp"
set page [::http::config -useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11"]
if {$tnet(proxy) != ""} {
if {![regexp {(.+):([0-9]+)} $tnet(proxy) trash proxyhost proxyport]} {
putlog "\[T.Net\] Wrong proxy configuration ($tnet(proxy))"
return -1
}
set page [::http::config -proxyhost $proxyhost -proxyport $proxyport]
catch { unset proxyhost proxyport }
}
if {[catch { set page [::http::geturl $url -timeout 15000] } msg]} {
putlog "\[T.Net\] Problem: $msg"
return -1
}
if {[::http::status $page] != "ok"} {
putlog "\[T.Net\] Problem: [::http::status $page]"
catch { ::http::cleanup $page }
return -1
}
if {![regexp -nocase {ok} [::http::code $page]]} {
putlog "\[T.Net\] Problem: [::http::code $page]"
catch { ::http::cleanup $page }
return -1
}
if {[catch { set data [::http::data $page] } msg]} {
putlog "\[T.Net\] Problem: $msg"
catch { ::http::cleanup $page }
return -1
}
if {[info exists tnetdata]} { unset tnetdata }
set count 0
foreach line [split $data \n] {
regsub -all "\\&" $line "\\\\&" line
regexp "<id>(.*)</id>" $line trash tnetdata(id,$count)
regexp "<titel>(.*)</titel>" $line trash tnetdata(titel,$count)
regexp "<editor>(.*)</editor>" $line trash tnetdata(edit,$count)
regexp "<categorie>(.*)</categorie>" $line trash tnetdata(cat,$count)
regexp "<bron>(.*)</bron>" $line trash tnetdata(src,$count)
regexp "<link>(.*)</link>" $line trash tnetdata(link,$count)
regexp "<tijd>(.*)</tijd>" $line trash tnetdata(tijd,$count)
regexp "<timestamp>(.*)</timestamp>" $line trash tnetdata(ts,$count)
if {[regexp "<reacties>(.*)</reacties>" $line trash tnetdata(reac,$count)]} { incr count }
}
set tnet(lastupdate) [clock seconds]
catch { ::http::cleanup $page }
catch { unset url page msg data count line trash }
return 0
}
proc tnet:pub {nick uhost hand chan text} {
global lastbind tnet tnetdata
if {[lsearch -exact $tnet(nopub) [string tolower $chan]] >= 0} { return 0 }
if {$tnet(antiflood) > 0} {
if {[info exists tnet(floodprot,$chan)]} {
set diff [expr [clock seconds] - $tnet(floodprot,$chan)]
if {$diff < $tnet(antiflood)} {
putquick "NOTICE $nick :Trigger is net al gebruikt! Wacht aub. [expr $tnet(antiflood) - $diff] seconden..."
return 0
}
}
set tnet(floodprot,$chan) [clock seconds]
}
if {$tnet(log)} { putlog "\[T.Net\] Trigger: $lastbind in $chan by $nick" }
set ret 0
if {[info exists tnet(lastupdate)]} {
if {[expr [clock seconds] - $tnet(lastupdate)] >= [expr $tnet(updates) * 60]} {
set ret [tnet:getdata]
}
} elseif {![info exists tnetdata(ts,0)]} {
set ret [tnet:getdata]
}
if {$ret != -1} {
for {set i 0} {$i < $tnet(headlines)} {incr i} {
if {![info exists tnetdata(ts,$i)]} { break }
if {[catch { tnet:put $chan $nick $i $tnet(method) } err]} {
putlog "\[T.Net\] Problem in data array: $err"
}
}
} else {
putserv "NOTICE $nick :\[T.Net\] Er ging iets fout tijdens het ophalen van de gegevens."
}
catch { unset ret diff i err }
}
proc tnet:put {chan nick which method} {
global tnet tnetdata
set outchan $tnet(layout)
regsub -all "%rea" $outchan $tnetdata(reac,$which) outchan
regsub -all "%edt" $outchan $tnetdata(edit,$which) outchan
regsub -all "%tyd" $outchan $tnetdata(tijd,$which) outchan
regsub -all "%id" $outchan $tnetdata(id,$which) outchan
regsub -all "%cat" $outchan $tnetdata(cat,$which) outchan
regsub -all "%src" $outchan $tnetdata(src,$which) outchan
regsub -all "%lnk" $outchan $tnetdata(link,$which) outchan
regsub -all "%tit" $outchan $tnetdata(titel,$which) outchan
regsub -all "ë" $outchan "ë" outchan
regsub -all "&" $outchan "\\&" outchan
regsub -all """ $outchan "\"" outchan
regsub -all "%b" $outchan "\002" outchan
regsub -all "%u" $outchan "\037" outchan
switch $method {
0 { putserv "PRIVMSG $nick :$outchan" }
1 { putserv "PRIVMSG $chan :$outchan" }
2 { putserv "NOTICE $nick :$outchan" }
3 { putserv "NOTICE $chan :$outchan" }
default { putserv "PRIVMSG $chan :$outchan" }
}
catch { unset outchan }
}
proc tnet:update {} {
global tnet tnetdata
if {[tnet:getdata] != -1} {
if {![info exists tnetdata(ts,0)]} {
putlog "\[T.Net\] Something went wrong while updating..."
return -1
}
if {![info exists tnet(lastitem)]} {
set tnet(lastitem) $tnetdata(ts,0)
if {$tnet(log)} { putlog "\[T.Net\] Last news item timestamp set to '$tnetdata(ts,0)'." }
} else {
if {$tnet(log)} { putlog "\[T.Net\] Last news item timestamp is '$tnetdata(ts,0)'." }
}
if {$tnetdata(ts,0) > $tnet(lastitem)} {
if {$tnet(log)} { putlog "\[T.Net\] There's news!" }
if {[regexp {^\*$} $tnet(autonewschan)]} {
set dest [channels]
} else {
set dest $tnet(autonewschan)
}
for {set i 0} {$i < $tnet(automax)} {incr i} {
if {![info exists tnetdata(ts,$i)]} { break }
if {$tnetdata(ts,$i) == $tnet(lastitem)} { break }
foreach chan [split $dest] {
if {[catch { tnet:put $chan $chan $i 1 } err]} {
putlog "\[T.Net\] Problem in data array: $err"
}
}
}
catch { unset dest i chan err }
} else {
if {$tnet(log)} { putlog "\[T.Net\] No news." }
}
set tnet(lastitem) $tnetdata(ts,0)
}
if {$tnet(updates) < 5} {
putlog "\[T.Net\] Warning: the \$tnet(updates) setting is too low! Defaulting to 5 minutes..."
timer 5 tnet:update
} else {
timer $tnet(updates) tnet:update
}
return 0
}
proc tnet:autoff {nick uhost hand chan text} {
global lastbind tnet
if {[lsearch -exact $tnet(nopub) [string tolower $chan]] >= 0} { return 0 }
if {$tnet(log)} { putlog "\[T.Net\] Trigger: $lastbind in $chan by $nick" }
if {$tnet(autonews) == 1} {
set tnet(autonews) 0; catch { unset tnet(lastitem) }
set whichtimer [timerexists "tnet:update"]
if {$whichtimer != ""} { killtimer $whichtimer }
catch { unset whichtimer }
putlog "\[T.Net\] Autonews turned off."
putserv "PRIVMSG $chan :\001ACTION heeft zijn tweakers.net nieuws aankondiger uitgezet.\001"
} else {
putserv "NOTICE $nick :Mijn tweakers.net nieuws aankondiger staat al uit."
}
}
proc tnet:auton {nick uhost hand chan text} {
global lastbind tnet
if {[lsearch -exact $tnet(nopub) [string tolower $chan]] >= 0} { return 0 }
if {$tnet(log)} { putlog "\[T.Net\] Trigger: $lastbind in $chan by $nick" }
if {$tnet(autonews) == 0} {
set tnet(autonews) 1; tnet:update
putlog "\[T.Net\] Autonews turned on."
putserv "PRIVMSG $chan :\001ACTION heeft zijn tweakers.net nieuws aankondiger aangezet.\001"
} else {
putserv "NOTICE $nick :Mijn tweakers.net nieuws aankondiger staat al aan."
}
}
if {$tnet(autonews) == 1} { tnet:update }
putlog "\[T.Net\] Nieuws script versie $tnet(version): Loaded!"