From 98fdfb0fb0be14fcd786f669ea7bd7775688eba8 Mon Sep 17 00:00:00 2001
From: hapege <>
Date: Tue, 22 Mar 2022 20:07:51 +0000
Subject: [PATCH] 70_SVDRP.pm: bugfix in NextTimer

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@25873 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/70_SVDRP.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/FHEM/70_SVDRP.pm b/FHEM/70_SVDRP.pm
index 40866d000..85e89dccf 100755
--- a/FHEM/70_SVDRP.pm
+++ b/FHEM/70_SVDRP.pm
@@ -8,6 +8,7 @@
 #
 # version history
 #    1.01.01      first released version
+#    1.01.02      bugfix for single-digit NextTimer 
 #
 ########################################################################################
 #
@@ -39,7 +40,7 @@ use Blocking;
 use Time::HiRes qw(gettimeofday);
 use POSIX;
 
-my $version = "1.01.01";
+my $version = "1.01.02";
 
 my %SVDRP_gets = (
   #
@@ -132,6 +133,8 @@ sub SVDRP_Define {
   $hash->{devioNoSTATE} = 1;
   # subscribe only to notify from global and self
   $hash->{NOTIFYDEV} = "global,TYPE=SVDRP";
+  # set version
+  $hash->{version} = $version;  
   
   my $name = $hash->{NAME}; 
   
@@ -522,7 +525,7 @@ sub SVDRP_parseMessage {
     SVDRP_parseDiskStatus($hash, $reading, $msg);
     #Log3 $name, 5, "[$name] Parse: updated $reading with '$msg'";    
   }
-  elsif ($msg =~ /^250[ ]\d+[ ][A-Za-z]{3}[ ][A-Za-z]{3}[ ][1-9]{2}[ ][0-9]{2}:[0-9]{2}:[0-9]{2}[ ][0-9]{4}\s$/){  
+  elsif ($msg =~ /^250[ ]\d+[ ][A-Za-z]{3}[ ][A-Za-z]{3}[ ]{1,2}[0-9]{1,2}[ ][0-9]{2}:[0-9]{2}:[0-9]{2}[ ][0-9]{4}\s$/){  
     # next timer format: 250 1 Tue Mar 15 09:50:00 2022
     $reading = "NextTimer";
     (my $code, $msg) = split (/ /, $msg, 2);