J. J. Merelo-Guervós > MP3-Podcast-0.06_1aa > MP3::Podcast



Annotate this POD


Open  0
View/Report Bugs
Module Version: 0.06_1aa   Source  


MP3::Podcast - Perl extension for podcasting directories full of MP3 files


  use MP3::Podcast;
  my $dirbase = shift;
  my $urlbase = shift;
  my $dir = shift;
  my $pod = MP3::Podcast->new($dirbase,$urlbase);
  my $rss = $pod->podcast( $dir, "This is a test" );
  print $rss->as_string;


Create podcast easily from directories, using MP3's own info.


Creates a podcast, basically a RSS feed for a directory full of MP3 files. Takes information from the MP3 files themselves; it needs MP3 files with their ID tags completed.

The bundle includes two programs in the examples dir: gen-podcast.pl, used this way: bash% ./gen-podcast.pl <dirbase> <urlbase> <dir to scan> which generates a static RSS from a dir, and podcast.cgi, to use from a webserver. To use it, copy podcast.cgi and podcast.conf to a cgi-serviceable dir; edit podcast.conf to your liking and copy it to the directory you want. Copy also .podcast to the directory you want served as a podcast (this is done mainly to avoid dir-creeping), edit the path to fetch the MP3::Podcast lib, and call it with http://my.host.com/cgi-bin/podcast.cgi/[dirname].rss The name of the directory to scan will be taken from the URI

This new version includes in the test directory MP3s by the Spanish group Anima Adversa, which are freely distributed under a CC license.



Creates the object. Takes basic info as input: the address of the directory that will be scanned, the base URL that will be used to podcast this URL base.


Creates the podcast for a dir, that is, an RSS file with enclosures containing the MP3s it can find in that dir. Information to fill RSS fields is contained in the ID3 fields of the MP3 files. Returns an XML::RSS object, which you can manipulate, if you feel like doing so.


Info on podcasting:

Podcast in perl: http://escripting.com/podcast/
Podcastamatic: http://bradley.chicago.il.us/projects/podcastamatic/readme.html
Examples in the examples dir.


Juan Julian Merelo Guervos, <jmerelo {at} geneura.ugr.es>. Thanks to Juan Schwindt <juan {at} schwindt.org>, Matt Domsch <matt {at} domsch.com>, Gavin Hurlbut <gjhurlbu {at} gmail.com> and Eric Johnson <eric {at} el-studio.com > for patches, suggestion and encouragement.


Copyright 2005-2009 by Juan Julian Merelo Guervos

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

syntax highlighting: