From a894994a8cbb60731d3ba1dc05e860368dc607f7 Mon Sep 17 00:00:00 2001
From: hexenmeister <hexenmeister@users.noreply.github.com>
Date: Sat, 31 Jan 2015 10:32:27 +0000
Subject: [PATCH] fixed: update on password change

git-svn-id: https://svn.fhem.de/fhem/trunk@7786 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/42_SYSMON.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm
index d6979d549..1270c92fb 100644
--- a/fhem/FHEM/42_SYSMON.pm
+++ b/fhem/FHEM/42_SYSMON.pm
@@ -37,7 +37,7 @@ use Data::Dumper;
 my $missingModulRemote;
 eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet ";
 
-my $VERSION = "2.0.2";
+my $VERSION = "2.0.3";
 
 use constant {
 	PERL_VERSION    => "perl_version",
@@ -128,9 +128,9 @@ SYSMON_Define($$)
   	my @na = @a[2..scalar(@a)-1];  
   	
   	# wenn das erste Element nicht numerisch
-  	if(!(@na[0] =~ /^\d+$/)) {
+  	if(!($na[0] =~ /^\d+$/)) {
   		# set mode/host/port
-  		my($mode, $host, $port) = split(/:/, @na[0]);
+  		my($mode, $host, $port) = split(/:/, $na[0]);
   		$mode=lc($mode);
   		# TODO SSH
   		if(defined($mode)&&($mode eq 'local' || $mode eq 'telnet')) {
@@ -660,10 +660,14 @@ SYSMON_Set($@)
   if ( lc $cmd eq 'password') {
   	my $subcmd = $a[2];
 	  if(defined $subcmd) {
-	     return SYSMON_storePassword ($hash, $subcmd);
+	     my $ret = SYSMON_storePassword ($hash, $subcmd);
+	     if(!defined($hash->{helper}{error_msg})) {
+	       SYSMON_Update($hash, 1);
+	     }
+	     return $ret;
 	  }
   }
-  
+
   return "Unknown argument $cmd, choose one of password interval_multipliers clean:noArg clear";
 }
 
@@ -2982,6 +2986,7 @@ sub SYSMON_storePassword($$)
     }
     
     my $err = setKeyValue($index, $enc_pwd);
+    $hash->{helper}{error_msg}=$err;
     return "error while saving the password - $err" if(defined($err));
     
     return "password successfully saved";