remove stuff

[svn42.git] / checkphone.pl

diff --git a/checkphone.pl b/checkphone.pl
deleted file mode 100755 (executable)
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);
-}
-