Code:

### GLOBALS ###set ansa(version) "3.1"set ansa(url) "http://www.ansa.it/main/notizie/awnplus/^RUBRICA/synd/ansait_awnplus_^RUBRICA_medsynd_Today_Idx.xml"set ansa(timeout) 5000### Percorso di salvataggio dei Database delle news (la directory deve esistere)set ansa(filepath) "ansa-tmp"proc ansa:send { str } {   set str "$str\n"   putnow $str -oneline}proc get:rubriche { {char ""} } {   set rubriche { topnews cronaca politica mondo economia calcio sport cinema cultura tecnologia }   if { $char != ""} {      return [ join $rubriche $char ]   } else {      return $rubriche   }}### END GLOBALS ###### FLAGS ###setudef flag ansaforeach rubrica [get:rubriche] {  setudef flag ansa_$rubrica}### END FLAGS ###### BINDS ###bind time - "00 * * * *" ansa:checkbind time - "15 * * * *" ansa:checkbind time - "30 * * * *" ansa:checkbind time - "45 * * * *" ansa:checkbind pub - !ansa ansa:request### END BINDS ###### PROCS ###package require httphttp::config -useragent "Mozilla/1.0"proc strlastpos { string char {max 0} } {   if { $max == 0} { set max [ string length $string ] }   if { [ string length $string ] <= $max } { return [ string length $string ] }   for { set i 0 } { $i < $max } { incr i } {      if { [ string index $string [ expr $max - $i ] ] == $char } {         return [ expr $max - $i ]      }   }   return $max}proc ansa:mkdir { path } {   set dir ""   foreach folder [ split ${path} "/" ] {      set dir "${dir}${folder}/"      if { ! [ file exists ${dir} ] } {         file mkdir ${dir}      }   }}proc max:privmsg:chars target {   global botname   #:nick!user@host PRIVMSG target :   return [ expr 510 - 1 - [ string length $botname ] - 30 - [ string length $target ] - 2 ]}proc ansa:request { nick uhost hand chan arg } {   global ansa   if { [ lsearch [ channel info $chan ] "+ansa" ] == -1 } { return }   putlog "ANSA :: request \"!ansa $arg\" from $nick!$uhost on $chan"   ### HELP ###   if { $arg == "" || $arg == "help" } {      set rubriche [ get:rubriche ", " ]      ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037HELP\037 - Lo script visualizza le notizie ANSA in canale.\      Si possono vedere le ultime notizie con \002!ansa list\002 e richiamare la singola notizia con \002!ansa numero\002.\      Gli operatori del canale possono aggiungere una rubrica con \002!ansa add rubrica\002 o rimuoverla con\      \002!ansa del rubrica\002."      ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037HELP\037 - Per avere una lista delle rubriche attualmente seguite\      \002!ansa info\002. Le rubriche disponibili sono: $rubriche."      return   }   ### END HELP ###      set max_chars [ max:privmsg:chars $chan ]   set argom [ lindex $arg 0 ]   set rubrica [ lindex $arg 1 ]   set rubriche [ ansa:rub $chan ]   ### CONTROLLO ARGOMENTI ###   switch -- $argom {      info {         if { [ llength $rubriche ] == 0 } { lappend rubriche "nessuna" }         ansa:send "PRIVMSG $chan :\037ANSA\037 \002::\002 \037INFO\037 - Le rubriche ANSA seguite\         da \002$chan\002 sono: $rubriche"      }      add {         if { ! [ isop $nick $chan ] } {            ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037ERROR\037 - Devi essere operatore in $chan per aggiungere una rubrica."            return         }         if { [ lsearch -exact [ get:rubriche ] $rubrica ] > -1 } {            if { [ lsearch -exact $rubriche $rubrica ] > -1 } {               ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037ERROR\037 - Il canale \002$chan\002 segue già la rubrica\               \002$rubrica\002. Se si desidera rimuoverla \002!ansa rem $rubrica\002. Per una lista \002!ansa info\002"            } else {               # AGGIORNAMENTO RUBRICA               ansa:update new $rubrica               channel set $chan +ansa_${rubrica}               ansa:send "PRIVMSG $chan :\037ANSA\037 \002::\002 \037ADD\037 - Ho aggiunto \002$rubrica\002.\               Ora le rubriche ANSA seguite da \002$chan\002 sono: [ ansa:rub $chan ]."            }         } else {              set rubr [ get:rubriche ",  " ]            ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037ERROR\037 - \002$rubrica\002 è una rubrica non valida.\            Devi scegliere tra: $rubr."         }      }      del {         if { ! [ isop $nick $chan ] } {            ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037ERROR\037 - Devi essere operatore in $chan per rimuovere una rubrica."            return         }         if { [ lsearch -exact [ get:rubriche ] $rubrica ] > -1 } {            if { [ lsearch -exact $rubriche $rubrica ] > -1 } {               channel set $chan -ansa_${rubrica}               set temp [ lsearch -exact $rubriche $rubrica ]               set rubriche [ ansa:rub $chan ]               if { [ llength $rubriche ] == 0 } { set rubriche "nessuna" }               ansa:send "PRIVMSG $chan :\037ANSA\037 \002::\002 \037DEL\037 - Ho rimosso \002$rubrica\002.\               Ora le rubriche ANSA seguite da \002$chan\002 sono: $rubriche"            } else {               ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037ERROR\037 - Il canale \002$chan\002 non segue la rubrica\               \002$rubrica\002. Se si desidera inserirla \002!ansa add $rubrica\002. Per una lista \002!ansa info\002"            }         } else {              set rubr [ get:rubriche ",  " ]            ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037ERROR\037 - \002$rubrica\002 è una rubrica non valida.\            Devi scegliere tra: $rubr."         }      }      list {         if { $rubrica == "" } {            ansa:send "PRIVMSG $nick :\037ANSA\037 \002::\002 \037ERROR\037 - Per avere la lista delle news devi specificare la rubrica con\            \002!ansa list rubrica\002. Le rubriche seguite da $chan sono: [ ansa:rub $chan ]."         } else {            set num 1            set risposta ""            set ansafile [ open "$ansa(filepath)/$rubrica.news" r ]            if { [ lsearch -exact $rubriche $rubrica ] > -1 } {               while { [ gets $ansafile linedb ] > -1 } {                  if { [ regexp -all -- {(.+)\t(.+)\t.+_(\d+).html} $linedb all title description refer ] } {                     set risposta "$risposta - $title (\037$refer\037)"                     if { $num > 4 } { break }                     incr num                  }               }               if { $risposta != "" } { ansa:send "PRIVMSG $chan :\037ANSA\037 \002::\002 \[\037$rubrica\037\]$risposta" }            }            close $ansafile         }      }      url {         set id [ lindex $arg 1 ]         if { [ regexp -- {\d+} $id ] } {            set url ""            set found 0            foreach rubrica [ get:rubriche ] {               set ansafile [ open "$ansa(filepath)/$rubrica.news" r ]               while { [ gets $ansafile linedb ] > -1 && $found != 1 } {                  if { [ regexp -all -- {(.+)\t(.*)\t(.+)} $linedb all title description link ] } {                     if { [ string match -nocase *_$id.html $link ] } {                            set url $link                        ansa:send "PRIVMSG $chan :\037ANSA\037 \002::\002 \[\037$rubrica\037\] \002::\002 $url"                        set found 1                     }                  }               }               close $ansafile            }         }      }   }   if { [ regexp -- {\d+} $argom ] } {      set url ""      set found 0      foreach rubrica [ get:rubriche ] {         set ansafile [ open "$ansa(filepath)/$rubrica.news" r ]         while { [ gets $ansafile linedb ] > -1 && $found != 1 } {            if { [ regexp -all -- {(.+)\t(.*)\t(.+)} $linedb all title description link ] } {               if { [ string match -nocase *_$argom.html $link ] } {                     set url $link                  ### STAMPA NOTIZIA                  set http [ ::http::geturl $url ]                  set html [ ::http::data $http ]                  ::http::cleanup $http                  if { [ regexp -all -- {<div[^>]* id\=\"content-corpo\"[^>]*>(.+?)</div><!\-\-\s/\#corpo\s\-\->} $html all risposta ] } {                     regsub -all -- {\n} $risposta " " risposta                     regsub -all -- {\s+} $risposta " " risposta                     regsub -all -- {\/} $risposta "/" risposta                     regsub -all -- {\&#\d+;} $risposta "" risposta                     regsub -all -- {</?[^>]+>} $risposta "" risposta                     regsub -- {^\s*\(ANSA\)\s*-?\s*} $risposta "" risposta                     regsub -- {\s*\(ANSA\).*$} $risposta "" risposta                     regsub -all -- {\s\s+} $risposta " " risposta                     set risposta "\037ANSA\037 \002::\002 \[\037$rubrica\037\] (\002$argom\002) [ string trim $risposta ]"                     while { [ string length $risposta ] > 0 } {                        set limit [ strlastpos $risposta " " $max_chars ]                        set risptemp [ string range $risposta 0 $limit ]                        set risposta [ string range $risposta $limit end ]                        if { [ string length $risposta ] != 0 } {                           ansa:send "PRIVMSG $chan :$risptemp ..."                        } else {                           ansa:send "PRIVMSG $chan :$risptemp"                        }                     }                     unset risposta                  }                  set found 1               }            }         }         close $ansafile      }      if { $found != 1 } {         ansa:send "PRIVMSG $chan :\037ANSA\037 \002::\002 \037ERRORE\037 - Notizia non trovata !"      }   }}proc ansa:rub chan {   set rubriche {}   if { [ validchan $chan ] } {      foreach rubrica [ get:rubriche ] {         if { [ lsearch -exact [ channel info $chan ] "+ansa_$rubrica" ] > -1 } { lappend rubriche $rubrica }      }   } else {      foreach chan [ channels ] {         foreach rubrica [ get:rubriche ] {            if { [ lsearch -exact [ channel info $chan ] "+ansa_$rubrica" ] > -1 } {               if { [ lsearch -exact $rubriche $rubrica ] == -1 } { lappend rubriche $rubrica }            }         }      }   }   return $rubriche}proc ansa:update { tipo rubrica } {   global ansa   set ansafile [ open "$ansa(filepath)/$rubrica.news" r ]   set ansafilet [ open "$ansa(filepath)/$rubrica.tmp" a ]   while { [ gets $ansafile linedb ] > -1 } {      if { [ regexp -nocase -- {(.+)\t(.*)\t(.+)} $linedb all title description link ] } {         if { [ regexp -all -- {.+_(\d+).html} $link all refer ] } {            lappend riferimenti $refer         }      }   }   close $ansafile   set risposta ""   regsub -all -- {\^RUBRICA} $ansa(url) "$rubrica" url   set http [ http::geturl $url ]   set html [ http::data $http ]   ::http::cleanup $http   regsub -all -- {\n} $html "" html   regsub -all -- {<item>} $html "\n<item>" html      ### Lettura del Feed RSS   foreach line [ split $html "\n" ] {      if { [ regexp -nocase -- {<item><title><!\[CDATA\[(.+)\]\]></title><description><!\[CDATA\[(.*)\]\]></description><link>(.+)</link>.*</item>} $line all title description link ] } {         if { [ regexp -all -- {.+_(\d+).html} $link all refer ] } {            if { [ info exists riferimenti ] && [ lsearch -exact $riferimenti $refer ] == -1 } {               regsub -all -- {\/} $title "/" title               regsub -all -- {\"} $title "'" title               set risposta "$risposta $title (\037$refer\037)"            }            puts $ansafilet "$title\t$description\t$link"         }      }   }   close $ansafilet   if { $risposta != "" && $tipo == "new" } {      set risposta "\037ANSA\037 \002::\002 \[\037$rubrica\037\]$risposta"      foreach chan [ channels ] {         set max_chars [ max:privmsg:chars $chan ]         if { [ lsearch -exact [ channel info $chan ] "+ansa_$rubrica" ] > -1 } {            if { [ string length $risposta ] > $max_chars } {               set risptemp [ string range $risposta 0 [ expr $max_chars - 8 ] ]               ansa:send "privmsg $chan :$risptemp\017..."               set risptemp [ string range $risposta [ expr $max_chars - 7 ] end ]               ansa:send "privmsg $chan :\017...$risptemp"            } else {               ansa:send "privmsg $chan :$risposta"            }         }      }   }   if { [ file exists "$ansa(filepath)/$rubrica.tmp" ] } {      file rename -force -- "$ansa(filepath)/$rubrica.tmp" "$ansa(filepath)/$rubrica.news"   }}proc ansa:check { min ora giorno mese anno } {   set rubriche [ get:rubriche ]   if { [ llength $rubriche ] > 0 } {      if { $anno == 0 } {         foreach rubrica $rubriche { ansa:update init $rubrica }         putlog "\037ANSA\037 \002::\002 \037NEWS\037 - News aggiornate"      } else {         foreach rubrica $rubriche { ansa:update new $rubrica }      }      if { [ file exists "$::ansa(filepath)/$rubrica.tmp" ] } {         file rename -force -- "$::ansa(filepath)/$rubrica.tmp" "$::ansa(filepath)/$rubrica.news"      }   }}### END PROCS ###### CREAZIONE DELLA DIRECTORY DI SALVATAGGIO DEI FILE ###ansa:mkdir $ansa(filepath)### PULIZIA FILE TEMPORANEI ###foreach rubrica [ get:rubriche ] {   if { [ file exists "$ansa(filepath)/$rubrica.tmp" ] } {      file rename -force -- "$ansa(filepath)/$rubrica.tmp" "$ansa(filepath)/$rubrica.news"   }   if { ![ file exists "$ansa(filepath)/$rubrica.news" ] } {      set ansafile [ open "$ansa(filepath)/$rubrica.news" w ]      close $ansafile   }}after 1500 ansa:check 0 0 0 0 0