diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm
index 88a096535..5640dcc8c 100644
--- a/fhem/FHEM/42_SYSMON.pm
+++ b/fhem/FHEM/42_SYSMON.pm
@@ -135,7 +135,7 @@ SYSMON_Initialize($)
$hash->{AttrList} = "filesystems network-interfaces user-defined disable:0,1 nonblocking:0,1 ".
"telnet-time-out ".
"user-fn2 user-fn ".
- "telnet-prompt-regx telnet-login-prompt-regx telnet-login-none:0,1 ".
+ "telnet-prompt-regx telnet-login-prompt-regx ".
"exclude ".
$readingFnAttributes;
}
@@ -2210,7 +2210,7 @@ SYSMON_getCPUProcStat_intern($$$)
$CPUsoftirq = $neuCPUsoftirq - $altCPUsoftirq;
}
- #$map->{$pName."_diff"}=$CPUuser." ".$CPUnice." ".$CPUsystem." ".$CPUidle." ".$CPUiowait." ".$CPUirq." ".$CPUsoftirq;
+ $map->{$pName."_diff"}=$CPUuser." ".$CPUnice." ".$CPUsystem." ".$CPUidle." ".$CPUiowait." ".$CPUirq." ".$CPUsoftirq;
my $GesammtCPU = $CPUuser + $CPUnice + $CPUsystem + $CPUidle + $CPUiowait + $CPUirq + $CPUsoftirq;
my $PercentCPUuser = ($CPUuser / $GesammtCPU) * 100;
@@ -3814,9 +3814,7 @@ sub SYSMON_Open_Connection($)
# }
#}
- my $tlogin_none=AttrVal($name,'telnet-login-none','0');
-
- if(!$tlogin_none && !defined($pwd)) {
+ if(!defined($pwd)) {
$msg="Error: no passwort provided";
SYSMON_Log($hash, 3, $msg);
return $msg unless defined $pwd;
@@ -3835,48 +3833,46 @@ sub SYSMON_Open_Connection($)
return $msg;
}
$hash->{".telnet"}=$telnet;
-
- if(!$tlogin_none) {
- SYSMON_Log($hash, 5, "Wait for user or password prompt.");
- unless ( ($before,$match) = $telnet->waitfor('/(user|login|password): $/i') )
- {
- $msg = "Telnet error while waiting for user or password prompt: ".$telnet->errmsg;
- SYSMON_Log($hash, 2, $msg);
- $telnet->close;
- $telnet = undef;
- return $msg;
- }
- if ( $match =~ /(user|login): / && $user eq "")
- {
- $msg = "Telnet login requires user name but attribute 'telnetUser' not defined";
- SYSMON_Log($hash, 2, $msg);
- $telnet->close;
- $telnet = undef;
- return $msg;
- }
- elsif ( $match =~ /(user|login): /)
- {
- SYSMON_Log($hash, 5, "Entering user name");
- $telnet->print( $user );
-
- SYSMON_Log($hash, 5, "Wait for password prompt");
- unless ($telnet->waitfor( '/password: $/i' ))
- {
- $msg = "Telnet error while waiting for password prompt: ".$telnet->errmsg;
- SYSMON_Log($hash, 2, $msg);
- $telnet->close;
- $telnet = undef;
- return $msg;
- }
- }
- elsif ( $match eq "password: " && $user ne "")
- {
- SYSMON_Log($hash, 3, "remote user was defined but telnet login did not prompt for user name.");
- }
-
- SYSMON_Log($hash, 5, "Entering password");
- $telnet->print( $pwd );
+
+ SYSMON_Log($hash, 5, "Wait for user or password prompt.");
+ unless ( ($before,$match) = $telnet->waitfor('/(user|login|password): $/i') )
+ {
+ $msg = "Telnet error while waiting for user or password prompt: ".$telnet->errmsg;
+ SYSMON_Log($hash, 2, $msg);
+ $telnet->close;
+ $telnet = undef;
+ return $msg;
}
+ if ( $match =~ /(user|login): / && $user eq "")
+ {
+ $msg = "Telnet login requires user name but attribute 'telnetUser' not defined";
+ SYSMON_Log($hash, 2, $msg);
+ $telnet->close;
+ $telnet = undef;
+ return $msg;
+ }
+ elsif ( $match =~ /(user|login): /)
+ {
+ SYSMON_Log($hash, 5, "Entering user name");
+ $telnet->print( $user );
+
+ SYSMON_Log($hash, 5, "Wait for password prompt");
+ unless ($telnet->waitfor( '/password: $/i' ))
+ {
+ $msg = "Telnet error while waiting for password prompt: ".$telnet->errmsg;
+ SYSMON_Log($hash, 2, $msg);
+ $telnet->close;
+ $telnet = undef;
+ return $msg;
+ }
+ }
+ elsif ( $match eq "password: " && $user ne "")
+ {
+ SYSMON_Log($hash, 3, "remote user was defined but telnet login did not prompt for user name.");
+ }
+
+ SYSMON_Log($hash, 5, "Entering password");
+ $telnet->print( $pwd );
SYSMON_Log($hash, 5, "Wait for command prompt");
my $tlogin_prompt=AttrVal($name,'telnet-login-prompt-regx','(#|\$|>)\s*$|Login failed.');
@@ -5173,10 +5169,6 @@ If one (or more) of the multiplier is set to zero, the corresponding readings is
RegExp to detect login and command line prompt. (Only for access via Telnet.)
-