>>Тупо возьми и посмотри как mrtg запускается и сделай так же.
>
>Чесно говоря я не знаю что такое mrtg поискал у себя в
>SUSE mrtg такого нет :(
>
>Ещё я обычные приложения типа apache и mysql запускаю.... но вот именно
>с PERL скрипт возникают ошибки при чем я не знаю где
>можно посмотреть ЛОГ ошибок при автозапуске..... т.е причину почему не запускается
>я выяснить не могу :) и все идёт методом ТЫКА ;)
>#!/bin/bash
#
# chkconfig: 345 21 79
# description: smsalarm
# processname: smsalarm
# source function library
. /etc/rc.d/init.d/functions
RETVAL=0
case "$1" in
start)
echo -n "Starting SMSalarm service: "
cd /usr/local/smsalarm
daemon ./smsalarm
smsalarm - это перловый скрипт.
RETVAL=$?
echo
[ $RETVAL -eq 0 ] && touch /var/lock/subsys/smsalarm
;;
stop)
echo -n "Shutting down SMSalarm service: "
killproc smsalarm
RETVAL=$?
echo
[ $RETVAL -eq 0 ] && rm -f /var/lock/subsys/smsalarm
;;
restart|reload)
$0 stop
$0 start
RETVAL=$?
;;
status)
status smsalarm
RETVAL=$?
;;
*)
echo "Usage: smsalarm {start|stop|status|restart|reload}"
exit 1
esac
exit $RETVAL
Вот из скрипта smsalarm часть, которая отвечает за работу в фоне (взята из mrtg)
#!/usr/bin/perl -w
use strict;
use POSIX 'setsid';
my $pidfile='/var/run/smsalarm.pid';
demonize_me($pidfile);
sub demonize_me {
my $pidfile = shift;
print "Daemonizing ...\n";
defined (my $pid = fork) or die "Can't fork: $!";
if ($pid) {
exit;
} else {
if (defined $pidfile){
die "ERROR: I Quit! Another copy seems to be running. Check $pidfile\n" if -f $p
open(PIDFILE,">$pidfile") ;#or die "creating $pidfile: $!\n";
print PIDFILE "$$\n";
close PIDFILE;
}
&POSIX::setsid or die "Can't start a new session: $!";
open STDOUT,'>/dev/null' or die "ERROR: Redirecting STDOUT to /dev/null: $!";
open STDIN, '</dev/null' or die "ERROR: Redirecting STDIN from /dev/null: $!";
}
}