Pipe to identify CUPS printers

Here is a code snippet that uses the pipe device to query Linux for the names of available CUPS printers. It returns them in an MUMPS array.

lpstat(DEVICE)  ;;

       ;; (CUPS has been configured with
       ;;  the desired printers defined.)
       ;;Sample run:
       ;; GTM>d lpstat^testing(.jlz)
       ;; GTM>zwr
       ;;    jlz=""
       ;;    jlz("HP_LaserJet_1100A")=""
       ;;    jlz("Photosmart_192.168.5.103")=""
       ;;
       New P Set P="pipe"
       Open P:(command="lpstat -a")::P
       For  Use P Read DEVICE Quit:$ZEOF  Do
       . Set DEVICE($P(DEVICE," "))=""
       . Quit
       Close P
       Quit