egghelp.org community Forum Index
[ egghelp.org home | forum home ]		 egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Ansa tcl Help.

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help
View previous topic :: View next topic  
Author Message
sky6419
Voice


Joined: 17 Jan 2014
Posts: 20
PostPosted: Tue Mar 15, 2016 10:47 am    Post subject: Ansa tcl Help. Reply with quote
Hello someone has any idea how this address should be changed to make the script work?
set ansa(url) "http://www.ansa.it/main/notizie/awnplus/^RUBRICA/synd/ansait_awnplus_^RUBRICA_medsynd_Today_Idx.xml"

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 ansa
foreach rubrica [get:rubriche] {
  setudef flag ansa_$rubrica
}
### END FLAGS ###

### BINDS ###
bind time - "00 * * * *" ansa:check
bind time - "15 * * * *" ansa:check
bind time - "30 * * * *" ansa:check
bind time - "45 * * * *" ansa:check
bind pub - !ansa ansa:request
### END BINDS ###


### PROCS ###
package require http
http::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
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
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


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber