19/04/2013, 18:57 (Modification du message : 19/04/2013, 18:58 par Maxwell.)
Bonjour
A la demande de CrazyCat je viens poster ma demande d'aide d'un autre forum et annoncer les avancées
Citation :Bonjour
Support : UnrealIRCD
Service : Anope
Eggdrop : eggdrop1.6.21
Je cherche un tcl me permettant de réccupérer des infos txt de sites internet.
J'ai testé rss-synd.tcl mais ce n'est pas parfait.
Le probleme du RSS est que ce n'est pas actualisé assez rapidement. Hors je cherche à afficher des infos dans la minute.
Pour les traduire et les dispatcher sur les channels je devrai me débrouiller mais je cale pour les chercher directement sur les sites.
Suis preneur de toute idée, merci
Than
Edit : apparemment je peux également réccupérer des infos par telnet mais j'ai peur que ça tire trop sur le client
Contexte code : ça fait 10 ans que je n'avais pas touché ni un ircd ni un egg ni un tcl, donc redémarrage un peu hard
Il a été proposé du code python mais je ne suis pas familier du tout.
Pour l'instant Harakiri m'a proposé un truc + en rapport avec mes connaissance
Donc création d'un fichier txt, je compte créer un tcl qui va :
- lire ce txt
- le trier pour dispatcher suivant les salons concernés
- enregistrer la derniere ligne lue
- relancer le crontab de la création du fichier
- relire le fichier la ligne qui va s'afficher après la derniere ligne enregistrée
Précision par rapport au site web d'origine : Lors du rafraichissement de la page html, elle n'est pas changé entierement, parfois aucune ligne ne sont rajoutées, parfois 10 ou 30 en une minute.
Vu le week end et la semaine qui arrive je ne pourrai pas trop bosser dessus mais j'indiquerai tout progrès.
Suis preneur de tout conseil évidement et je vous en remercie par avance
Je pense que déjà, il faudrait savoir quels sont les éléments qui permettent de dire qu'une ligne est nouvelle, et aussi en fonction de quoi les infos seront envoyées sur un canal ou un autre.
Ensuite, comparer les anciennes données et les nouvelles, ça ne me semble pas bien difficile à faire, mais j'attendrai tes infos pour m'avancer plus.
L'idée de départ est soit un salon par fréquence (10m, 40m etc), soit un salon par bande (exemple hf=3 - 30 MHz ou vhf=30 - 300 MHz) mais ça ne change pas réellement le tcl.
Le script va devoir lire en premier la fréquence (18100 7100 14163) pour ensuite ecrire la phrase complete dans le channel concerné
A chaque actualisation donc il faut que j'enregistre la derniere ligne du fichier txt créée, comme ça à la suivante actualisation, cette derniere ligne aura peut etre reculée de 3 ou 10 lignes dans la liste.
Si c'est de 10 lignes, le tcl va lire la variable, voir que c'est la 10eme ligne et donc trier à partir de la 9eme ligne jusqu'à la 1ere.
Je suis pas sûr d'etre bien clair car moi même je me sens un peu hs désolé
Le gros progrès pour moi est d'avoir l'astuce de créer le txt car je ne connaissais pas du tout.
L'egg n'est pas forcement la bonne méthode, et peut etre meme pas la méthode que j'utiliserai au final vu que beaucoup d'avis donnés parle d'un script en python.
Mais j'ai envie de batir le tcl, histoire de me remettre dans le bain et surtout ça me prendra moins de temps je pense de contruire le tcl que de me mettre au python pour galérer ensuite à chaque fois qu'il faudra faire une adaptation.
Est-ce que tu pourrais nous montrer ton script pour qu'on voye comment tu as fait et qu'on puisse t'aider ?
Sinon, pour lire la première ligne d'un fichier, c'est assez simple:
tcl
set fs [open fichier.txt]set ligne [gets$fs]close$fs
putserv "PRIVMSG $chan :$ligne"
28/04/2013, 16:10 (Modification du message : 28/04/2013, 16:21 par CrazyCat.)
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 :
tcl
set freq(CHANNEL)"#opers"set freq(fichierTXT)"/home/ham/TXT/frequences.txt"
#rasset 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 ligneset freq(NEW)"$line"
#tri pour channel (voir 1 ou plusieurs bots - faire hf vhf uhf etc ou par bande)set freq(TRI)[lindex$line2] #ligne d'annonce frequenceset freq(LINE)"[string range [lindex $line 2] 0 end-5],[string range [lindex $line 2] end-4 end]" #var en testset 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 ligneset 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# wgetproc timechan {}{global freq
set fi [open$freq(fichierTXT) r]set line [read -nonewline $fi]foreach line [split$line"\n"]{
# var nouvelle ligneset freq(NEW)"$line"
#tri pour channelset freq(TRI)[lindex$line2] #ligne d'annonce frequenceset freq(LINE)"[string range [lindex $line 2] 0 end-5],[string range [lindex $line 2] end-4 end]" #var en testset 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 ligneset 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 ?
ce code fonctionne dans putty (qui m'aime lui à défaut de mon bot)
inclu dans le tcl ou en tapant .tcl [exec etc... dans la party line le probleme revient toujours
- variable "a" inconnue, sans doute celle ci {$a=0;$b=1;}
ou
- Tcl error: invalid command name "cat"
j'ai collé dans le proc set a "" puis set a"1" puis set a "0" mais sans changement à chaque fois
une idée ?
un marteau ?
- création d'un fichier "cronTXT" directement via le shell avec pico où j'ai mis la ligne wget etc
- chmode -x cronTXT
Sur le tcl :[exec /home/ham/cronTXT]
Reste un probleme de regsub quand un des arguments comporte certains signes mais c'est désormais opérationnel
Merci Harakiri, Damien, Crazycat et le café Maxwell
J'ai eu 2 bugs qui sont apparus :
- invalid command name "" : quand il n'y avait rien dans un des arguments : remplacé rien par "."
- <a href="webjump.cgi?call=8Q7KP" target="_blank">8Q7KP</a> quand l'indicatif etait avec un lien à cliquer
regsub -all {<br />} $line " " line
regsub -all {<[^>]+>} $line "" line
#regsub -all {\n} $line " " line
###
regsub -all {\\} $line {\\\\} line
regsub -all {\{} $line {\{} line
regsub -all {\}} $line {\}} line
regsub -all {\]} $line {\]} line
regsub -all {\[} $line {\[} line
regsub -all {\`} $line {\`} line
regsub -all {\~} $line {\~} line
###
J'ai juste fermé la ligne : #regsub -all {\n} $line " " line
J'ai encore 2 soucis :
- toujours invalid command name "" : je pense aux crochets, ça ce n'est pas trop grave
- plantage d'enregistrement de la ligne de référence
Au bout d'un moment, quelques heures après le restart, le bot affiche les memes lignes comme si il n'y avait rien de neuf, ce qui n'est pas le cas.
Faut que je regarde le log voir si ce n'est pas encore un truc dans le dernier argument (comme les crochets ou les espaces) qui merde
Enfin ça sent la fin
Citation :[07:52] <DXspot02> [14,009.0 Mhz] Time GMT : 05H39 [Spot: PA4VHF] by [KH6OO] Msg: CQ CQ
[07:52] <DXspot02> [10,115.0 Mhz] Time GMT : 05H39 [Spot: TM0SI] by [AB9CN] Msg: .
[07:52] <DXspot02> [14,210.0 Mhz] Time GMT : 05H39 [Spot: 9A4A] by [F4FQY] Msg: .
[07:52] <DXspot02> [14,002.0 Mhz] Time GMT : 05H37 [Spot: W7XA] by [M0OXD] Msg: .
[07:52] <DXspot02> [14,071.0 Mhz] Time GMT : 05H38 [Spot: FK8GX] by [W7SPY] Msg: .
[07:52] <DXspot02> [21,014.0 Mhz] Time GMT : 05H50 [Spot: DU1/R6AF/P] by [R7GR] Msg: tnx QSO Up1
[07:52] <DXspot02> [14,211.0 Mhz] Time GMT : 05H50 [Spot: 7X5ST] by [WY7KY] Msg: Tnx Saad!!
[07:52] <DXspot02> [10,114.0 Mhz] Time GMT : 05H49 [Spot: TM0SI] by [F4EEK] Msg: .
[07:52] <DXspot02> [14,218.0 Mhz] Time GMT : 05H48 [Spot: E79D] by [UT1HA] Msg: .
[07:53] <DXspot02> [7,083.0 Mhz] Time GMT : 05H51 [Spot: IA5A] by [IZ0JGE] Msg: Giglio Is. {EU-028}
TCL terminé, un grand merci à tous pour l'aide reçu.
Il y a beaucoup dessus à finaliser mais il est opérationnel et a déjà surpris qques contacts chez nous
1) [06:01:00] Tcl error [annoncespot]: unmatched open quote in list
provient de :
***************** 2013/05/03 00:00:02 UTC NOW!! *****************
Comme je ne me rappelle pas comme rechercher le caractere *, j'ai fait un match = sur l'argument UTC donc ça doit etre réglé je verrai demain au réveil
2) [11:44] <DXwatch> [11:44:00] Tcl error [annoncespot]: list element in quotes followed by "." instead of space
là parcontre je ne vois pas du tout le souci; ni surtout de quelle ligne ça peut provenir
Sachant que ça met en l'air l'enregistrement de la variable de référence entre 2 lecture du txt, le robot lit donc toujours les memes infos et ne va pas recréer le txt : genant
Je vais faire une détection PL de la phrase "error [annoncespot] etc" pour lancer un effacement des txt et faireun rehash, mais si qqun a une idée de ce qui peut provoquer "list element in quotes followed by "." instead of space" je suis preneur, merci
intégration de mon tcl dans celui de tisma eva.tcl
maintenant c'est le socket qui annonce, et ça prend 2 secondes au lieu de parfois une minute
le fichier txt est désormais effacé après chaque enregistrement de la variable de référence
on verra demain le bilan * Maxwell croise les doigts
Pour l'instant le socket est la meilleure solution par rapport à mes capacités technique mais l'eggdrop n'est pas la solution finale pour ce type de projet
04/05/2013, 10:12 (Modification du message : 04/05/2013, 10:39 par CrazyCat.)
L'eggdrop travaille trop...
Je suis en train de revoir ton script (celui que tu m'avais passé par MP), et j'ai juste une petite question: sur la page web, les nouvelles fréquences (ou nouveaux spots ?) sont bien ajoutées au début de la page ? C'est à dire tout en haut ?
oui les "spots" (les nouvelles lignes) se rajoutent par le haut de la page.
Je viens de percuter un truc niveau timeout qui confirme ton point de vue, j'ai depuis le début installé Lea de Tisma, juste histoire de lui faire cracher sur le site le débug du serveur dans un salon Ircop.
Pour intégrer mon tcl je l'ai installé dans Eva.tcl qui est de Tisma aussi.
Le Lea n'est pas tombé depuis son dernier lancement il y a 15jours alors qu'un des 2 eva qui balance les spots et qui est sur le meme hébergement tombe assez souvent depuis 1 heure
je t'envoie le lien du dernier tcl où j'avais réduis le probleme de la variable
