Statistics: Posted by neoclust — Sun Apr 11, 2010 5:47 pm

Code:

[23:31:29] *** Eggy (lamestxpa@network.org) has left #test (Left all channels)[23:31:45] *** Eggy (lamestxih@network.org) has joined #test [23:35:03] (Eggy): [Russie - USA : Moscou et Washington déterminés à adopter de nouvelles sanctions contre l'Iran] http://www.casafree.com/modules/news/article.php?storyid=44370[23:35:06] (Eggy): Le président américain Barack Obama et son homologue russe Dimitri Medvedev ont réaffirmé jeudi à Prague leur détermination à adopter une nouvelle série de sanctions contre l'Iran si ce pays refusait de mettre fin à son programme nucléaire.[23:35:12] (Eggy): [France : La COPEAM veut avancer dans la concrétisation de ses projets pour l'émergence d'un paysage audiovisuel méditerranéen] http://www.casafree.com/modules/news/article.php?storyid=44369[23:35:15] (Eggy): La 17ème Conférence Permanente de l'Audiovisuel Méditerranéen (COPEAM) s'ouvre jeudi à Paris avec l'ambition "d'aller plus loin" dans la concrétisation de ses projets phares destinés à contribuer à l'émergence d'un paysage audiovisuel méditerranéen.[08:14:38] (neoclust): huh

Statistics: Posted by neoclust — Fri Apr 09, 2010 4:12 am

Statistics: Posted by speechles — Thu Apr 08, 2010 4:57 pm

namespace eval news {   # config - make your changes here   # trigger character   set ary(pref) "!"   # command used to reply to user   # this can be a list of space delimited commands   set ary(commands) "news"   # amount user can issue before throttle   set ary(throttle) 2   # throttle time   set ary(throttle_time) 30   # time to announce new news items   # this can be a list of space delimited time binds.   # the one you wish to use for bind_time uncommented.   # set ary(bind_time) "00* 15* 30* 45*" ; # every 15 minutes   # set ary(bind_time) "00* 30*" ; # every 30 minutes   set ary(bind_time) "00*" ; # every 60 minutes at exactly the start of the hour   # url to news page   set ary(page) http://www.casafree.com/modules/news/   # parsing regex used to gather news   set ary(regex) {<div class="articletitre"><a href.*?>.*?<a href='(.*?)'>(.*?)</a>.*?<div class="itemBody">(.*?)</div>}   # max amount of news items to announce   set ary(max_bot) 5   # max amount of news items for users   set ary(max_user) 5   # display format for news messages, variables are: %description, %title, %url    # these can be used and will be replaced with actual values, newline (\n) will   # let you span multiple lines if you wish. If something is too long it will   # be cut off, be aware of this... use colors, bold, but remember to \escape any   # special tcl characters.    set ary(display_format) "\[\002%title\002\] %url\n%description"   # script version   set ary(version) "2.2"}

<speechles> !news
<sp33chy> [Grande-Bretagne : L'économie britannique progresserait plus rapidement que la majorité des pays du G7 selon l'OCDE] http://www.casafree.com/modules/news/ar ... ryid=44326
[5:17pm] [sp33chy] L'économique britannique devrait enregistrer au premier semestre de 2010, une croissance plus rapide que la majorité des pays du G7, a indiqué un rapport de l'Organisation de coopération et de développement économiques (OCDE) relayé par la presse britannique.
<sp33chy> [Israël est la principale menace à la paix au Moyen-Orient , dit le PM turc] http://www.casafree.com/modules/news/ar ... ryid=44328
<sp33chy> Israël est la principale menace pour la paix au Moyen-Orient, a indiqué mercredi le Premier ministre turc Recep Tayyip Erdogan, qui est actuellement en visite à Paris.
<sp33chy> [UE - Afrique : : Les compagnies aériennes de 11 pays africains interdites de vol en Europe] http://www.casafree.com/modules/news/ar ... ryid=44327
<sp33chy> La Commission européenne a décidé d'interdire de vol en Europe 278 compagnies aériennes dont celles de 11 pays africains, annonce un communiqué publié mercredi à Bruxelles.

..a short while later..

<sp33chy> [Maroc : Plus de 1200 personnes ont bénéficié des services du Samusocial Casablanca en 2009] http://www.casafree.com/modules/news/ar ... ryid=44329
<sp33chy> 1217 personnes recueillies dans la rue ont bénéficié, en 2009, des services du Centre d'hébergement du service d'aide mobile d'urgence social (Samusocial) de Casablanca.

Statistics: Posted by speechles — Wed Apr 07, 2010 8:43 pm

Code:

Cannot post the code, this forum renders the html elements even within [c o d e] tags.. quite lame

#change thisset ary(bind_time) "30*"#to thisset ary(bind_time) "00*"

Statistics: Posted by speechles — Wed Apr 07, 2010 4:49 pm

Statistics: Posted by neoclust — Wed Apr 07, 2010 10:32 am

Code:

Tcl error [throttleclean_]: invalid command name "throttleclean_"

Statistics: Posted by Linux — Wed Apr 07, 2010 8:31 am

Code:

# Puh Rum Pum Pum Pumpackage require httpsetudef flag nopubnewsnamespace eval news {# configset ary(pref) "!"set ary(commands) "news"set ary(throttle) 2set ary(throttle_time) 30set ary(bind_time) "30*"set ary(page) http://www.casafree.com/modules/news/set ary(regex) {<div class="articletitre"><a href.*?>.*?<a href='(.*?)'>(.*?)</a>.*?<div class="itemBody">(.*?)</div>}set ary(max_bot) 5set ary(max_user) 5set ary(version) "2.0"}# bindsforeach bind [split $::news::ary(commands)] {bind pub -|- "$::news::ary(pref)$::news::ary(commands)" ::news::pub_bind msg -|- "$::news::ary(pref)$::news::ary(commands)" ::news::msg_}bind time - $::news::ary(bind_time) ::news::magic_namespace eval news {# main - time bind - magicproc magic_ {args} {news_ $::botnick [getchanhost $::botnick] $::botnick "all" "magic"}# main - msg bind - noticeproc msg_ {nick uhost hand arg} {   news_ $nick $uhost $hand $nick "notice"}# main - pub bind - privmsgproc pub_ {nick uhost hand chan arg} {if {[channel get $chan nopubnews]} { return }news_ $nick $uhost $hand $chan "privmsg"}# sub - give newsproc news_ {nick uhost hand chan arg} {if {[throttle_ $uhost,$chan,news $::news::ary(throttle_time)]} {putserv "$arg $chan :$nick, you have been Throttled! Your going too fast and making my head spin!"}set a "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"set t [::http::config -useragent $a]catch { set t [::http::geturl $::news::ary(page) -timeout 30000] } error# error condition 1, socket error or other general errorif {![string match -nocase "::http::*" $error] && ![isbotnick $nick]} {putserv "$arg $chan :[string totitle [string map {"\n" " | "} $error]] \( $::news::ary(page) \)"return}# error condition 2, http errorif {![string equal -nocase [::http::status $t] "ok"] && ![isbotnick $nick]} {putserv "$arg $chan :[string totitle [::http::status $t]] \( $::news::ary(page) \)"return}set html [::http::data $t]::http::cleanup $tset casafreenews [regexp -all -inline "$::news::ary(regex)" $html]set c 0foreach {junk url title description} $casafreenews {incr cif {[isbotnick $nick]} {if {$c > $::news::ary(max_bot) || ([info exists ::casaLast] && [string equal $url $::casaLast])} { break }} elseif {$c > $::news::ary(max_user)} { break }if {![string equal "magic" $arg]} {puthelp "$arg $chan :\[ [mapit_ $title] \]: [mapit_ $description] @ $url"} else {foreach ch [channels] {if {[channel get $ch nopubnews]} { continue }puthelp "$arg $ch :\[ [mapit_ $title] \]: [mapit_ $description] @ $url"}}}if {[string equal "magic" $arg]} {set ::casaLast [lindex $casafreenews 1]}}# sub - map itproc mapit_ {t} { return [string map [list "'" "'"] $t] }# Throttle Proc (slightly altered, super action missles) - Thanks to user# see this post: http://forum.egghelp.org/viewtopic.php?t=9009&start=3proc throttle_ {id seconds} {   global ::news::throttle   if {[info exists ::news::throttle($id)]&&[lindex $::news::throttle($id) 0]>[clock seconds]} {set ::news::throttle($id) [list [lindex $::news::throttle($id) 0] [set value [expr {[lindex $::news::throttle($id) 1] +1}]]]if {$value > $::news::ary(throttle)} { set id 1 } { set id 0 }} {set ::news::throttle($id) [list [expr {[clock seconds]+$seconds}] 1]set id 0}}# delete expired entries every 10 minutesbind time - ?0* throttleclean_proc throttleclean_ {args} {   global ::news::throttleset now [clock seconds]foreach {id time} [array get ::news::throttle] {if {[lindex $time 0]<=$now} {unset ::news::throttle($id)}}}}putlog "news.tcl v$::news::ary(version) loaded."

Statistics: Posted by speechles — Tue Apr 06, 2010 9:36 pm

namespace eval news {}setudef flag nopubnewsset news(pref) "!"set news(commands) "news"set news(time) 30set news(page) http://www.casafree.com/modules/news/ set news(version) "1.0"package require httpforeach bind [split $news(commands) " "] {bind pub -|- $news(pref)$bind ::news::pubbind msg -|- $news(pref)$bind ::news::msg}proc ::news::msg {nick uhost hand arg} {::news::news $nick $uhost $hand $nick $arg}proc ::news::pub {nick uhost hand chan arg} {if {[channel get $chan nopubnews]} return::news::news $nick $uhost $hand $chan $arg}proc ::news::news {nick uhost hand chan arg} {global news lastbindset arg [lindex [split $arg] 0]set agent "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"set news(host,$uhost) 1set news(timer,$uhost) [utimer $news(time) [list ::news::reset $uhost ] ]set news_tok [::http::config -useragent $agent]set news_tok [::http::geturl $news(page) -timeout 30000]set html [::http::data $news_tok]::http::cleanup $news_tok    set casafreenews [regexp -inline {<div class="articletitre"><a href.*?>.*?<a href='(.*?)'>(.*?)</a>.*?<div class="itemBody">(.*?)</div>} $html]    foreach {junk url title description} $casafreenews {    puthelp "privmsg $chan :\[ $title \]: $description"    }  return}proc ::news::reset { uhost } {global newscatch {killutimer $news(timer,$uhost)}catch {unset news(timer,$uhost)}catch {unset news(host,$uhost)}}putlog "news.tcl v$news(version) loaded."

Statistics: Posted by neoclust — Mon Apr 05, 2010 8:06 pm

bind pub - !news pub:newsproc pub:news {nick host hand chan arg} {set lien "http://www.casafree.com/modules/news/"set http [http::config -useragent mozilla]set http [http::geturl $lien -timeout [expr 1000 * 10]]set html [http::data $http]set casafreenews [regexp -inline {<div class="articletitre"><a href.*?>.*?<a href='(.*?)'>(.*?)</a>.*?<div class="itemBody">(.*?)</div>} $html]foreach {junk url title description} $casafreenews {if {[info exists ::casaLast] && [string equal $url $::casaLast]} {break}               puthelp "privmsg $chan :\002$title\002: $description @ $url"}set ::casaLast [lindex $casafreenews 1]}

Statistics: Posted by neoclust — Sun Apr 04, 2010 5:19 pm

set casafreenews [regexp -inline {<div class="articletitre"><a href.*?>.*?<a href='(.*?)'>(.*?)</a>.*?<div class="itemBody">(.*?)</div>} $html]foreach {junk url title description} $casafreenews {   puthelp "privmsg $chan :\002$title\002: $description @ $url"}

set casafreenews [regexp -inline {<div class="articletitre"><a href.*?>.*?<a href='(.*?)'>(.*?)</a>.*?<div class="itemBody">(.*?)</div>} $html]foreach {junk url title description} $casafreenews {   if {[info exists ::casaLast] && [string equal $url $::casaLast]} {      break   }   puthelp "privmsg $chan :\002$title\002: $description @ $url"}set ::casaLast [lindex $casafreenews 1]

Statistics: Posted by speechles — Sun Apr 04, 2010 1:33 pm

Statistics: Posted by neoclust — Sun Apr 04, 2010 11:17 am