Untitled

#!/usr/bin/perl

use MythTV;

my $cmd = "QUERY_RECORDINGS Delete";

if (defined($ARGV[0]))
{
    $cmd = $ARGV[0];
}

$x = new MythTV();

my @recs = split(qr/\[\]:\[\]/, $x->backend_command($cmd));

print "#    Data Element\n";
print "---- --------------------------------------------------------------\n";
$i = 0;

foreach my $item ( @recs ) {
    printf( "%4d %s\n", $i++, $item );
}

exit( 0 );