Ticket #10325: mythlink.pl.patch

mythlink.

@@ -19 +19 @@
     use File::Path;
     use File::Basename;
     use File::Find;
+    use File::Spec;
     use MythTV;
 
 # Some variables we'll use here
@@ -26 +27 @@
     our ($chanid, $starttime, $filename);
     our ($dformat, $dseparator, $dreplacement, $separator, $replacement);
     our ($db_host, $db_user, $db_name, $db_pass, $video_dir, $verbose);
-    our ($hostname, $dbh, $sh, $q, $count, $base_dir);
+    our ($hostname, $dbh, $sh, $q, $count, $base_dir, $relative);
 
 # Default filename format
     $dformat = '%T %- %Y-%m-%d, %g-%i %A %- %S';
@@ -48 +49 @@
                'format=s'                     => \$format,
                'live'                         => \$live,
                'separator=s'                  => \$separator,
+               'relative'                     => \$relative,
                'replacement=s'                => \$replacement,
                'rename'                       => \$rename,
                'usage|help|h'                 => \$usage,
@@ -215 +217 @@
 
     default:  No underscores
 
+--relative
+
+    Use relative file names in the links.
+
 --rename
 
     Rename the recording files back to their default names.  If you had
@@ -375 +381 @@
             mkpath($directory, 0, 0775)
                 or die "Failed to create $directory:  $!\n";
         }
-        symlink $show->{'local_path'}, "$dest/$name"
+
+        my $local_path = $show->{'local_path'};
+        if ($relative) {
+            $local_path = File::Spec->abs2rel($local_path, $dest);
+        }
+
+        symlink $local_path, "$dest/$name"
             or die "Can't create symlink $dest/$name:  $!\n";
         vprint("$dest/$name");
     }