Socket.pm: Add tiny subroutine to drop an existing socket file.
authorStefan Schantl <stefan.schantl@ipfire.org>
Mon, 23 Nov 2015 09:31:52 +0000 (10:31 +0100)
committerStefan Schantl <stefan.schantl@ipfire.org>
Mon, 23 Nov 2015 09:31:52 +0000 (10:31 +0100)
This function can be called at any time to release the socket file.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
modules/Socket.pm

index cdcca00..5e5a998 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 
 use Exporter qw(import);
 
-our @EXPORT_OK = qw(Server Client Message_Parser);
+our @EXPORT_OK = qw(Server Client Message_Parser RemoveSocketFile);
 
 use IO::Socket::UNIX qw( SOCK_STREAM SOMAXCONN );
 
@@ -114,4 +114,17 @@ sub Message_Parser ($) {
        return undef;
 }
 
+#
+## RemoveSocketFile function.
+#
+## A tiny function which just removes an existing Socket file.
+#
+sub RemoveSocketFile () {
+       # Check if a socketfile exists.
+       if (-e $socketfile) {
+               # Delete the socket file.
+               unlink($socketfile);
+       }
+}
+
 1;