Regex Optionen

[betateilchen]

Der Inhalt der Webseite, der an den Browser geliefert wird, ist nicht automatisch identisch zu dem Inhalt, der in HTTPMOD ankommt, wenn die gleiche URL aufgerufen wird.

Im HTTPMOD body ist die IPv6 nicht enthalten.
Deshalb kann die ip darin nicht gefunden werden.

Das versuche ich seit mehr als zwei Stunden zu erklären...

[frank]

Im HTTPMOD body

ich denke hier fehlt schon das "wissen", was hier mit body gemeint ist.


attr showBody

showBody
if set to 1 then the body of http responses will be visible as internal httpbody.

[LotharRappsilber]

Hab ich verstanden, aber wie bekomme ich ipv6 anders?

[betateilchen]

Das geht auch ganz ohne HTTPMOD.

Code Auswählen Erweitern

sub ip_test {
  use Net::Address::IP::Local;

  my $address      = eval {Net::Address::IP::Local->public};
  if ($@) {
    Debug "Could not determine IP address";
  } else {
    Debug $address;
  }

  my $address_ipv4 = eval {Net::Address::IP::Local->public_ipv4};
  if ($@) {
    Debug 'Failed via IPv4';
  } else {
    Debug $address_ipv4;
  }

  my $address_ipv6 = eval { Net::Address::IP::Local->public_ipv6};
  if ($@) {
    Debug 'Failed via IPv6';
  } else {
    Debug $address_ipv6;
  }
}

Das Ganze läßt sich problemlos so einbinden, dass z.B. per at regelmäßig die readings in einem dummy beschrieben werden.
Oder man stellt die Daten einfach systemweit in %data zur Verfügung und braucht überhaupt kein extra device zur Ablage.
Oder oder oder...

[LotharRappsilber]

Danke das Du Dir so viel Mühe gemacht hast, aber wo soll ich Deine Datei in der cfg einbinden?

[betateilchen]

Perl code in Form von Funktionen gehört nicht in die Konfiguration, sondern in die 99_myUtils.pm.

Das war auch nur ein grobes Schema, um zu zeigen, wie man an die IPs kommen könnte.
Im Beispiel landen die ip-Adressen als Debug-Ausgabe im Logfile, auch das müsste man noch anpassen.

[JudgeDredd]

Hallo LotharRappsilber,

ich möchte mich nicht groß einmischen, aber eine Adressermittlung habe ich z.B. in einem AT so umgesetzt.
(als RAW einfügen)

Code Auswählen Erweitern

defmod myIP at *04:00:00 { \
  readingsSingleUpdate( $defs{ $SELF }, 'IPv4', GetFileFromURL( 'http://checkip4.spdyn.de/' ), 1 );;\
  readingsSingleUpdate( $defs{ $SELF }, 'IPv6', GetFileFromURL( 'http://checkip6.spdyn.de/' ), 1 )\
}
Gruß,
JudgeDredd

[LotharRappsilber]

Danke für den Tipp, aber was bedeutet RAW?

[LotharRappsilber]

Danke für den Tipp, aber was bedeutet RAW und wo sollte ich den Code einfügen?

[betateilchen]

Du darfst diesen Dateianhang nicht ansehen.

Da oben auf das Pluszeichen klicken und dann den Code in das Fenster eingeben.
Mit "Execute" ausführen.

[LotharRappsilber]

Danke!!!