Hi Leute
Musste mein System leider neu aufsetzen jetzt weiß ich nicht mehr ob ich noch etwas in Utils_99 etwas eintragen musste.
sub checkFritzMACpresent($$) {
# Benötigt: Name der zu testenden Fritzbox ($Device),
# zu suchende MAC ($MAC),
# Rückgabe: 1 = Gerät gefunden
# 0 = Gerät nicht gefunden
my ($Device, $MAC) = @_;
my $Status = 0;
$MAC =~ tr/:/_/;
$MAC = "mac_".uc($MAC);
my $StatusFritz = ReadingsVal($Device, $MAC, "weg");
if ($StatusFritz eq "weg") {
Log 1, ("checkFritzMACpresent ($Device): $MAC nicht gefunden, abwesend.");
$Status = 0;
} elsif ($StatusFritz eq "inactive") {
Log 1, ("checkFritzMACpresent ($Device): $MAC ist >inactive<, also abwesend.");
$Status = 0;
} else {
# Reading existiert, Rückgabewert ist nicht "inactive", also ist das Gerät per WLAN angemeldet.
Log 1, ("checkFritzMACpresent ($Device): $MAC gefunden, Gerät heißt >$StatusFritz<.");
$Status = 1;
}
return $Status
}
Sowas wie dieses??
Den bekomme bei meinem present per Mac nur error raus und die fritz box zeigt mir aber die Mac an. Also liegt es warscheinlich ejar daran das ich etwas vergessen habe.
Könntet ihr mir dabei helfen??
was funktioniert denn nicht ??
hast du log-auszüge?
kannst du ein list posten??
wie wird die funktion aufgerufen??
Hi
Bin die ganze zeit am Probieren gewesen.
Nun hat es geklappt
Habe den oberen Code in Utils.pm eingefügt, dachte mir probieren geht über studiern.
Hat geklappt. Läuft so wie es soll