Sajoin automatique avec une database

[heretoc]

Bonjour,
Je vient ici pour trouver un peu d'aide, en effet j'ai voulu créer un sajoin automatique envers les utilisateurs enregistrer dans une base de donnée ".db" mais je n'y arrive pas et je doit dire que je me tire les cheuveux.

Les enregistrements dans la base de donnée ce font ligne par ligne sous la forme :

Code :

pseudo@#salon
pseudo2@#salon,#salon2

Malheuresement j'ai l'impression qu'il ne lis pas ce qui ce trouve dans la base de donnée avec mon code tcl donc j'ai du surement raté la mise en page de la lecture de la base de donnée à la connexion ... donc le voici:

tclcopier

proc nicksaj {nick salon} {
    set uservip "[fread [clams:install_directory]sources/sajoin.db]"
	set llistsaj [llength $uservip]
	set i "0"
	while { $i <= $llistsaj } {
	set pseudo [lindex [split [lindex $uservip $i] "@"] 0]
	if {[string match -nocase $nick $pseudo]} {
	set salon [lindex [split [lindex $uservip $i] "@"] 1]
    if {[isindb $uservip $salon]!= -1} {
    putdcc $::clams(idx) ":[clams:server] SAJOIN $pseudo $salon"
    }
	incr i
	}
	return 1
	}
}

###################
# Clams Scriptdir #
###################
set ::clams(path) "[file dirname [info script]]/"
 
proc clams:install_directory {} { 
return $::clams(path) 
}