Podcast::Publisher 0.50

Podcast::Publisher is a Perl module for creating and managing podcasts.

SYNOPSIS

use Podcast::Publisher;

my $podcast = Podcast::Publisher->new;
$podcast->set_logger( sub { my $msg = shift; print $msg; } );
$podcast->set_error_logger( sub { my $msg = shift; print STDERR $msg; } );
my $xml = "./podcast.xml";
$podcast->set_file( $xml );
$podcast->set_remote_root( "http://localhost.localdomain/podcast/publishing/" );
$podcast->set_db_connection( { driver => "mysql",
username => foo,
password => bar,
host => localhost,
database => podcast } );

# If we change podcast information, synchronize this information in the MP3 file itself
$podcast->set_synchronize( 1 );

$podcast->set_metadata( { title => "Chris Podcast",
description => "All About Chris",
"docs" => "http://localhost",
"editor" => "podcastmanager@localhost",
"webmaster" => "podcastmanager@localhost",
} );

# This adds an item to the database, and synchronizes the
# MP3 Tag information in the file with the database
$podcast->add_new_episode( { title => Some title,
author => Chris of course
category => Jazz
description => First in a series of many
mp3 => /home/foobar/mp3s/episode1.mp3 } );

$podcast->set_upload_settings( { host => localhost.localdomain,
username => someuser,
password => somepass,
path => podcast/publishing/,
remote_root => http://localhost.localdomain/podcast/publishing/ } );
$podcast->upload();