X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=checkcard.pl;fp=checkcard.pl;h=0000000000000000000000000000000000000000;hp=4e3816f6a50a68f302f38d7a64730b0f595f0862;hb=ce52b2a412383c7958cbd6f0dc8251fbf28b3c08;hpb=4ee2501ff864b8e15202ee814e8bafcc0c2adf6c

diff --git a/checkcard.pl b/checkcard.pl
deleted file mode 100755
index 4e3816f..0000000
--- a/checkcard.pl
+++ /dev/null
@@ -1,79 +0,0 @@
-#!/usr/bin/perl -w
-
-use Socket;
-use strict;
-my $fh;
-
-my $socketfile = $ARGV[0] || "/var/run/tuer/door_cmd.socket";
-my $keysfile = '/flash/keys';
-
-sleep(1) while (! -S $socketfile);
-my $socketaddr = sockaddr_un($socketfile);
-
-my %good;
-my $keys_last_read=0;
-
-sub read_keys
-{
-  %good=();
-  my $keys;
-  open $keys,$keysfile;
-  while (<$keys>)
-  {
-    chomp;
-    if ($_ =~ /^([0-9A-Fa-f]{8})\s+(.+)$/)
-    {
-      $good{$1}=$2;
-    }
-  }
-  close $keys;
-  $keys_last_read = -M ($keysfile);
-}
-
-sub send_to_fifo
-{
-	socket(my $conn, PF_UNIX, SOCK_STREAM,0) || die "socket: $!";
-	connect($conn, $socketaddr) || die "socket connect: $!";
-	print $conn shift(@_)."\n";
-	close($conn);
-}
-
-read_keys();
-
-
-while (sleep 2)
-{
-  send_to_fifo("log starting mifare-read");
-	open $fh,'/flash/tuer/mifare-read 0 2>&1 |';
-
-  read_keys() unless ($keys_last_read == -M ($keysfile));
-
-  READLOOP: while (<$fh>)
-	{		
-		unless (/UID/)
-    {
-      close($fh);
-      system("/usr/bin/killall -9 mifare-read");
-			send_to_fifo("log restarting mifare-read after invalid output");
-      last READLOOP;
-    }
-		my ($id) = /UID=(\S+)\s+/;
-		if ($good{$id})
-		{
-			send_to_fifo("toggle Card ".$good{$id});
-		} else {
-			send_to_fifo("log InvalidCard $id");
-		}
-	}
-}
-
-###############################################################
-#  mifare-read
-#   
-#  writes:
-#  UID=<4 byte in hex, upper-case>
-#
-#
-###############################################################
-#
-#