CUPS et Tcl

Voici une bibliothéque libtclcups.so [1] fonctionnant sous linux, permettant de disposer des principales fonctions de CUPS à partir de Tcl. (CUPS un système d'impression pour les systèmes Unix, il permet aux constructeurs d'imprimantes et aux développeurs de créer facilement des pilotes, et ainsi de disposer d'un grand nombre de pilotes d'imprimantes).

Les principales commandes sont:

cups lpq : liste des travaux d'impressions en cours
cups lprm : suppression d'un travail d'impression
cups ajoutImprimante : ajout ou modification d'une imprimante
cups supImprimante : suppression d'une imprimante
cups uris : liste des uri de périphérique disponibles
cups pilotes : liste des pilotes disponibles
cups etat : état d'une imprimante

Quelques exemples: lpq

 set lpqs [cups lpq]
 foreach lpq $lpqs {
   puts $lpq
   }

 165 epson1 gerard {Test Page} 15 {03/02/2008 16:25} 3
 166 epson1 gerard           0  7 {03/02/2008 16:27} 3

uris

 set uris [cups uris]
 foreach {d u} $uris {
   puts "$d $u"
   }
 ....
 Serial Port #1              serial:/dev/ttyS0?baud=115200
 Serial Port #2              serial:/dev/ttyS1?baud=115200
 ...
 USB Printer #1              usb:/dev/usb/lp0
 USB Printer #2              usb:/dev/usb/lp1

ajoutImprimante

 cups ajoutImprimante \
   -p "Epson3" \
   -D "Description de l'imprimante" \
   -v usb:/dev/usb/lp8 \
   -m gutenprint/5.0/C/stp-pcl-apollo-p2150.5.0.ppd.gz

La documentation compléte est ici -> http://perso.orange.fr/gerard.mouton/tclcups/cups.html

Cette bibliothèque a été réalisée à partir d'une partie des sources du dossier cgi-bin de cups version 1.1.23, adaptées pour être utilisables par Tcl. Ces sources étant sous licence GPL, cette bibliothéque l'est également.

Pour d'autres informations voir ce lien http://perso.orange.fr/gerard.mouton/tclcups/index.html