TR Forums

!/usr/bin/perl
                                                                                                                                            
use warnings;
use strict;
use DBI;
                                                                                                                                            
my $storage_path = '/mnt/hdd/mythtv/'; # Or whatever
my $dlna_path = '/home/user/dlna/'; #Or whatever
                                                                                                                                            
my $dbh = DBI->connect(
        "dbi:mysql:dbname=mythconverg",
        "mythtv",       # Or whatever you installed it as
        "mythtv",     # Or whatever you installed it as
        { RaiseError => 1 },                                                                                                                
) or die $DBI::errstr;
                                                                                                                                            
my $sth = $dbh->prepare("SELECT title, season, episode, originalairdate, basename FROM recorded;");
        $sth->execute();
        while (my @data = $sth->fetchrow_array()) {
                my $title = $data[0];
                my $season = $data[1];
                my $episode = $data[2];
                my $airdate = $data[3];
                my $basename = $data[4];
                symlink("$storage_path$basename","$dlna_path$title-S${season}E${episode}_$airdate");
        }                                                                                                                                   
        $sth->finish();
$dbh->disconnect();
exit();

symlink("$storage_path$basename","$dlna_path$title-S${season}E${episode}");