VDRAdmin-AM for VDR 1.7.4

Message ID 20090204190154.GI25932@titan.makhutov-it.de
State New
Headers

Commit Message

Artem Makhutov Feb. 4, 2009, 7:01 p.m. UTC
  Hello,

On Wed, Feb 04, 2009 at 09:08:17AM +0100, Andreas Mair wrote:
> Hello!
> 
> Sure, there are plans to support vdr 1.7.4 but I didn't have the time
> to setup vdr 1.7.4, do some recordings and modify VDRAdmin-AM.

I have attached a patch with makes vdradmin-am able to playback the new .ts
recorings and also the old ones.

I am not an regexp expert, so there could be a nicer way to do this.

Regards, Artem
  

Patch

--- vdradmind.pl.old	2009-02-04 19:48:12.000000000 +0100
+++ vdradmind.pl	2009-02-04 19:52:29.000000000 +0100
@@ -4830,8 +4830,8 @@ 
     my $data;
     $title =~ s/ /_/g;
     $title =~ s/~/\//g;
-    Log(LOG_DEBUG, "rec_stream: find $CONFIG{VIDEODIR}/ -follow -regex \"$CONFIG{VIDEODIR}/$title\_*/\\(\_/\\)?....-$month-$day\\.$hour.$minute\\...\\...\\.rec/...\\.vdr\"");
-    my @files = `find $CONFIG{VIDEODIR}/ -follow -regex "$CONFIG{VIDEODIR}/$title\_*/\\(\_/\\)?....-$month-$day\\.$hour.$minute\\...\\...\\.rec/...\\.vdr" | sort -r`;
+    Log(LOG_DEBUG, "rec_stream: find $CONFIG{VIDEODIR}/ -follow -regex \"$CONFIG{VIDEODIR}/$title\_*/\\(\_/\\)?....-$month-$day\\.$hour.$minute..?.?...\\.rec/\\(...\\.vdr\\|.....\\.ts\\)\"");
+    my @files = `find $CONFIG{VIDEODIR}/ -follow -regex "$CONFIG{VIDEODIR}/$title\_*/\\(\_/\\)?....-$month-$day\\.$hour.$minute..?.?...\\.rec/\\(...\\.vdr\\|.....\\.ts\\)" | sort -r`;
     foreach (@files) {
         chomp;
         Log(LOG_DEBUG, "findVideoFiles: found ($_)\n");