acme / net-mythtv Goto Github PK

NAME
    Net::MythTV - Interface to MythTV

SYNOPSIS
      use Net::MythTV;

      my $mythtv = Net::MythTV->new();
      my @recordings = $mythtv->recordings;
      foreach my $recording (@recordings) {
        my $filename = $recording->title . ' ' . $recording->start . '.mpg';
        $filename =~ s{[^a-zA-Z0-9]}{_}g;
        print $recording->channel . ', '
          . $recording->title . ' '
          . $recording->start . ' - '
          . $recording->stop . ' ('
          . $recording->size . ') -> '
          . $filename
          . "\n";
        $mythtv->download_recording( $recording, $filename );
      }

      # prints out something like:
      # BBC TWO, Springwatch 2009-06-11T19:00:00 - 2009-06-11T20:00:00
      #   (3184986020) -> Springwatch_2009_06_11T19_00_00_mpg
      # Channel 4, Derren Brown 2009-06-11T22:40:00 - 2009-06-11T23:10:00
      #   (1734615088) -> Derren_Brown_2009_06_11T22_40_00_mpg

DESCRIPTION
    This module provides a simple interface to MythTV using the MythTV
    protocol. MythTV is a free open source digital video recorder. Find out
    more at <http://www.mythtv.org/>.

    This module allows you to query the recordings and to download them to a
    local file. By default the MythTV protocol is only allowed on the local
    machine running MythTV.

METHODS
  new
    The constructor takes a hostname and port, but defaults to:

      my $mythtv = Net::MythTV->new();
      my $mythtv = Net::MythTV->new( hostname => 'localhost', port => 6543 );

  recordings
    List the recordings and return them as Net::MythTV::Recording objects:

      my @recordings = $mythtv->recordings;
      foreach my $recording (@recordings) {
        print $recording->channel . ', '
          . $recording->title . ' '
          . $recording->start . ' - '
          . $recording->stop . ' ('
          . $recording->size . ') -> '
          . $filename
          . "\n";
      }

  download_recording
    Downloads a recording to a local file:

      $mythtv->download_recording( $recording, $filename );

SEE ALSO
    Net::MythTV::Connection, Net::MythTV::Recording.

AUTHOR
    Leon Brocard <[email protected]>.

COPYRIGHT
    Copyright (C) 2009, Leon Brocard

LICENSE
    This module is free software; you can redistribute it or modify it under
    the same terms as Perl itself.