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

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