The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::MythWeb - Interface to MythTV via MythWeb

SYNOPSIS

  use Net::MythWeb;

  my $mythweb = Net::MythWeb->new( hostname => 'owl.local', port => 80 );

  foreach my $channel ( $mythweb->channels ) {
      print $channel->name . "\n";
  }

  foreach my $recording ( $mythweb->recordings ) {
    print $recording->channel->id, ', ', $recording->channel->number, ', ',
        $recording->channel->name, "\n";
    print $recording->start, ' -> ', $recording->stop, ': ', $recording->title,
        ', ',
        $recording->subtitle, ', ',
        $recording->description;
        $recording->download("recording.mpg");
        $recording->delete;
   }

   my $programme = $mythweb->programme( $channel, $start_as_datetime );
   $programme->record;

DESCRIPTION

This module provides a simple interface to MythTV by making HTTP requests to its MythWeb web server front end. 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, download them to a local file and schedule new recordings.

METHODS

new

The constructor takes a hostname and port:

  my $mythweb = Net::MythWeb->new( hostname => 'owl.local', port => 80 );

channels

List the channels and return them as Net::MythWeb::Channel objects:

  foreach my $channel ( $mythweb->channels ) {
      print $channel->name . "\n";
  }

recordings

List the recordings and return them as Net::MythWeb::Programme objects:

  foreach my $recording ( $mythweb->recordings ) {
    print $recording->channel->id, ', ', $recording->channel->number, ', ',
        $recording->channel->name, "\n";
    print $recording->start, ' -> ', $recording->stop, ': ', $recording->title,
        ', ',
        $recording->subtitle, ', ',
        $recording->description;
        $recording->download("recording.mpg");
        $recording->delete;
   }

programme

Returns a Net::MythWeb::Programme for the programme which starts at a given time on the channel:

   my $programme = $mythweb->programme( $channel, $start_as_datetime );
   $programme->record;

SEE ALSO

Net::MythWeb::Channel, Net::MythWeb::Programme.

AUTHOR

Leon Brocard <acme@astray.com>.

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.