Sajoin automatique avec une database

[heretoc]

Finalement comment j'ai dit je poste le code fait via l'aide d'un ami, ce code est largement plus simple que mon precedent et utilise une base de donnée sql

tclcopier

if {[issajoin $user]} {
        service:connect
		mysqlsel $::mysqlink "SELECT * FROM `votre_db` WHERE cible = '$user' ORDER BY id"
		if {[mysqlresult $::mysqlink rows] ne 0} {
		while {[set row [mysqlnext $::mysqlink]] ne ""} {
		set salonstaff [lindex $row 2]
		set chans [lindex $row 3]
		set cible [lindex $row 1]
		putdcc $::clams(idx) ":[clams:server] SAJOIN $cible $chans [clock seconds]"
		}
		} else {return 0;}
		service:deconnect

et voici la table

Code :

CREATE TABLE IF NOT EXISTS `clams_sajoins` (
  `id` int(11) NOT NULL auto_increment,
  `cible` varchar(255) NOT NULL default '',
  `salonstaff` text NOT NULL,
  `salonsajoin` text NOT NULL,
  `user` varchar(255) NOT NULL default '',
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 AUTO_INCREMENT=4 ;