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 a 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

Compare to GetPrinters^TMGPRNTR(Printers)