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