X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=old-door-deamon%2Fcheckcard.pl.bak;fp=old-door-deamon%2Fcheckcard.pl.bak;h=0cca81dd7ded568c71ea558b0771388aeaca5e02;hb=449ec160563729c65a6210431ba86eb463ed6373;hp=0000000000000000000000000000000000000000;hpb=02329ab3fb38d1f22f7c910be92ae4388a132b01;p=svn42.git

diff --git a/old-door-deamon/checkcard.pl.bak b/old-door-deamon/checkcard.pl.bak
new file mode 100755
index 0000000..0cca81d
--- /dev/null
+++ b/old-door-deamon/checkcard.pl.bak
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+print `/root/ledoff`;
+my %validcards;
+
+while (<>)
+{ 
+  my ($cardid,$name)= split /\s+/,$_;
+  $validcards{$cardid}=$name;
+};
+
+
+my $logfile;
+
+open($logfile,'>>/var/log/tuer.log');
+
+my $tuer=0;
+while (sleep 3)
+{
+  my $card=`/usr/bin/opensc-tool --serial 2>/dev/null`;
+  $card =~ s/[^0-9A-F]//g; 
+  $card = substr($card,0,32);
+  next if not $card;
+  if ($validcards{$card})
+  {
+    $tuer = not $tuer;
+    if ($tuer)
+    {
+      print `/root/ledon`;
+      system('cat /var/www/indexopen.html > /var/www/index.html');
+      print $logfile localtime()." ".$validcards{$card}." hat die Tuer geoeffnet\n";
+    } else {
+      print `/root/ledoff`;
+      system('cat /var/www/indexclosed.html > /var/www/index.html');
+      print $logfile localtime()." ".$validcards{$card} ." hat die Tuer verschlossen\n";
+    }
+  } else {
+    print "Card did not match $card\n";
+  }
+}