tclcups

La bibliothéque 'libtclcups.so' ajoute une commande 'cups' pour réaliser les opérations avec le syteme d'impression CUPS.

Syntaxe: cups operation ?arg arg ...?
 

  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 

 set uris [cups uris]
 foreach {d u} $uris {
   puts "$d $u"
   }
 Internet Printing Protocol (http) http 
 .... 
 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 
 ...

 set pilotes [cups pilotes -marque "epson"]
 foreach pilote $pilotes {
   puts $pilote
   }
 ...
 gutenprint/5.0/C/stp-escp2-dx4200.5.0.ppd.gz   Epson  {Epson Stylus DX4200 - CUPS+Gutenprint v5.0.0-rc3} en
 gutenprint/5.0/fr/stp-escp2-dx4200.5.0.ppd.gz  Epson  {Epson Stylus DX4200 - CUPS+Gutenprint v5.0.0-rc3} fr
 gutenprint/5.0/C/stp-escp2-dx4250.5.0.ppd.gz   Epson  {Epson Stylus DX4250 - CUPS+Gutenprint v5.0.0-rc3} en
 gutenprint/5.0/fr/stp-escp2-dx4250.5.0.ppd.gz  Epson  {Epson Stylus DX4250 - CUPS+Gutenprint v5.0.0-rc3} fr
 ...

 set etat [cups etat "epson1"]
 puts $etat

 epson1 {DX4250} {} {Epson Stylus DX4250 - CUPS+Gutenprint v5.0.0-rc3} usb:/dev/usb/lp1 3 {} none 1