I might recommend a minor rewrite of the sub daemonize function to include some reporting (as well as identifying the correct files that can't be written to...).
Change this around such that:
This will let you know what it sees BEFORE you exit - it might help you to debug.
You might want to read up on the perl module "Log::Log4perl" - it might have some information that would make this more clear.
last week i started learning perl, so have limited skill and knowledge.
why isn't 'die' being called and the script exiting before the 'directory created' line?
if (! -d "$logdir") {
system "mkdir -p $logdir" || die print "\nERROR: release log directory creation failed - $logdir: $!\n";... (4 Replies)
Hi All,
I am new to perl and have been trying to write a short script to check a process.Though i havent reached to the stage where i can match the output.
I am trying to pass a variable x with value /opt/RGw/csbp-base/CSBP_BAT.01.00.05/csbp_BAT.01.00.05.jar
and then pass another variable... (2 Replies)
Hi,
I got a simple script working to check if a process is running and then email if it is not running anymore. My scenario is that I need to make sure the process is always running so instead of running the below script via cron I think it is better to a have a looping script to check... (12 Replies)
Hello all,
I would be happy if any one could help me with a shell script that would determine all the processes running on a Unix server and post a mail if any of the process is not running or aborted.
Thanks in advance
Regards,
pradeep kulkarni.
:mad: (13 Replies)
Hi Gurus,
Could you please help me to create a shell script that will be started by a cron job once every night at 24.00 h (that should bee easy:))
The shell script should control every 30 seconds the name of a process, and when the process doesn't run anymore it should execute a few further... (12 Replies)
X Window isn't working.
When I ran startx I got an error message as shown in file attachment xwndow.png
Accordingly, I removed /tmp/.X0-lock as reflecting in the attchment.
Then again I ran the command and 2 more commands (shown in the attachment xwndow1.png) but they failed too.
Any... (2 Replies)
Hi, I have written a script that allows me to repetitively play a music file $N times, which is specified through user input. However, if I want to exit the script before it has finished looping $N times, if I use CTRL+c, I have to CTRL+c however many times are left in order to complete the loop.... (9 Replies)
Hi Experts,
I am facing one problem here which is one process always stuck in running state which causes the other similar process to sleep state . This causes my system in hanged state.
On doing cat /proc/<pid>wchan showing the "__init_begin" in the output.
Can you please help me here... (0 Replies)
Hi Experts,
I am facing one problem here which is one process always stuck in running state which causes the other similar process to sleep state . This causes my system in hanged state.
On doing cat /proc/<pid>wchan showing the "__init_begin" in the output.
Can you please help me here... (6 Replies)
Team,
I have multiple batchjobs running in VM, if I do ps -ef |grep java or tomcat I am getting multiple process list.
How do I get my exact tomcat process running and that is unique? via shell script? (4 Replies)
Discussion started by: Ghanshyam Ratho
4 Replies
LEARN ABOUT SUSE
net::server::daemonize
Net::Server::Daemonize(3) User Contributed Perl Documentation Net::Server::Daemonize(3)NAME
Net::Server::Daemonize - Safe fork and daemonization utilities
SYNOPSIS
use Net::Server::Daemonize qw(daemonize);
daemonize(
'nobody', # User
'nobody', # Group
'/var/state/mydaemon.pid' # Path to PID file - optional
);
DESCRIPTION
This module is intended to let you simply and safely daemonize your server on systems supporting the POSIX module. This means that your
Perl script runs in the background, and it's process ID is stored in a file so you can easily stop it later.
EXPORTED FUNCTIONS
daemonize
Main routine. Arguments are user (or userid), group (or group id or space delimited list of groups), and pid_file (path to file).
This routine will check on the pid file, safely fork, create the pid file (storing the pid in the file), become another user and group,
close STDIN, STDOUT and STDERR, separate from the process group (become session leader), and install $SIG{INT} to remove the pid file.
In otherwords - daemonize. All errors result in a die. As of version 0.89 the pid_file is optional.
safe_fork
Block SIGINT during fork. No arguments. Returns pid of forked child. All errors result in a die.
set_user
Become another user and group. Arguments are user (or userid) and group (or group id or space delimited list of groups).
set_uid
Become another user. Argument is user (or userid). All errors die.
set_gid
Become another group. Arguments are groups (or group ids or space delimited list of groups or group ids). All errors die.
get_uid
Find the uid. Argument is user (userid returns userid). Returns userid. All errors die.
get_gid
Find the gids. Arguments are groups or space delimited list of groups. All errors die.
is_root_user
Determine if the process is running as root. Returns 1 or undef.
check_pid_file
Arguments are pid_file (full path to pid_file). Checks for existance of pid_file. If file exists, open it and determine if the
process that created it is still running. This is done first by checking for a /proc file system and second using a "ps" command (BSD
syntax). (If neither of these options exist it assumed that the process has ended) If the process is still running, it aborts.
Otherwise, returns true. All errors die.
create_pid_file.
Arguments are pid_file (full path to pid_file). Calls check_pid_file. If it is successful (no pid_file exists), creates a pid file
and stores $$ in the file.
unlink_pid_file
Does just that.
SEE ALSO
Net::Server. Net::Daemon, The Perl Cookbook Recipe 17.15.
AUTHORS
Jeremy Howard <j+daemonize@howard.fm>
Program flow, concepts and initial work.
Paul Seamons <paul@seamons.com>
Code rework and componentization. Ongoing maintainer.
LICENSE
This package may be distributed under the terms of either the
GNU General Public License
or the
Perl Artistic License
All rights reserved.
perl v5.12.1 2007-02-03 Net::Server::Daemonize(3)