From e1b5aaf5670d97b68adcbac585a2f3c79fa6d1eb Mon Sep 17 00:00:00 2001 From: Andreas Brachold Date: Sun, 4 Sep 2011 17:20:22 +0000 Subject: SVDRP: independent hold of version for any VDR --- lib/XXV/MODULES/SVDRP.pm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/XXV/MODULES/SVDRP.pm b/lib/XXV/MODULES/SVDRP.pm index 8b20540..b1e0077 100644 --- a/lib/XXV/MODULES/SVDRP.pm +++ b/lib/XXV/MODULES/SVDRP.pm @@ -497,6 +497,18 @@ sub is_host_online { return 'no'; } +sub vdr_version { + my $self = shift || return error('No object defined!'); + my $vdrid = shift; + + if($self->{Cache} + && $self->{Cache}->{$vdrid} + && $self->{Cache}->{$vdrid}->{version}) { + return $self->{Cache}->{$vdrid}->{version}; + } + return 'no'; +} + sub enum_onlinehosts { my $self = shift || return error('No object defined!'); @@ -698,7 +710,9 @@ sub command { # parse header like 220 video SVDRP VideoDiskRecorder 1.7.1; Fri May 2 16:17:10 2008; ISO-8859-1 my @header = split (/\;/, $data->[0]); - main::getVdrVersion($1) + + # Store version 1.2.6 => 10206, 1.3.32 => 10332 + $self->{Cache}->{$vdrid}->{version} = int(sprintf("%02d%02d%02d",split(/\./,$1))) if($header[0] =~ /SVDRP\s+VideoDiskRecorder\s+(\d\.\d\.\d+)/); if(scalar @header > 2) { -- cgit v1.2.3