Bug sur plugin amsn

Fermé
stajem Messages postés 371 Date d'inscription jeudi 23 août 2007 Statut Membre Dernière intervention 20 juin 2011 - 29 mai 2009 à 03:04
Bonsoir,

Je programme actuellement un petit plugin amsn qui me permet d'avoir une phrase du jour en message perso.
Mais j'ai encore un beau bug, j'ai les simples quotes (apostrophes ) qui ne s'affichent pas correctement.
Si vous avez des idées...

namespace eval ::citation {

    proc InitPlugin { dir } {
	package require http
	plugins_log citation "Bienvenue dans citation !\n"
	::plugins::RegisterPlugin "citation"
	::plugins::RegisterEvent "citation" ChangeMyState nouvmesg

    }

	proc DeInitPlugin { } {
		plugins_log citation "Bye !\n"
	}

	set agent "Mozilla"
    proc nouvmesg {event epvar} {
	plugins_log citation "ok\n"
	set adr "http://www.proverbes.net/citajour.js"
	plugins_log citation "$adr\n"
	set token [::http::geturl $adr -timeout 3000]
    puts stderr ""
    set htmlFile [::http::data $token]
    set token [::http::cleanup $token]
	set result [split $htmlFile _]
	
	regexp "&laquo;(.*?)&raquo;</b>" $result res2 res
	plugins_log citation "$res"
  
	::MSN::changePSM $res
	

	
    }
}