Version bump to 5.9.5rc1
[strongswan.git] / src / charon-tkm / src / ees / esa_event_service.adb
index 5b5d700..323a64c 100644 (file)
@@ -1,7 +1,7 @@
 --
 --  Copyright (C) 2012 Reto Buerki
 --  Copyright (C) 2012 Adrian-Ken Rueegsegger
---  Hochschule fuer Technik Rapperswil
+--  HSR Hochschule fuer Technik Rapperswil
 --
 --  This program is free software; you can redistribute it and/or modify it
 --  under the terms of the GNU General Public License as published by the
@@ -27,10 +27,13 @@ package body Esa_Event_Service
 is
 
    package Unix_TCP_Receiver is new Anet.Receivers.Stream
-     (Socket_Type => Anet.Sockets.Unix.TCP_Socket_Type);
+     (Socket_Type       => Anet.Sockets.Unix.TCP_Socket_Type,
+      Address_Type      => Anet.Sockets.Unix.Full_Path_Type,
+      Accept_Connection => Anet.Sockets.Unix.Accept_Connection);
 
    procedure Dispatch is new Tkmrpc.Process_Stream
-     (Dispatch => Tkmrpc.Dispatchers.Ees.Dispatch);
+     (Dispatch     => Tkmrpc.Dispatchers.Ees.Dispatch,
+      Address_Type => Anet.Sockets.Unix.Full_Path_Type);
 
    Sock     : aliased Anet.Sockets.Unix.TCP_Socket_Type;
    Receiver : Unix_TCP_Receiver.Receiver_Type (S => Sock'Access);