Perl - IP Connection¶

Enumerate¶

Download (example_enumerate.pl)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

#!/usr/bin/perl

use strict;
use Tinkerforge::IPConnection;

use constant HOST => 'localhost';
use constant PORT => 4223;

# Create connection and connect to brickd
my $ipcon = Tinkerforge::IPConnection->new();

# Print incoming enumeration
sub cb_enumerate
{
    my ($uid, $connected_uid, $position, $hardware_version,
        $firmware_version, $device_identifier, $enumeration_type) = @_;

    print "UID:               $uid\n";
    print "Enumeration Type:  $enumeration_type\n";

    if ($enumeration_type == Tinkerforge::IPConnection->ENUMERATION_TYPE_DISCONNECTED)
    {
        print "\n";
        return;
    }

    print "Connected UID:     $connected_uid\n";
    print "Position:          $position\n";
    print "Hardware Version:  ".join('.', @$hardware_version)."\n";
    print "Firmware Version:  ".join('.', @$firmware_version)."\n";
    print "Device Identifier: $device_identifier\n";
    print "\n";
}

$ipcon->connect(&HOST, &PORT);

# Register Enumerate Callback
$ipcon->register_callback($ipcon->CALLBACK_ENUMERATE, 'cb_enumerate');

# Trigger Enumerate
$ipcon->enumerate();

print "Press key to exit\n";
<STDIN>;
$ipcon->disconnect();

Authenticate¶

Download (example_authenticate.pl)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

#!/usr/bin/perl

use strict;
use Tinkerforge::IPConnection;

use constant HOST => 'localhost';
use constant PORT => 4223;
use constant SECRET => 'My Authentication Secret!';

# Create IPConnection
our $ipcon = Tinkerforge::IPConnection->new();

# Disable auto reconnect mechanism, in case we have the wrong secret.
# If the authentication is successful, reenable it.
$ipcon->set_auto_reconnect(0);

# Authenticate each time the connection got (re-)established
sub cb_connected
{
    my ($connect_reason) = @_;

    if ($connect_reason == $ipcon->CONNECT_REASON_REQUEST)
    {
        print "Connected by request\n";
    }
    elsif ($connect_reason == $ipcon->CONNECT_REASON_AUTO_RECONNECT)
    {
        print "Auto-Reconnect\n";
    }

    # Authenticate first...
    eval
    {
        $ipcon->authenticate(&SECRET);
        print "Authentication succeeded\n";
    };
    if ($!)
    {
        print "Could not authenticate: $!\n";
        return;
    }

    # ...reenable auto reconnect mechanism, as described above...
    $ipcon->set_auto_reconnect(1);

    # ...then trigger Enumerate
    $ipcon->enumerate();
}

# Print incoming enumeration
sub cb_enumerate
{
    my ($uid, $connected_uid, $position, $hardware_version,
        $firmware_version, $device_identifier, $enumeration_type) = @_;

    print "UID: $uid, Enumeration Type: $enumeration_type\n";
}

# Register Connected Callback
$ipcon->register_callback($ipcon->CALLBACK_CONNECTED, 'cb_connected');

# Register Enumerate Callback
$ipcon->register_callback($ipcon->CALLBACK_ENUMERATE, 'cb_enumerate');

# Connect to brickd
$ipcon->connect(&HOST, &PORT);

print "Press key to exit\n";
<STDIN>;
$ipcon->disconnect();

Grundfunktionen¶

IPConnection->new()¶

Erzeugt ein IP Connection Objekt das verwendet werden kann um die verfügbar Geräte zu enumerieren. Es wird auch für den Konstruktor von Bricks und Bricklets benötigt.

IPConnection->connect($host, $port)¶

Parameter:	$host -- string $port -- int
Rückgabetyp:	undef

Erstellt eine TCP/IP Verbindung zum gegebenen $host und $port. Host und Port können auf einen Brick Daemon oder einer WIFI/Ethernet Extension verweisen.

Bricks/Bricklets können erst gesteuert werden, wenn die Verbindung erfolgreich aufgebaut wurde.

Blockiert bis die Verbindung aufgebaut wurde und wirft eine Exception, falls kein Brick Daemon oder WIFI/Ethernet Extension auf dem gegebenen Host und Port horcht.

IPConnection->disconnect()¶

Rückgabetyp:	undef

Trennt die TCP/IP Verbindung zum Brick Daemon oder einer WIFI/Ethernet Extension.

IPConnection->authenticate($secret)¶

Parameter:	$host -- string
Rückgabetyp:	undef

Führt einen Authentifizierungs-Handshake mit dem verbundenen Brick Daemon oder WIFI/Ethernet Extension durch. Ist der Handshake erfolgreich dann wechselt die Verbindung vom nicht-authentifizierten in den authentifizierten Zustand und die Kommunikation kann normal weitergeführt werden. Schlägt der Handshake fehl wird die Verbindung durch die Gegenseite geschlossen. Die Authentifizierung kann fehlschlagen wenn das Authentifizierungsgeheimnis nicht übereinstimmt oder Authentifizierung für den Brick Daemon oder die WIFI/Ethernet Extension nicht aktiviert ist.

Für mehr Informationen zur Authentifizierung siehe das dazugehörige Tutorial.

Neu in Version 2.1.0.

IPConnection->get_connection_state()¶

Rückgabetyp:	int

Kann die folgenden Zustände zurückgeben:

• IPConnection->CONNECTION_STATE_DISCONNECTED = 0: Keine Verbindung aufgebaut.
• IPConnection->CONNECTION_STATE_CONNECTED = 1: Eine Verbindung zum Brick Daemon oder der WIFI/Ethernet Extension ist aufgebaut.
• IPConnection->CONNECTION_STATE_PENDING = 2: IP Connection versucht im Moment eine Verbindung aufzubauen.

IPConnection->set_auto_reconnect($auto_reconnect)¶

Parameter:	$auto_reconnect -- bool
Rückgabetyp:	undef

Aktiviert oder deaktiviert Auto-Reconnect. Falls Auto-Reconnect aktiviert ist, versucht die IP Connection eine Verbindung zum vorher angegebenen Host und Port wieder herzustellen, falls die aktuell bestehende Verbindung verloren geht. Auto-Reconnect greift also erst nach einem erfolgreichen Aufruf von connect().

Standardwert ist 1.

IPConnection->get_auto_reconnect()¶

Rückgabetyp:	bool

Gibt True zurück wenn Auto-Reconnect aktiviert ist und False sonst.

IPConnection->set_timeout($timeout)¶

Parameter:	$timeout -- float
Rückgabetyp:	undef

Setzt den Timeout in Sekunden für Getter und für Setter die das Response-Expected-Flag aktiviert haben.

Standardwert ist 2,5.

IPConnection->get_timeout()¶

Rückgabetyp:	float

Gibt den Timeout zurück, wie er von set_timeout() gesetzt wurde.

IPConnection->enumerate()¶

Rückgabetyp:	undef

Broadcast einer Enumerierungsanfrage. Alle Bricks und Bricklets werden mit einem Enumerate Callback antworten.

Konfigurationsfunktionen für Callbacks¶

IPConnection->register_callback($callback_id, $function)¶

Parameter:	$callback_id -- int $function -- callable
Rückgabetyp:	undef

Registriert den $function Namen für die gegebene $callback_id.

Die verfügbaren Callback IDs mit zugehörenden Funktionssignaturen sind unten beschrieben.

Callbacks¶

Callbacks können registriert werden um über Ereignisse informiert zu werden. Die Registrierung kann mit der Funktion register_callback() durchgeführt werden. Der erste Parameter ist der Callback ID und der zweite die Callback Funktion:

sub my_callback
{
    print "@_[0]";
}

$ipcon->register_callback(IPConnection->CALLBACK_EXAMPLE, 'my_callback')

Die Callback Funktion wird dann von einem internen Thread der IP Connection aufgerufen werden. Im Gegensatz zu vielen anderen Programmiersprachen werden Variablen nicht automatisch zwischen Threads geteilt. Wenn eine Variable gleichzeitig in einer Callback Funktion und dem Rest des Programms genutzt werden soll, dann muss diese als :shared markiert werden. Siehe dazu auch die Dokumentation des threads::shared Perl Moduls für weitere Details.

Die verfügbaren IDs mit der dazugehörigen Parameteranzahl und -typen werden weiter unten beschrieben.

IPConnection->CALLBACK_ENUMERATE¶

Parameter:	$uid -- string $connected_uid -- string $position -- char @hardware_version -- [int, int, int] @firmware_version -- [int, int, int] $device_identifier -- int $enumeration_type -- int

Der Callback empfängt sieben Parameter:

• $uid: Die UID des Bricks/Bricklets.
• $connected_uid: Die UID des Gerätes mit dem der Brick/das Bricklet verbunden ist. Für ein Bricklet ist dies die UID des Bricks oder Bricklets mit dem es verbunden ist. Für einen Brick ist es die UID des untersten Bricks im Stapel. Der unterste Master Brick hat die Connected-UID "0". Mit diesen Informationen sollte es möglich sein die komplette Netzwerktopologie zu rekonstruieren.
• $position: Für Bricks: '0' - '8' (Position in Stapel). Für Bricklets: 'a' - 'h' (Position an Brick) oder 'i' (Position des Raspberry Pi (Zero) HAT) oder 'z' (Bricklet an Isolator Bricklet).
• @hardware_version: Major, Minor und Release Nummer der Hardwareversion.
• @firmware_version: Major, Minor und Release Nummer der Firmwareversion.
• $device_identifier: Eine Zahl, welche den Brick/Bricklet repräsentiert.
• $enumeration_type: Art der Enumerierung.

Mögliche Enumerierungsarten sind:

• IPConnection->ENUMERATION_TYPE_AVAILABLE = 0: Gerät ist verfügbar (Enumerierung vom Benutzer ausgelöst: enumerate()). Diese Enumerierungsart kann mehrfach für das selbe Gerät auftreten.
• IPConnection->ENUMERATION_TYPE_CONNECTED = 1: Gerät wurde neu verbunden (Automatisch vom Brick gesendet nachdem die Kommunikation aufgebaut wurde). Dies kann bedeuten, dass das Gerät die vorher eingestellte Konfiguration verloren hat und neu konfiguriert werden muss.
• IPConnection->ENUMERATION_TYPE_DISCONNECTED = 2: Gerät wurde getrennt (Nur bei USB-Verbindungen möglich). In diesem Fall haben nur $uid und $enumeration_type einen gültigen Wert.

Es sollte möglich sein Plug-and-Play-Funktionalität mit diesem Callback zu implementieren (wie es im Brick Viewer geschieht)

Die Device Identifier Werte sind hier zu finden. Es gibt auch Konstanten für diese Werte, welche nach dem folgenden Muster benannt sind:

<device-class>->DEVICE_IDENTIFIER

Zum Beispiel: BrickMaster->DEVICE_IDENTIFIER oder BrickletAmbientLight->DEVICE_IDENTIFIER.

IPConnection->CALLBACK_CONNECTED¶

Parameter:	$connect_reason -- int

Dieser Callback wird aufgerufen wenn die IP Connection eine Verbindung zu einem Brick Daemon oder einer WIFI/Ethernet Extension aufgebaut hat, mögliche Gründe sind:

• IPConnection->CONNECT_REASON_REQUEST = 0: Verbindung aufgebaut nach Anfrage vom Benutzer.
• IPConnection->CONNECT_REASON_AUTO_RECONNECT = 1: Verbindung aufgebaut durch Auto-Reconnect.

IPConnection->CALLBACK_DISCONNECTED¶

Parameter:	$disconnect_reason -- int

Dieser Callback wird aufgerufen wenn die Verbindung der IP Connection zu einem Brick Daemon oder einer WIFI/Ethernet Extension getrennt wurde, mögliche Gründe sind:

• IPConnection->DISCONNECT_REASON_REQUEST = 0: Trennung wurde vom Benutzer angefragt.
• IPConnection->DISCONNECT_REASON_ERROR = 1: Trennung aufgrund eines unlösbaren Problems.
• IPConnection->DISCONNECT_REASON_SHUTDOWN = 2: Trennung wurde vom Brick Daemon oder WIFI/Ethernet Extension eingeleitet.