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.