Du cache en tcl

[karael]

Salut à tous,
Je me suis récemment mit au tcl, mon bot utilise beaucoup de requêtes sql, le cache m'est venu comme une évidence! J'ai remarqué qu'il n'y a pas vraiment de système de cache.
Je me suis donc lancé dans la création de cache en tcl qui suit la structure suivante:

BDD:
CREATE TABLE IF NOT EXISTS dev_irc_cache (
id int(11) unsigned NOT NULL AUTO_INCREMENT,
name varchar(255) NOT NULL,
dir varchar(255) NOT NULL DEFAULT '/cache/',
description text NOT NULL,
PRIMARY KEY (id)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=2 ;
repertoriant tous les fichier de cache

Fichier:
Même structure que les ini: "UniqueID=valeur"

Exemple:
fcache1.txt
exemple1=Il fait beau


Fonctions:

file_add { "nom" "dir" "description"}
file_mod { "nom ou id" "nouveau nom ou nouvel id" "dir" "description" }
file_del { "nom ou id" }

cache_add { "nom du fichier ou id" "UniqueID" "valeur"}
cache_mod { "nom du fichier ou id" "UniqueID" "nouvelle valeur"}
cache_get { "nom du fichier ou id" }
cache_del { "nom du fichier ou id" "UniqueID" }

C'est assez simple à réaliser mais je n'ai jamais vu de tel script. Si vous avez des suggestions n'hésitez pas!
(je posterai la source dès qu'elle sera finie)