FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 13:24:56 +00:00
Code Issues Releases Wiki Activity

fixed: update on password change

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7786 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hexenmeister 2015-01-31 10:32:27 +00:00
parent 166e6954c0
commit a894994a8c
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/42_SYSMON.pm
View File

@ -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";