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=f110cd0bfc59b3e00e8623f0092485a073814614;hp=0000000000000000000000000000000000000000;hb=1f9c7040f43eaabed48b3cfa0319e75d197c6058;hpb=449ec160563729c65a6210431ba86eb463ed6373

diff --git a/old-door-deamon/checkcard.pl b/old-door-deamon/checkcard.pl
new file mode 100755
index 0000000..f110cd0
--- /dev/null
+++ b/old-door-deamon/checkcard.pl
@@ -0,0 +1,33 @@
+#!/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";
+  }
+}