X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=old-door-deamon%2Fgetcard.pl;fp=old-door-deamon%2Fgetcard.pl;h=ebbde3a22a2b34a325c560ebc348d857a096da43;hp=0000000000000000000000000000000000000000;hb=1f9c7040f43eaabed48b3cfa0319e75d197c6058;hpb=449ec160563729c65a6210431ba86eb463ed6373

diff --git a/old-door-deamon/getcard.pl b/old-door-deamon/getcard.pl
new file mode 100755
index 0000000..ebbde3a
--- /dev/null
+++ b/old-door-deamon/getcard.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+my $card=`/usr/bin/opensc-tool --serial`;
+my @validcards;
+
+$card =~ s/\D//g;
+print "$card\n";