1#!/usr/bin/perl 2 3package test_read; 4use strict; 5use LPRng; 6use Sys::Hostname; 7 8# working values 9my($pc_path,$file,$Printer,$key,$value,$Pc_value); 10$| = 1; 11Set_Debug(5); 12Setup_LPRng( "P:"); 13# get the printer name 14$Printer = Get_printer_name(); 15if( not $Printer ){ 16 die "missing printer name"; 17} 18print "Printer '$Printer'\n"; 19$Pc_value = Setup_pc_entry( $Printer ); 20if( not defined $Pc_value ){ 21 print "no printcap information for printer '$Printer'\n"; 22 exit 1; 23} 24print "Printcap '$Printer'\n"; 25foreach $key (sort keys %$Pc_value ){ 26 print " '$key'='$Pc_value->{$key}'\n"; 27} 28print "DONE\n"; 29exit 0; 30