use Socket;
use strict;
my $fh;
-#my $fifofile = "/tmp/door_cmd.fifo";
-my $socketfile = "/tmp/door_cmd.socket";
-exit(1) unless (-S $socketfile);
+my $socketfile = $ARGV[0] || "/var/run/tuer/door_cmd.socket";
+sleep(1) while (! -S $socketfile);
my $socketaddr = sockaddr_un($socketfile);
my $keys;
while (sleep 1)
{
- open $fh,'/flash/tuer_python/mifare-read 0 2>&1 |';
+ open $fh,'/flash/tuer/mifare-read 0 2>&1 |';
while (<$fh>)
{
next unless /UID/;