# Pastebin gdDc36Fd
proc ::checkpays::who:gestion {from key text} {

   	set text [split [string trim $text]]
	lassign $text {} username vhost nick
	set SESSION [md5 "${nick}@${vhost}"]
	set realname [join [lrange [split $text {:}] 1 end]]

	if {![info exists ::checkpays::DB($SESSION)]} {return}

	## On recupere les variables en mémoire

	lassign $::checkpays::DB($SESSION) nick username ip ipdns vhost codepays asn asname reputation sslco webirc websocket unknow account

	set ::checkpays::DB($SESSION) [list $nick $username $ip $ipdns $vhost $codepays $asn $asname $reputation $sslco $webirc $websocket $unknow $realname $account]