VDRAdmin-AM for VDR 1.7.4
Commit Message
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
@@ -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");