mysql -uroot  mythconverg -B --exec "select chanid,DATE_FORMAT(starttime,'%Y%m%d%H%i%s'),DATE_FORMAT(endtime,'%Y%m%d%H%i%s'),title,subtitle,description from recorded;" >/tmp/mythlink.$$

mysql -uroot  mythconverg -B --exec "select chanid,DATE_FORMAT(starttime,'%Y%m%d%H%i%s'),DATE_FORMAT(endtime,'%Y%m%d%H%i%s'),title,subtitle,description,basename from recorded;" >/tmp/mythlink.$$

my $ofn = "${chanid}_${start}_${end}.nuv";

my $ofn = "${basename}";

#!/bin/sh

# mythlink.sh - Symlinks mythtv files to more readable version in /tv/pretty
# by Dale Gass
# modified by Dave Misevich for slightly prettier names and doesn't destroy/recreate valid links.
# (I found a windows box watching a recording would terminate if the link was removed)
# Bug fixed caused by programs that don't have a subtitle. Use start time/date to create one.
# modified to add .mpg to end of symlink. Thanks mike at the mysettopbox.tv forum for the code.
# modified to use 'basename' from mythconverg to handle a mix of .nuv & .mpg's in /myth/tv
mysql -uroot  mythconverg -B --exec "select chanid,DATE_FORMAT(starttime,'%Y%m%d%H%i%s'),DATE_FORMAT(endtime,'%Y%m%d%H%i%s'),title,subtitle,description,basename from recorded;" >/tmp/mythlink.$$
perl -w -e '
        my $mythpath= "/myth/tv";
        my $altpath= "/myth/pretty";
   my $altpath2 = "/myth/pretty2";
   my $dfile= "";
   my $edate= "";
   my %month = ( "01","Jan", "02","Feb", "03","Mar", "04","Apr", "05","May", "06","Jun",
                 "07","Jul", "08","Aug", "09","Sep", "10","Oct", "11","Nov", "12","Dec");
        if (!-d $altpath) {
                mkdir $altpath or die "Failed to make directory: $altpath\n";
        }
   opendir(DIR, $altpath) or die "cannot opendir $altpath: $!";
   while (defined($file = readdir(DIR))) {
      next if $file =~ /^\.\.?$/;     # skip . and ..
      @dirlist = (@dirlist,$file);
       }
       closedir(DIR);
        <>;
        while (<>) {
                chomp;
                my ($chanid,$start,$end,$title,$subtitle,$description,$basename) = split /\t/;
                $subtitle = "" if(!defined $subtitle);
                my $ofn = "${basename}";
      # skip if the nuv doesnt exist
                do { print "Skipping $mythpath/$ofn\n"; next } unless -e "$mythpath/$ofn";
                $start =~ /^....(........)/;
      if ($subtitle eq "") {
        # if no subtitle then build one from start time.
        $subtitle = $month{substr($start,4,2)} . substr($start,6,2);
        $subtitle = $subtitle . "_" . substr($start,0,4) . "_" . substr($start,8,4);
      }
                # my $nfn = "${title}-${subtitle}";
      my $fntitle = "${title}";
                $fntitle =~ s/&/+/g;
      $fntitle =~ s/\047//g;
      $fntitle =~ s/[^+0-9a-zA-Z_-]+/_/g;
      $fntitle =~ s/_$//g;
     
      my $fnsubtitle = substr($start,2,2).substr($start,4,2).substr($start,6,2)."-".substr($start,8,4). "-${subtitle}";
                $fnsubtitle =~ s/&/+/g;
      $fnsubtitle =~ s/\047//g;
      $fnsubtitle =~ s/[^+0-9a-zA-Z_-]+/_/g;
      $fnsubtitle =~ s/_$//g;
     
      my $nfn = "${fntitle}-${fnsubtitle}";
      my $nfn2 = "${fntitle}/${fnsubtitle}";
   
      #print "\$ofn = $ofn $title \$nfn = $nfn\n";
      # make a list of existing nuv filenames for use later.
      $goodfile{$nfn.".mpg"} = 1;
      #
      # Create symlink in $altpath (pretty) and create description file
      #
      if (!-s "$altpath/$nfn".".mpg"){
                  #  print "Creating $altpath/$nfn\n";
                  symlink "$mythpath/$ofn", "$altpath/$nfn".".mpg" or die "Failed to create symlink $altpath/$nfn".".mpg".": $!";
        open ($dfile,">$altpath/descriptions/$nfn.mpg.txt") || die("Could not open txt file. $!");
        print $dfile "$description \l";
        close ($dfile);
      }
      #
      # Create secondary altpath2 -- subdir by series
      #
      if (!-s "$altpath2/$nfn2".".mpg") {
        mkdir "$altpath2/$fntitle";
        symlink "$mythpath/$ofn", "$altpath2/$nfn2".".mpg" or die "Failed to create symlink in $altpath2/$nfn2".": $!";
      }
        }
   # remove symlinks that are not pointed at valid files in the database
   # Also removed corresponding file in "descriptions"
   foreach $fname (@dirlist) {
       unlink "$altpath/$fname" unless $goodfile{$fname};
       unlink "$altpath/descriptions/$fname.txt" unless $goodfile{$fname};
       #print "I want to unlink $altpath/$fname\n" unless $goodfile{$fname};
       }

' /tmp/mythlink.$$
#
# Remove sym links in "pretty2" that point at files that
# don't exist anymore
#
find /myth/pretty2 -type l \! -xtype f -name \*.mpg -exec rm  \{\} \;
find /myth/pretty  -type l \! -xtype f -name \*.mpg -exec ls \{\} \;
rm /tmp/mythlink.$$

find /myth/pretty2 -type l \! -xtype f -name \*.mpg -exec rm  -f \{\} \;
find /myth/pretty2 -type d -empty -exec rmdir -v \{\} \;
find /myth/pretty  -type l \! -xtype f -name \*.mpg -exec rm -f \{\} \;