X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=old-door-deamon%2Fcheckcard.pl;fp=old-door-deamon%2Fcheckcard.pl;h=0000000000000000000000000000000000000000;hp=f110cd0bfc59b3e00e8623f0092485a073814614;hb=ef0255ffe0a390c49c6e2c3e41fb5312032a4f00;hpb=5f90a9da59975c3bf81efc461fcd13637e4e0e5d

diff --git a/old-door-deamon/checkcard.pl b/old-door-deamon/checkcard.pl
deleted file mode 100755
index f110cd0..0000000
--- a/old-door-deamon/checkcard.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl -w
-
-my $fifofile = "/root/door_cmd.fifo";
-my %validcards;
-
-while (<>)
-{ 
-  my ($cardid,$name)= split /\s+/,$_;
-  $validcards{$cardid}=$name;
-};
-
-my $currentcard=0;
-while (sleep 1)
-{
-  my $card=`/usr/bin/opensc-tool --serial 2>/dev/null`;
-  $card =~ s/[^0-9A-F]//g; 
-  $card = substr($card,0,32);
-  if ($card eq $currentcard)
-	{ next; }
-  else 
-  	{$currentcard=$card;}
-  if ($validcards{$card})
-  {
-    if( -p $fifofile)
-    {
-      open(my $fifo,"> $fifofile");
-      print $fifo "toggle "."Card ".$validcards{$card}."\n";
-      close($fifo);  
-    }
-  } else {
-    print "Card did not match $card\n";
-  }
-}