[Recherche] TCL pour récupérer des infos sur un site

[Maxwell]

Merci je testerai demain ou ce soir si j'ai un peu de temps

Voici actuellement le tcl, qui est créé sur une base trouvée sur eggdrop.fr pour la partie lecture de fichier :

tclcopier

set freq(CHANNEL) "#opers"
set freq(fichierTXT) "/home/ham/TXT/frequences.txt"

#ras
set freq(NEW) "" 
set freq(OLD) "xx"  
 
########################################################################
# test commande chan (a virer)
bind pub - "!dx" commandechan
proc commandechan {nick uhost handle chan args} {   
global freq
 
set fi [open $freq(fichierTXT) r]
set line [read -nonewline $fi] 
 
  foreach line [split $line "\n"] {
    # var nouvelle ligne
    set freq(NEW) "$line"

    #tri pour channel   (voir 1 ou plusieurs bots - faire hf vhf uhf etc ou par bande)
    set freq(TRI) [lindex $line 2]
    #ligne d'annonce frequence
    set freq(LINE)  "[string range [lindex $line 2] 0 end-5],[string range [lindex $line 2] end-4 end]"
    #var en test
    set freq(TIME)    "[string range [lindex $line 1] 0 end-3]H[string range [lindex $line 1] end-2 end-1] "
    putserv "PRIVMSG $freq(CHANNEL) :\00310\[\02$freq(LINE) Mhz\02\]\00301 Time GMT : $freq(TIME) \00304 \[Spot:\02 [lindex $line 0]\02\] \00301 by \00303\[\02[lindex $line end]\02\]\00301 Msg: [lrange $line 3 end-1]  "
    # var ancienne ligne
    set freq(OLD) "$line"  
 
 
  }
  close $fi
}
########################################################################
#timer
bind time - "* * * * *" annoncespot 
proc annoncespot {min h d m y} {
global freq 
timechan
}

########################################################################
# lecture
# tri
# annonce
# enregistrement 1ere ligne
# wget
proc timechan {} {   
global freq
 
set fi [open $freq(fichierTXT) r]
set line [read -nonewline $fi] 
 
  foreach line [split $line "\n"] {
    # var nouvelle ligne
    set freq(NEW) "$line"

    #tri pour channel
    set freq(TRI) [lindex $line 2]
    #ligne d'annonce frequence
    set freq(LINE)  "[string range [lindex $line 2] 0 end-5],[string range [lindex $line 2] end-4 end]"
    #var en test
    set freq(TIME)    "[string range [lindex $line 1] 0 end-3]H[string range [lindex $line 1] end-2 end-1] "
    putserv "PRIVMSG $freq(CHANNEL) :\00310\[\02$freq(LINE) Mhz\02\]\00301 Time GMT : $freq(TIME) \00304 \[Spot:\02 [lindex $line 0]\02\] \00301 by \00303\[\02[lindex $line end]\02\]\00301 Msg: [lrange $line 3 end-1]  "
    # var ancienne ligne
    set freq(OLD) "$line"  
 
 
  }
  close $fi
}
########################################################################
putlog "dx1.tcl loaded"

Je précise que ce n'est pas la derniere version où je tente d'enregistrer la 1ere ligne car trop en bordel pour la montrer ici.

Je précise également pour lever les doutes : les sources des tcl ou des sites qui me servent seront affichés sur le site du serveur, tout comme le LEA (de tisma je crois) qui ne sert pas officiellement mais que j'ai quand meme installé pour avoir le débug

Je me demande si je ne vais pas faire parler l'egg dans les salons sans y etre, histoire de pas le faire souffrir en cas de massjoin.
Mais sur unrealIRCD de mémoire on ne peut pas (sauf si les modes sont réglés), qqun peut confirmer svp ?

merci de l'aide