- added some missing files from old-door-daemon

[svn42.git] / old-door-deamon / getcard.pl

diff --git a/old-door-deamon/getcard.pl b/old-door-deamon/getcard.pl
new file mode 100755 (executable)
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";