---
name: "Net::UPnP::AV::MediaServer"
section: "3pm"
platform: "linux"
package: "libnet-upnp-perl"
version: "1.4.6-2"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Net::UPnP::AV::MediaServer"
---

# Net::UPnP::AV::MediaServer(3pm)

Perl extension for UPnP.

## NAME

Net::UPnP::AV::MediaServer - Perl extension for UPnP.

## SYNOPSIS

```
    use Net::UPnP::ControlPoint;
    use Net::UPnP::AV::MediaServer;
    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;
        }
        $mediaServer = Net::UPnP::AV::MediaServer->new();
        $mediaServer->setdevice($dev);
        @content_list = $mediaServer->getcontentlist(ObjectID => 0);
        foreach $content (@content_list) {
            print_content($mediaServer, $content, 1);
        }
        $devNum++;
    }
    sub print_content {
        my ($mediaServer, $content, $indent) = @_;
        my $id = $content->getid();
        my $title = $content->gettitle();
        for ($n=0; $n<$indent; $n++) {
            print "\t";
        }
        print "$id = $title";
        if ($content->isitem()) {
            print " (" . $content->geturl();
            if (length($content->getdate())) {
                print " - " . $content->getdate();
            }
            print " - " . $content->getcontenttype() . ")";
        }
        print "\n";
        unless ($content->iscontainer()) {
            return;
        }
        @child_content_list = $mediaServer->getcontentlist(ObjectID => $id );
        if (@child_content_list <= 0) {
            return;
        }
        $indent++;
        foreach my $child_content (@child_content_list) {
            print_content($mediaServer, $child_content, $indent);
        }
    }
```

## DESCRIPTION

The package is a extension UPnP/AV media server.

## METHODS

- **new** - create new Net::UPnP::AV::MediaServer.

  ```
      $mservier = Net::UPnP::AV::MediaServer();
  ```

  Creates a new object. Read \`perldoc perlboot\` if you don't understand that.

  The new object is not associated with any UPnP devices. Please use **setdevice()** to set the device.

- **setdevice** - set a UPnP devices

  ```
      $mservier->setdevice($dev);
  ```

  Set a device to the object.

- **browse** - browse the content directory.

  ```
      @action_response = $mservier->browse(
                                          ObjectID => $objid, # 0
                                          BrowseFlag => $browseFlag, # 'BrowseDirectChildren'
                                          Filter => $filter, # "*'
                                          StartingIndex => $startIndex, # 0
                                          RequestedCount => $reqCount, # 0
                                          SortCriteria => $sortCrit # ''
                                          );
  ```

  Browse the content directory and return the action response, Net::UPnP::ActionResponse.

- **getcontentlist** - get the content list.

  ```
      @content_list = $mservier->getcontentlist(
                                          ObjectID => $objid, # 0
                                          Filter => $filter, # "*'
                                          StartingIndex => $startIndex, # 0
                                          RequestedCount => $reqCount, # 0
                                          SortCriteria => $sortCrit # ''
                                          );
  ```

  Browse the content directory and return the content list. Please see Net::UPnP::AV::Content, Net::UPnP::AV::Item and Net::UPnP::AV::Container.

## SEE ALSO

Net::UPnP::AV::Content

Net::UPnP::AV::Item

Net::UPnP::AV::Container

## 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.