use strict;
my $fh;
-my $socketfile = $ARGV[0] || "/var/run/tuer/door_cmd.socket";
-sleep(1) while (! -S $socketfile);
-my $socketaddr = sockaddr_un($socketfile);
+my $zmqclient = "/flash/tuer/door_client_zmq";
my $keys;
my %good;
$good{$1}=$2;
}
}
-my $id = $ARGV[2];
-my $action = $ARGV[1];
+my $id = $ARGV[1];
+$id =~ s/^0/+43/;
+my $action = $ARGV[0];
if ($good{$id})
{
if ($action == 1591)
sub send_to_fifo
{
- socket(my $conn, PF_UNIX, SOCK_STREAM,0) || die "socket: $!";
- connect($conn, $socketaddr) || die "socket connect: $!";
+ open(my $conn, "| ".$zmqclient);
+ #socket(my $conn, PF_UNIX, SOCK_STREAM,0) || die "socket: $!";
+ #connect($conn, $socketaddr) || die "socket connect: $!";
print $conn shift(@_)."\n";
close($conn);
}