[Recherche] TCL pour récupérer des infos sur un site
#9
un .sh ?

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

Résolu par :vdm_fetcher.tcl
Code :
###
    set line [string map -nocase {
        "&agrave;"            "à"        "&agrave;"            "à"        "&aacute;"            "á"        "&acirc;"            "â"
        "&atilde;"            "ã"        "&auml;"            "ä"        "&aring;"            "å"        "&aelig;"            "æ"
        "&ccedil;"            "ç"        "&egrave;"            "è"        "&eacute;"            "é"        "&ecirc;"            "ê"
        "&euml;"            "ë"        "&igrave;"            "ì"        "&iacute;"            "í"        "&icirc;"            "î"
        "&iuml;"            "ï"        "&eth;"                "ð"        "&ntilde;"            "ñ"        "&ograve;"            "ò"
        "&oacute;"            "ó"        "&ocirc;"            "ô"        "&otilde;"            "õ"        "&ouml;"            "ö"
        "&divide;"            "÷"        "&oslash;"            "ø"        "&ugrave;"            "ù"        "&uacute;"            "ú"
        "&ucirc;"            "û"        "&uuml;"            "ü"        "&yacute;"            "ý"        "&thorn;"            "þ"
        "&yuml;"            "ÿ"        "&quot;"            "\""    "&amp;"                "&"        "&euro;"            "€"
        "&oelig;"            "œ"        "&Yuml;"            "Ÿ"        "&nbsp;"            " "        "&iexcl;"            "¡"
        "&cent;"            "¢"        "&pound;"            "£"        "&curren;"            "¤"        "&yen;"                "¥"
        "&brvbar;"            "¦"        "&brkbar;"            "¦"        "&sect;"            "§"        "&uml;"                "¨"
        "&die;"                "¨"        "&copy;"            "©"        "&ordf;"            "ª"        "&laquo;"            "«"
        "&not;"                "¬"        "&shy;"                "­-"    "&reg;"                "®"        "&macr;"            "¯"
        "&hibar;"            "¯"        "&deg;"                "°"        "&plusmn;"            "±"        "&sup2;"            "²"
        "&sup3;"            "³"        "&acute;"            "´"        "&micro;"            "µ"        "&para;"            "¶"
        "&middot;"            "·"        "&cedil;"            "¸"        "&sup1;"            "¹"        "&ordm;"            "º"
        "&raquo;"            "»"        "&frac14;"            "¼"        "&frac12;"            "½"        "&frac34;"            "¾"
        "&iquest;"            "¿"        "&Agrave;"            "À"        "&Aacute;"            "Á"        "&Acirc;"            "Â"
        "&Atilde;"            "Ã"        "&Auml;"            "Ä"        "&Aring;"            "Å"        "&AElig;"            "Æ"
        "&Ccedil;"            "Ç"        "&Egrave;"            "È"        "&Eacute;"            "É"        "&Ecirc;"            "Ê"
        "&Euml;"            "Ë"        "&Igrave;"            "Ì"        "&Iacute;"            "Í"        "&Icirc;"            "Î"
        "&Iuml;"            "Ï"        "&ETH;"                "Ð"        "&Dstrok;"            "Ð"        "&Ntilde;"            "Ñ"
        "&Ograve;"            "Ò"        "&Oacute;"            "Ó"        "&Ocirc;"            "Ô"        "&Otilde;"            "Õ"
        "&Ouml;"            "Ö"        "&times;"            "×"        "&Oslash;"            "Ø"        "&Ugrave;"            "Ù"
        "&Uacute;"            "Ú"        "&Ucirc;"            "Û"        "&Uuml;"            "Ü"        "&Yacute;"            "Ý"
        "&THORN;"            "Þ"        "&szlig;"            "ß"        "\r"                ""        "\t"                ""
        "&apos;"      "\'"  "'"      "\'"  "'"       "\'" "&gt;"                ">"        "&lt;"                "<"
        """                "\'"    "&"                "&"        "#91;"                "\("    "\"                "\/"
        "]"                ")"        "{"            "("        "}"            ")"        "£"            "£"
        "¨"            "¨"        "©"            "©"        "«"            "«"        "­"            "­"
        "®"            "®"        "´"            "´"        "·"            "·"        "¹"            "¹"
        "»"            "»"        "¼"            "¼"        "½"            "½"        "¾"            "¾"
        "À"            "À"        "Á"            "Á"        "Â"            "Â"        "Ã"            "Ã"
        "Ä"            "Ä"        "Å"            "Å"        "Æ"            "Æ"        "Ç"            "Ç"
        "È"            "È"        "É"            "É"        "Ê"            "Ê"        "Ë"            "Ë"
        "Ì"            "Ì"        "Í"            "Í"        "Î"            "Î"        "Ï"            "Ï"
        "Ð"            "Ð"        "Ñ"            "Ñ"        "Ò"            "Ò"        "Ó"            "Ó"
        "Ô"            "Ô"        "Õ"            "Õ"        "Ö"            "Ö"        "×"            "×"
        "Ø"            "Ø"        "Ù"            "Ù"        "Ú"            "Ú"        "Û"            "Û"
        "Ü"            "Ü"        "Ý"            "Ý"        "Þ"            "Þ"        "ß"            "ß"
        "à"            "à"        "á"            "á"        "â"            "â"        "ã"            "ã"
        "ä"            "ä"        "å"            "å"        "æ"            "æ"        "ç"            "ç"
        "è"            "è"        "é"            "é"        "ê"            "ê"        "ë"            "ë"
        "ì"            "ì"        "í"            "í"        "î"            "î"        "ï"            "ï"
        "ð"            "ð"        "ñ"            "ñ"        "ò"            "ò"        "ó"            "ó"
        "ô"            "ô"        "õ"            "õ"        "ö"            "ö"        "÷"            "÷"
        "ø"            "ø"        "ù"            "ù"        "ú"            "ú"        "û"            "û"
        "ü"            "ü"        "ý"            "ý"        "þ"            "þ"        
        
    } $line]

    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 Smile
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}
Nick F4GUG, Fantasio et Thanatos97, 73 all
Répondre Avertir


Messages dans ce sujet
RE: [Recherche] TCL pour récupérer des infos sur un site - par Maxwell - 30/04/2013, 07:56

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté