Fehler im Abwesenheit Code (Ping)

[ChrisW]

Also LEIDER geht es immer noch nicht...
War zwar schon viel besser aber es sind immernoch Fehler :(
Laut Fritzbox WLAN ab / Anmelde Log hat sich das Gerät auch nicht per WLAN abgemeldet.
Zeit auf 6 Minuten erhöht es gab also 6x Ping Versuche und alle sollen keinen erfolg gehabt haben ? Kann nicht sein.

Ich denke ich muss eine fritzbox lösung suchen aber das klappt wohl nur wenn fhem auf der fritzbox direkt läuft :(

[ChrisW]

Oha ENDLOSE Geschichte ....
Also wenn ich WLAN / Router Neu Starte Dauert 3 Minuten. WLAN ist wieder verbunden .. schaltet er trotzdem auf OFF. Kann man die Ping ausgabe nicht mal Loggen was er da als Antwort immer bekommt ??

[Zrrronggg!]

Zur Fritzbox kann ich nix sagen, ich hab keine.

Und zur Problematik "ist Pingen von Smartphones zuverlässig, wenn die im Sleepmode das Netzwerk abschalten" ist ja weiter oben schon was gesagt.

Und
http://www.fhemwiki.de/wiki/Zuhause-Status_per_WLAN_Anmeldung_(Fritzbox)
basiert daher auch nicht auf Ping soweit ich das verstehe.

[Markus]

Also hier der ganze Code
fhem läuft aber auf der Fritzbox
Das ist alles zu 99% von anderen geklaut!

Code Auswählen Erweitern


# das kommt in die fhem.cfg

define Markus_Handy dummy
attr Markus_Handy icon icoHouse.png
attr Markus_Handy room System
attr Markus_Handy setList Anwesend Abwesend

define Doris_Handy dummy
attr Doris_Handy setList Anwesend Abwesend

define Nas dummy
attr Nas icon icoHouse.png
attr Nas room System
attr Nas setList Anwesend Abwesend

define Markus dummy
attr Markus fp_Grundriss 30,213,0,
attr Markus icon icoHouse.png
attr Markus room System

#stat der ip funktioniert auch der name des handys
define WerDa notify WerDa {FhemLanStat("192.168.176.5", "Markus_Handy", "192.168.176.7",\
 "Doris_Handy", "192.168.176.3", "Nas")}
define SucheLan at +*00:01:00 trigger WerDa

#diese teil brauche ich bei Daris_Handy nicht da es immer schön brav im netz bleibt!
define handyweg notify Markus_Handy.* {if (Value("Markus_Handy") eq "Anwesend") \
{fhem ("set Markus on ;; delete wieder_aus ;; define wieder_aus at +00:05:00 set Markus off") }\
}


Code Auswählen Erweitern

##############################################
# $Id: 99_myUtils.pm $
package main;

use strict;
use warnings;
use POSIX;

sub
WlanUtils_Initialize($$)
{
  my ($hash) = @_;
}

sub right{
    my ($string,$nr) = @_;
    return substr $string, -$nr, $nr;
}

sub left{
    my ($string,$nr) = @_;
    return substr $string, 0, $nr;
}

# [url=www.somacon.com/p114.php]http://www.somacon.com/p114.php[/url]
# Perl trim function to remove whitespace from the start and end of the string
sub trim($)
{
   my $string = shift;
   $string =~ s/^\s+//;
   $string =~ s/\s+$//;
   return $string;
}

# Left trim function to remove leading whitespace
sub ltrim($)
{
   my $string = shift;
   $string =~ s/^\s+//;
   return $string;
}

# Right trim function to remove trailing whitespace
sub rtrim($)
{
   my $string = shift;
   $string =~ s/\s+$//;
   return $string;
}

######## FhemLanStat  ############
# Aufrufbeschreibung: FhemLanStat('ip-Adresse oder Netzwerkname','Name Dummy',['ip-Adresse oder Netzwerkname','Name Dummy'],[...])

sub
FhemLanStat($@)
{
  my $laenge = 0;
  my $i = 0;
  my $net_device="";
  my $dm_device ="";
  my $attendance="Abwesend";
  my $ret = "";  

  $laenge = @_;
  if (($laenge % 2) ne 0){
    $ret = "Anzahl Parameter nicht korrekt.";
return $ret;
  }

  for ($i=0;$i < $laenge;$i+=2){

    $net_device = $_[$i];
    $dm_device  = $_[($i+1)];

    # Vollstaendigen Pfad zum Script angeben
    $net_device=qx(sh /var/InternerSpeicher/fhem/FHEM/FhemUtils/lanping.sh $net_device);
    if(right(trim($net_device), 2) eq "Ok"){
$attendance="Anwesend";
    } else {
    $attendance="Abwesend";
    }

    fhem "set $dm_device $attendance";
  }
}

1;

[ChrisW]

Hallo,
Danke aber ich glaub kaum das es auf dem ersten Blick unter Windows laufen wird ;/

[Markus]

Das weis ich nicht.
Aber du wolltest doch den ganzen Code...

vielleicht findet ja den Post mal jemand und freut sich drüber.
Gruß Markus

[ChrisW]

Ich Freu mich auch das jemand Hilft ;)
Werde es trotzdem morgen mal versuchen vielleicht klappt es ja ;)

[ChrisW]

Hier habe ich meine funktionierende Lösung gefunden :
Link