Changeset 554 for LATMOS-Accounts-Web/script/latmos_accounts_web_server.pl

Timestamp:

12/15/09 15:46:48 (15 years ago)

Author:

nanardon

Message:

• add --daemon option to server script

File:

• LATMOS-Accounts-Web/script/latmos_accounts_web_server.pl (modified) (3 diffs)

LATMOS-Accounts-Web/script/latmos_accounts_web_server.pl

@@ -15 +15 @@
 
 my $debug             = 0;
+my $daemon            = 0;
 my $fork              = 0;
 my $help              = 0;
@@ -30 +31 @@
     'debug|d'             => \$debug,
     'fork'                => \$fork,
+    'daemon'              => \$daemon,
     'help|?'              => \$help,
     'host=s'              => \$host,
@@ -47 +49 @@
 if ( $debug ) {
     $ENV{CATALYST_DEBUG} = 1;
+}
+
+if ($daemon) {
+    require POSIX;
+    my $childpid = fork;
+    if ($childpid) {
+       exit(0);
+    }
+    # child now
+    open STDIN,  "+</dev/null" or die $!;
+    open STDOUT, ">&STDIN"     or die $!;
+    open STDERR, ">&STDIN"     or die $!;
 }