Erreur lecture fichier.db

[heretoc]

Oui, excusez moi de l'erreur voici ci-dessou le code tcl qui appel les vhosts dans le fichier hosts.db

tclcopier

proc verify:host {pseudo} {
	catch {open [clams:install_directory]sources/hosts.db r} channel
	while {![eof $channel]} { 
		gets $channel hosts
		set ident [lindex $hosts 0]
		set host [lindex $hosts 1]
		set lvl [lindex $hosts 2]
		set ok_host 0
		set ok_ident 0
		if {$host eq $::chost($pseudo)} { 
			if {$ident eq $::ident($pseudo) || $ident eq "any"} {
				return $lvl
			}
		}
	}
	catch {close $channel}
	return 0
}