#!/usr/local/bin/perl
use Net::UPnP::ControlPoint;
my $obj = Net::UPnP::ControlPoint->new();
@dev_list = $obj->search();
$devNum = 1;
foreach $dev (@dev_list) {
print "[$devNum] : " . $dev->getfriendlyname() . "\n";
print "\tdeviceType = " . $dev->getdevicetype() . "\n";
print "\tlocation = " . $dev->getlocation() . "\n";
print "\tudn = " . $dev->getudn() . "\n";
@serviceList = $dev->getservicelist();
if (@serviceList < 0) {
next;
}
print "\tserviceList = " . @serviceList . "\n";
$serviceNum = 1;
foreach $service (@serviceList) {
$service_type = $service->getservicetype();
print "\t\t[$serviceNum] = " . $service_type . "\n";
$serviceNum++;
}
$devNum++;
}
exit 0;