This function can be called at any time to release the socket file.
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
-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 );
use IO::Socket::UNIX qw( SOCK_STREAM SOMAXCONN );
+#
+## 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);
+ }
+}
+