From 529226a6676d7a38c58612383569efbd62239e0b Mon Sep 17 00:00:00 2001
From: Stephen L Johnson <sjohnson@monsters.org>
Date: Tue, 16 Nov 1999 04:37:18 +0000
Subject: [PATCH] Initial revision

---
 src/lib/Spong/Daemon.pm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 src/lib/Spong/Daemon.pm

diff --git a/src/lib/Spong/Daemon.pm b/src/lib/Spong/Daemon.pm
new file mode 100755
index 0000000..10ace60
--- /dev/null
+++ b/src/lib/Spong/Daemon.pm
@@ -0,0 +1,39 @@
+#!/usr/local/bin/perl
+#
+# This package is a provide the spong programs a standard way to daemonize
+
+package Spong::Daemon;
+
+use strict;
+
+
+use POSIX qw(setsid);
+use Carp;
+
+
+# Daemonize myself
+
+sub Daemonize {
+    my($pid, $sid);
+
+   if ( ! defined($pid = fork()) ) {
+      croak "ERROR: Could not fork: $!";
+   } elsif ( $pid ) {
+      # I'm the parent, just exit gracefully
+      exit(0);
+   } else {
+      # I'm the child
+
+      open(STDIN,"</dev/null");
+      open(STDOUT,">/dev/null");
+      open(STDERR,">/dev/null");
+
+   # Become session group leader
+   POSIX::setsid();
+
+   }
+
+}
+
+1;
+
-- 
2.30.2