X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=checkphone.pl;fp=checkphone.pl;h=0000000000000000000000000000000000000000;hp=979c83837bf2c02f5c7661df21eb38b6792e1385;hb=c775b5528f8f96e75c28264b9cea8525c6da9298;hpb=a87c91b7d4544703879b7ef6e472b863765e3949

diff --git a/checkphone.pl b/checkphone.pl
deleted file mode 100755
index 979c838..0000000
--- a/checkphone.pl
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl -w
-
-use Socket;
-use strict;
-my $fh;
-
-my $zmqclient = "/flash/tuer/door_client_zmq";
-
-my $keys;
-my %good;
-
-open $keys,'/flash/phone';
-while (<$keys>)
-{
-	chomp;
-	if ($_ =~ /^(\S+)\s+(.+)$/)
-	{
-		$good{$1}=$2;
- 	}
-}
-my $id = $ARGV[1];
-$id =~ s/^0/+43/;
-my $action = $ARGV[0];
-if ($good{$id})
-{
-	if ($action == 1591)
-        {
-	  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");
-        }
-} else {
-	send_to_fifo("log invalid Phone $id");
-}
-exit 0;
-
-sub send_to_fifo
-{
-  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);
-}
-