X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=checkphone.pl;h=979c83837bf2c02f5c7661df21eb38b6792e1385;hp=6b3c67b7eb9e123e1d343efdb9621281cfbc13a5;hb=cbae74009cf269a5ca260e5e67de6ab35b5ae95d;hpb=caa173d63dc52abefe31b034c20bdf787377ade9

diff --git a/checkphone.pl b/checkphone.pl
index 6b3c67b..979c838 100755
--- a/checkphone.pl
+++ b/checkphone.pl
@@ -4,9 +4,7 @@ use Socket;
 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;
@@ -20,8 +18,9 @@ while (<$keys>)
 		$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)
@@ -29,6 +28,8 @@ if ($good{$id})
 	  send_to_fifo("close Phone ".$good{$id});
         } elsif ($action == 1590) {
 	  send_to_fifo("open Phone ".$good{$id});
+        } elsif ($action == 1592) {
+	  send_to_fifo("reset Phone ".$good{$id});
         } else {
           send_to_fifo("log invalid action $action, but valid Phone $id");
         }
@@ -39,8 +40,9 @@ exit 0;
 
 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);
 }