IP von öffentlichem DNS Namen in Reading

[TWART016]

Hallo,

ich benötige die IP Adresse von einem öffentlichen DNS Namen in einem Reading.

z.B: die 172.217.22.227

Code Auswählen Erweitern


PING google.de (172.217.22.227) 56(84) bytes of data.


Wie bekomme ich das bestmöglich hin?


Gruß
TWART016

[kadettilac89]

fast identisch zu dem was du hier schreibst ...
https://forum.fhem.de/index.php/topic,33734.msg261145.html#msg261145

evtl. auch hilfreich ...
https://forum.fhem.de/index.php/topic,77991.msg699300.html#msg699300

[dev0]

Code Auswählen Erweitern


sub getIp($) {
  use Socket;
  my $ip = inet_ntoa(inet_aton(shift));
  setreading(...);
}


[TWART016]

Code Auswählen Erweitern


sub getIp($) {
  use Socket;
  my $ip = inet_ntoa(inet_aton(shift));
  setreading(...);
}


Muss das setreading nicht in das at? Oder wie muss die Syntax für setreading aussehen?

[MadMax-FHEM]

Wieso ein 'at'?

Die IP des DNS ändert sich doch nicht (so oft)!?

Ansonsten halt im 'at' die Funktion mit dem Namen des DNS aufrufen...

Wie so vieles steht die Verwendung von setreading in der commandref:

https://fhem.de/commandref_DE.html#setreading

in deinem Fall sowas:

Code Auswählen Erweitern

setreading GERÄTENAME_WO_DAS_READING_DRIN_STEHEN_SOLL NAME_WIE_DAS_READING_HEISSEN_SOLL $ip

Gruß, Joachim

[TWART016]

Ich vermute bei mir schon. Deshalb will ich herausfinden wann sich die IP ändert, und dann mit der IP von meinem FQDN vergleichen.

Setreading kenne ich. Nur wenn ich das so in die Routine einfüge, gibt es einen Syntaxfehler beim at

Code Auswählen Erweitern

sub getIp($) {
  use Socket;
  my $ip = inet_ntoa(inet_aton(shift));
  setreading oeffentlicheIP IP $ip;
}

Code Auswählen Erweitern

+*00:05:00 {
my $ip=getIp;
setreading oeffentlicheIP IP $ip;
}

[MadMax-FHEM]

Welcher Fehler wäre hilfreich...
...hellsehen kann ich (noch) nicht...

Entweder im at die Sub aufrufen:

{getIp(DavonWillIchDieIp)}

Oder da du in perl bist ( dies: { } ) für setreading zurück nach fhem:

fhem("setreading OeffentlicheIp IP $ip")

Kurz, da nur Handy...

Gruß, Joachim

[TWART016]

Ups, Fehlermeldung vergessen. Beim speichern des at kommt die Meldung:

Code Auswählen Erweitern

Not enough arguments for main::getIp at (eval 1624217) line 2, at EOF


dev0 hatte geschrieben, darüber bekomme ich die IP heraus. Ich kenne die Funktion nicht, ist das ein Systembefehl?

Code Auswählen Erweitern

inet_ntoa(inet_aton(shift))

Was muss ich in die Klammern eintragen, wenn ich die IP mit Hilfe der Funktion auslesen möchte?

Code Auswählen Erweitern

{getIp(DavonWillIchDieIp)}

[MadMax-FHEM]

So wie ich geschrieben habe.

Die Funktion getIp braucht einen Parameter.
Ich vermute mal den Namen wozu du die IP willst...

Gruß, Joachim

[dev0]

Code Auswählen Erweitern


{setreading("device","reading",getIp("fqdn")}

device, reading, fqdn ersetzen und die sub getIp inne 99_myUtils.pm.

[dev0]

ist das ein Systembefehl?

Ist Dein google kaputt? Es ist eine Funktion aus dem Socket Perlmodul.
Man sollte noch erwähnen, dass die Sub getIp blockierend arbeitet, wenn der (lokale) DNS Server keine Antwort liefert, weil zB. der INternetzugang gestört ist. Nicht blockierend kann ich das aber nicht aus dem Kopf...