View on
MetaCPAN
search.cpan.org is shutting down
For details read Perl NOC. After June 25th this page will redirect to MetaCPAN.org
Satoshi Konno > Net-UPnP-1.4.3 > Net::UPnP

Download:
Net-UPnP-1.4.3.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  14
Open  2
View/Report Bugs
Module Version: 1.4.3   Source   Latest Release: Net-UPnP-1.4.4

NAME ^

Net::UPnP - Perl extension for UPnP

SYNOPSIS ^

    use Net::UPnP::ControlPoint;

    my $obj = Net::UPnP::ControlPoint->new();

    @dev_list = $obj->search(st =>'upnp:rootdevice', mx => 3);

    $devNum= 0;
    foreach $dev (@dev_list) {
        $device_type = $dev->getdevicetype();
        if  ($device_type ne 'urn:schemas-upnp-org:device:MediaServer:1') {
            next;
        }
        print "[$devNum] : " . $dev->getfriendlyname() . "\n";
        unless ($dev->getservicebyname('urn:schemas-upnp-org:service:ContentDirectory:1')) {
            next;
        }
        $condir_service = $dev->getservicebyname('urn:schemas-upnp-org:service:ContentDirectory:1');
        unless (defined(condir_service)) {
            next;
        }
        %action_in_arg = (
                'ObjectID' => 0,
                'BrowseFlag' => 'BrowseDirectChildren',
                'Filter' => '*',
                'StartingIndex' => 0,
                'RequestedCount' => 0,
                'SortCriteria' => '',
            );
        $action_res = $condir_service->postcontrol('Browse', \%action_in_arg);
        unless ($action_res->getstatuscode() == 200) {
                next;
        }
        $actrion_out_arg = $action_res->getargumentlist();
        unless ($actrion_out_arg->{'Result'}) {
            next;
        }
        $result = $actrion_out_arg->{'Result'};
        while ($result =~ m/<dc:title>(.*?)<\/dc:title>/sgi) {
            print "\t$1\n";
        }
        $devNum++;
    }

DESCRIPTION ^

This package provides some functions to control UPnP devices.

Currently, the package provides only functions for the control point. To control UPnP devices, see Net::UPnP::ControlPoint.

As a sample of the control point, the package provides Net::UPnP::AV::MediaServer to control the devices such as DLNA media servers. As the example, please dms2vodcast.pl that converts from the MPEG2 movies to the MPEG4 one and outputs the RSS file for Vodcasting.

SEE ALSO ^

Net::UPnP::ControlPoint

Net::UPnP::AV::MediaServer

AUTHOR ^

Satoshi Konno skonno@cybergarage.org

CyberGarage http://www.cybergarage.org

COPYRIGHT AND LICENSE ^

Copyright (C) 2005 by Satoshi Konno

It may be used, redistributed, and/or modified under the terms of BSD License.

syntax highlighting: