X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=checkcard.pl;h=b948393935c0cf4e7a19e397f6d32aae52d8abad;hb=889622e0c6757408211798cfe8562a026a93b5b2;hp=71c1966df286b44f5bf21905a585185b94878278;hpb=138139e389ccc8acd4a9b26df3ef073fd9d3d2bf;p=svn42.git

diff --git a/checkcard.pl b/checkcard.pl
index 71c1966..b948393 100755
--- a/checkcard.pl
+++ b/checkcard.pl
@@ -1,8 +1,13 @@
 #!/usr/bin/perl -w
 
+use Socket;
 use strict;
 my $fh;
-my $fifofile = "/tmp/door_cmd.fifo";
+#my $fifofile = "/tmp/door_cmd.fifo";
+
+my $socketfile = "/tmp/door_cmd.socket";
+exit(1) unless (-S $socketfile);
+my $socketaddr = sockaddr_un($socketfile);
 
 my $keys;
 my %good;
@@ -18,12 +23,10 @@ while (<$keys>)
 
 sub send_to_fifo
 {
-	if( -p $fifofile)
-	{
-		open(my $fifo,"> $fifofile");
-		print $fifo shift(@_)."\n";
-		close($fifo);  
-	}
+	socket(my $conn, PF_UNIX, SOCK_STREAM,0) || die "socket: $!";
+	connect($conn, $socketaddr) || die "socket connect: $!";
+	print $conn shift(@_)."\n";
+	close($conn);
 }
 
 while (sleep 1)