FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

17_EGPM2LAN.pm: Connection-Timeout reduced to 5 Secs

Browse Source 
(Thanks to UliM)

git-svn-id: https://svn.fhem.de/fhem/trunk@8079 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
alexus2033 2015-02-24 13:15:58 +00:00
parent 2a4431eb09
commit 4207dac703
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/17_EGPM2LAN.pm
View File

@ -145,7 +145,8 @@ sub EGPM2LAN_Switch($$$$) {
my $data = "cte1=" . ($port == "1" ? $state : "") . "&cte2=" . ($port == "2" ? $state : "") . "&cte3=" . ($port == "3" ? $state : "") . "&cte4=". ($port == "4" ? $state : ""); my $data = "cte1=" . ($port == "1" ? $state : "") . "&cte2=" . ($port == "2" ? $state : "") . "&cte3=" . ($port == "3" ? $state : "") . "&cte4=". ($port == "4" ? $state : "");
Log $logLevel, "EGPM2LAN $data"; Log $logLevel, "EGPM2LAN $data";
eval { eval {
CustomGetFileFromURL($hash ,"http://".$hash->{IP}."/",10 ,$data ,$fritz ,$logLevel); # Parameter: $url, $timeout, $data, $noshutdown, $loglevel
GetFileFromURL("http://".$hash->{IP}."/", 5,$data ,$fritz ,$logLevel);
}; };
if ($@){ if ($@){
### catch block ### catch block
@ -162,7 +163,7 @@ sub EGPM2LAN_Login($$) {
Log $logLevel,"EGPM2LAN try to Login @".$hash->{IP}; Log $logLevel,"EGPM2LAN try to Login @".$hash->{IP};
eval{ eval{
CustomGetFileFromURL($hash, "http://".$hash->{IP}."/login.html", 10, "pw=" . (defined($hash->{PASSWORD}) ? $hash->{PASSWORD} : ""), 0, $logLevel); GetFileFromURL("http://".$hash->{IP}."/login.html", 5,"pw=" . (defined($hash->{PASSWORD}) ? $hash->{PASSWORD} : ""),0 ,$logLevel);
}; };
if ($@){ if ($@){
### catch block ### catch block
@ -213,7 +214,8 @@ sub EGPM2LAN_Statusrequest($$$) {
my ($hash, $logLevel, $autoCr) = @_; my ($hash, $logLevel, $autoCr) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $response = CustomGetFileFromURL($hash, "http://".$hash->{IP}."/", 10, "", 0, $logLevel); my $response = GetFileFromURL("http://".$hash->{IP}."/", 5,"" , 0 ,$logLevel);
#CustomGetFileFromURL($hash, "http://".$hash->{IP}."/", 10, "", 0, $logLevel);
#Log 1,$response; #Log 1,$response;
if(defined($response) && $response =~ /.,.,.,./) if(defined($response) && $response =~ /.,.,.,./)
{ {
@ -295,8 +297,7 @@ sub EGPM2LAN_Statusrequest($$$) {
sub EGPM2LAN_Logoff($$) { sub EGPM2LAN_Logoff($$) {
my ($hash, $logLevel) = @_; my ($hash, $logLevel) = @_;
#$quiet, $url, $timeout, $data, $noshutdown, $loglevel GetFileFromURL("http://".$hash->{IP}."/login.html", 5,"" ,0 ,$logLevel);
CustomGetFileFromURL($hash, "http://".$hash->{IP}."/login.html", 10, "", 0, $logLevel);
return 1; return 1;
} }