| Current Path : /usr/share/doc/perl-Net-CUPS/examples/ |
| Current File : //usr/share/doc/perl-Net-CUPS/examples/list_dests.pl |
#!/usr/bin/perl
use strict;
use warnings;
##
## This is an example of how to get all of the destinations on
## the default server.
##
use Net::CUPS;
use Net::CUPS::Destination;
{
my $cups = Net::CUPS->new();
my @destinations = $cups->getDestinations();
foreach( @destinations )
{
print $_->getName() ."\n";
}
exit( 0 );
}