| View previous topic :: View next topic |
| Author |
Message |
h44i
Voice
Joined: 28 Feb 2006
Posts: 12
|
 Posted: Wed Jul 05, 2006 9:44 am Post subject: www.nu.nl (RSS feeds) announcer |
 |
|
Hi!
In The Netherlands, we have this populair news site called nu.nl (http://www.nu.nl/)
I'm looking for someone willing to create a TCL for this site which will announce all new news articles in a particulair channel.
The site has RSS feeds and I think that's the only way to grab the new articles.
http://nu.nl/deeplink_rss2/index.jsp?r=Algemeen
http://nu.nl/deeplink_rss2/index.jsp?r=Internet
http://nu.nl/deeplink_rss2/index.jsp?r=Sport
these are the RSS feeds to the most important categories
Since I'm a total n00b to TCL, I started searching myself first and I found this TCL written for Slashdot. Maybe we can modify it for the nu.nl website?
| Code: | # $Id: slashdot.tcl,v 1.33 2004/08/25 23:12:28 peter Exp $
# Slashdot.org News Announce Script for the eggdrop
# version 2.0, 24/08/2003, by Peter Postma <peter@webdeveloping.nl>
#
# Changelog:
# 2.0: (24/08/2003)
# - changed the update method somewhat.
# the slashdot(updates) it now also being used by the triggers
# to check how long to cache the data.
# - proxy configuration added.
# - flood protection is now for each channel (this is more usefull IMHO).
# - autonews /amsg optie toegevoegd.
# - script works with Tcl 8.0 now.
# 1.9: (04/07/2003) [changes]
# - check for correct Tcl version & alltools.tcl
# - added flood protection.
# - added url for latest version.
# - trivial style changes.
# 1.8: (26/05/2003) [bugfix]
# - third attempt to get rid of the bug with the & character.
# 1.7: (20/05/2003) [changes]
# - strange bug with & character fixed.
# - small changes to make the script more robust.
# 1.6: (17/05/2003) [first version]
# - wrote this script, based on tweakers.tcl version 1.6
#
# This script makes use of a function from alltools.tcl.
# Please put alltools.tcl in your eggdrop configuration!
#
# This script also uses http.tcl. You *don't* need to put http.tcl
# your eggdrop configuration!
#
# You need at least Tcl version 8.0 to get this script running!
#
# For questions/suggestions/bug/etc: peter@webdeveloping.nl
# If you found spelling/grammatical errors, please also mail me!
#
# You can always find the latest version of this script on this page:
# http://www.pointless.nl/eggdrop.php
#
# Please change the configuration setting below:
#
### Configuration settings ###
# make use of a http proxy the get the data?
# enter the info like: "host.isp.com:port" or let it empty for no proxy
set slashdot(proxy) ""
# the triggers: [seperate with spaces]
set slashdot(triggers) "!slashdot /."
# flags needed to use the trigger [default=everyone]
set slashdot(flags) "-|-"
# channels where the bot doesn't respond to triggers [seperate with spaces]
set slashdot(nopub) ""
# method to send the messages:
# 0 = Private message
# 1 = Public message
# 2 = Private notice
# 3 = Public notice
set slashdot(method) 1
# display n headlines when a trigger is used [> 1]
set slashdot(headlines) 5
# flood protection: seconds between use of the triggers
# set this to 0 to disable the flood protection.
set slashdot(antiflood) 10
# below you can change the layout of the output:
# %tim = time
# %aut = author
# %sec = section
# %tit = title
# %url = url to slashdot's news item
# %com = comments
# %b = bold text
# %u = underlined text
set slashdot(layout) "\[%bSlashdot%b\] (%sec) %tit - %url"
# check for news after n minutes? [min. 30]
# this value is being used by the trigger and the autonews.
set slashdot(updates) 30
# announce the news automaticly in the channels? [0=no / 1=yes]
set slashdot(autonews) 1
# autonews: send to which channels? [seperate channels with spaces]
# use "*" to send news to all channels (/amsg).
set slashdot(autonewschan) "#channel"
# max. amount of messages which will be displayed meanwhile automatic updates.
# with this setting you can prevent channel flooding if the updates are high
# (e.g. longer than a hour).
set slashdot(automax) 10
# trigger to turn off the autonews. [string]
set slashdot(autontrigger) "!slashdoton"
# trigger to turn on the autonews. [string]
set slashdot(autofftrigger) "!slashdotoff"
# flags needed to use the autonews[on/off] trigger [default=master]
set slashdot(autotriggerflag) "m|m"
# log additional information (debug) to the partyline? [0=no / 1=yes]
set slashdot(log) 1
### End Configuration settings ###
### Begin Tcl code ###
set slashdot(version) "2.0"
if {[catch { package require http } err]} {
putlog "\[Slashdot\] Cannot load [file tail [info script]]: Problem loading the http package: $err"
return 1
}
if {[info tclversion] < 8.0} {
putlog "\[Slashdot\] Cannot load [file tail [info script]]: You need at least Tcl version 8.0 and you have Tcl version [info tclversion]."
return 1
}
if {![info exists alltools_loaded]} {
putlog "\[Slashdot\] Cannot load [file tail [info script]]: Please load alltools.tcl in your eggdrop configuration!"
return 1
}
set whichtimer [timerexists "slashdot:update"]
if {$whichtimer != ""} { killtimer $whichtimer }
catch { unset whichtimer }
foreach trigger [split $slashdot(triggers)] {
bind pub $slashdot(flags) $trigger slashdot:pub
if {$slashdot(log)} { putlog "\[Slashdot\] Trigger $trigger added." }
}
catch { unset trigger }
if {$slashdot(autofftrigger) != ""} { bind pub $slashdot(autotriggerflag) $slashdot(autofftrigger) slashdot:autoff }
if {$slashdot(autontrigger) != ""} { bind pub $slashdot(autotriggerflag) $slashdot(autontrigger) slashdot:auton }
proc slashdot:getdata {} {
global slashdot slashdotdata
if {$slashdot(log)} { putlog "\[Slashdot\] Updating data..." }
set url "http://slashdot.org/slashdot.xml"
set page [::http::config -useragent "Mozilla"]
if {$slashdot(proxy) != ""} {
if {![regexp {(.+):([0-9]+)} $slashdot(proxy) trash proxyhost proxyport]} {
putlog "\[Slashdot\] Wrong proxy configuration ($slashdot(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 "\[Slashdot\] Problem: $msg"
return -1
}
if {[::http::status $page] != "ok"} {
putlog "\[Slashdot\] Problem: [::http::status $page]"
catch { ::http::cleanup $page }
return -1
}
if {![regexp -nocase {ok} [::http::code $page]]} {
putlog "\[Slashdot\] Problem: [::http::code $page]"
catch { ::http::cleanup $page }
return -1
}
if {[catch { set data [::http::data $page] } msg]} {
putlog "\[Slashdot\] Problem: $msg"
catch { ::http::cleanup $page }
return -1
}
if {[info exists slashdotdata]} { unset slashdotdata }
set count 0
foreach line [split $data \n] {
regsub -all "\\&" $line "\\\\&" line
regexp "<title>(.*)</title>" $line trash slashdotdata(title,$count)
regexp "<url>(.*)</url>" $line trash slashdotdata(url,$count)
regexp "<time>(.*)</time>" $line trash slashdotdata(time,$count)
regexp "<author>(.*)</author>" $line trash slashdotdata(author,$count)
regexp "<comments>(.*)</comments>" $line trash slashdotdata(comments,$count)
if {[regexp "<section>(.*)</section>" $line trash slashdotdata(section,$count)]} { incr count }
}
set slashdot(lastupdate) [clock seconds]
catch { ::http::cleanup $page }
catch { unset url page msg data count line trash }
return 0
}
proc slashdot:pub {nick uhost hand chan text} {
global lastbind slashdot slashdotdata
if {[lsearch -exact $slashdot(nopub) [string tolower $chan]] >= 0} { return 0 }
if {$slashdot(antiflood) > 0} {
if {[info exists slashdot(floodprot,$chan)]} {
set diff [expr [clock seconds] - $slashdot(floodprot,$chan)]
if {$diff < $slashdot(antiflood)} {
putquick "NOTICE $nick :Trigger has just been used! Please wait [expr $slashdot(antiflood) - $diff] seconds..."
return 0
}
}
set slashdot(floodprot,$chan) [clock seconds]
}
if {$slashdot(log)} { putlog "\[Slashdot\] Trigger: $lastbind in $chan by $nick" }
set ret 0
if {[info exists slashdot(lastupdate)]} {
if {[expr [clock seconds] - $slashdot(lastupdate)] >= [expr $slashdot(updates) * 60]} {
set ret [slashdot:getdata]
}
} elseif {![info exists slashdotdata(title,0)]} {
set ret [slashdot:getdata]
}
if {$ret != -1} {
for {set i 0} {$i < $slashdot(headlines)} {incr i} {
if {![info exists slashdotdata(time,$i)]} { break }
if {[catch { slashdot:put $chan $nick $i $slashdot(method) } err]} {
putlog "\[Slashdot\] Problem in data array: $err"
}
}
} else {
putserv "NOTICE $nick :\[Slashdot\] Something went wrong while updating."
}
catch { unset ret diff i err }
}
proc slashdot:put {chan nick which method} {
global slashdot slashdotdata
set outchan $slashdot(layout)
regsub -all "%tim" $outchan $slashdotdata(time,$which) outchan
regsub -all "%aut" $outchan $slashdotdata(author,$which) outchan
regsub -all "%tit" $outchan $slashdotdata(title,$which) outchan
regsub -all "%sec" $outchan $slashdotdata(section,$which) outchan
regsub -all "%url" $outchan $slashdotdata(url,$which) outchan
regsub -all "%com" $outchan $slashdotdata(comments,$which) outchan
regsub -all "&amp;" $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 slashdot:update {} {
global slashdot slashdotdata
if {[slashdot:getdata] != -1} {
if {![info exists slashdotdata(time,0)]} {
putlog "\[Slashdot\] Something went wrong while updating..."
return -1
}
if {![info exists slashdot(lastitem)]} {
set slashdot(lastitem) $slashdotdata(time,0)
if {$slashdot(log)} { putlog "\[Slashdot\] Last news item time set to '$slashdotdata(time,0)'." }
} else {
if {$slashdot(log)} { putlog "\[Slashdot\] Last news item time is '$slashdotdata(time,0)'." }
}
if {$slashdotdata(time,0) > $slashdot(lastitem)} {
if {$slashdot(log)} { putlog "\[Slashdot\] There's news!" }
if {[regexp {^\*$} $slashdot(autonewschan)]} {
set dest [channels]
} else {
set dest $slashdot(autonewschan)
}
for {set i 0} {$i < $slashdot(automax)} {incr i} {
if {![info exists slashdotdata(time,$i)]} { break }
if {$slashdotdata(time,$i) == $slashdot(lastitem)} { break }
foreach chan [split $dest] {
if {[catch { slashdot:put $chan $chan $i 1 } err]} {
putlog "\[Slashdot\] Problem in data array: $err"
}
}
}
catch { unset dest i chan err }
} else {
if {$slashdot(log)} { putlog "\[Slashdot\] No news." }
}
set slashdot(lastitem) $slashdotdata(time,0)
}
if {$slashdot(updates) < 30} {
putlog "\[Slashdot\] Warning: the \$slashdot(updates) setting is too low! Defaulting to 30 minutes..."
timer 30 slashdot:update
} else {
timer $slashdot(updates) slashdot:update
}
return 0
}
proc slashdot:autoff {nick uhost hand chan text} {
global lastbind slashdot
if {[lsearch -exact $slashdot(nopub) [string tolower $chan]] >= 0} { return 0 }
if {$slashdot(log)} { putlog "\[Slashdot\] Trigger: $lastbind in $chan by $nick" }
if {$slashdot(autonews) == 1} {
set slashdot(autonews) 0; catch { unset slashdot(lastitem) }
set whichtimer [timerexists "slashdot:update"]
if {$whichtimer != ""} { killtimer $whichtimer }
catch { unset whichtimer }
putlog "\[Slashdot\] Autonews turned off."
putserv "PRIVMSG $chan :\001ACTION has turned the slashdot.org news announcer off.\001"
} else {
putserv "NOTICE $nick :My news announcer is already off!"
}
}
proc slashdot:auton {nick uhost hand chan text} {
global lastbind slashdot
if {[lsearch -exact $slashdot(nopub) [string tolower $chan]] >= 0} { return 0 }
if {$slashdot(log)} { putlog "\[Slashdot\] Trigger: $lastbind in $chan by $nick" }
if {$slashdot(autonews) == 0} {
set slashdot(autonews) 1; slashdot:update
putlog "\[Slashdot\] Autonews turned on."
putserv "PRIVMSG $chan :\001ACTION has turned the slashdot.org news announcer on.\001"
} else {
putserv "NOTICE $nick :My news announcer is already on!"
}
}
if {$slashdot(autonews) == 1} { slashdot:update }
putlog "\[Slashdot\] News Announcer version $slashdot(version): Loaded!"
|
|
|
| Back to top |
|
 |
h44i
Voice
Joined: 28 Feb 2006
Posts: 12
|
| Posted: Fri Jul 28, 2006 5:03 am Post subject: |
|
|
*bump*
Anyone that maybe can help me with this one? |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Fri Jul 28, 2006 7:30 am Post subject: |
|
|
Check out rssnews.tcl or Google.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
h44i
Voice
Joined: 28 Feb 2006
Posts: 12
|
| Posted: Thu Oct 19, 2006 2:45 pm Post subject: |
|
|
Just for people who might be looking for this. I got it up and running via the news.tcl @ http://perplexa.ugug.co.uk/
Works great! |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
