#!/usr/bin/perl
# $Id: enumerate 56 2007-01-10 14:41:53Z boumenot $
# Christopher Boumenot <boumenot@gmail.com>
use Net::TiVo;
use Net::TiVo::Show;
use Net::TiVo::Folder;
#use Log::Log4perl;
#Log::Log4perl->easy_init($DEBUG);
my $tivo = Net::TiVo->new(host => $ENV{TIVO_HOST},
mac => $ENV{TIVO_MAC});
my $bullet = 1;
for my $f ($tivo->folders()) {
for my $s ($f->shows()) {
my $bullet_string = sprintf("[%d]%s",
$bullet, (" " x (4-length($bullet))));
print $bullet_string, $s->as_string(),"\n";
$bullet++;
}
}