Foro - Perl en Español

por **jcovenas** » 2012-03-29 16:47 @741

Uso Ubuntu 10.04. Tengo el siguiente script Perl y deseo que funcione como un daemon:
Leí sobre crear un script bash que llame a mi script Perl y luego ponerlo en el rc.local,
nada de esto me ha funcionado, seguí está guía, pero nada. Muchas Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use warnings;
use strict;
use Net::POP3;
 
 my $ServerName = "mi server mail";
 my $UserName = "mi user ";
  my $Password = "cfsRSgfg!";
# The program will run in an infinite loop.
# while('TRUE')                 
# {
        print "Waiting for email...\n"; 
 
# Connect to pop3 server
my $pop3 = Net::POP3->new($ServerName) || die "Error : Couldn't log on to server";
 
# Login to pop3 server
my $Num_Message = $pop3->login($UserName,$Password);
my $Messages = $pop3->list();
 
my ($MsgId, $MsgDate, $MsgFrom, $MsgTo, $MsgCc, $MsgSub);
my ($MsgAttach, $MsgSize, $MsgHeader, $MsgHeadFlg, $MsgBody,$MsgNo);
 
 
foreach $MsgNo (keys %$Messages)
{
  my $MsgContent = $pop3->get($MsgNo);
  my $count = 0;
  $MsgHeadFlg = 0;
  $MsgBody = "";
# print "Message No : $MsgNo\n";
  $MsgSize = $pop3->list($MsgNo);
# print "Message Size : $MsgSize Bytes\n";
  
 # Process message data
  while()
  {
 
    # Exit if last line of mail
    if ($count >= scalar(@$MsgContent))
    {
        $MsgBody =~s/^\s*(.*?)\s*$/$1/;
        $MsgBody = "SMS de-$MsgFrom:" . $MsgBody;
#       print "$MsgBody";
        # You can only send SMS in chunks of 160 chars Max according to gnokii. 
        # so breaking the body into chunks of 160 and sending them 1 at a time.
         if ($MsgSub =~ /^[+]?\d+$/ )
                {
                my @stringChunksArray = ($MsgBody =~ m/(.{1,160})/gs);
                for(my $i=0;$i<@stringChunksArray;$i++)
                        {
                        open(GNOKII, "| gammu --sendsms TEXT $MsgSub") || die "Error starting gnokii failed: $!\n";     
                        # Start gnokii and wait for the SMS body
                        print GNOKII $stringChunksArray[$i];                                                            
                        # Print the SMS body in 160 Char chunks
                        close(GNOKII);
                        sleep(10);               # This is there so that the phone gets time to reset after each message. Otherwise the send fails
                        }
                }
        else
                {
                print "no es un Cel";
                last;
                }
      last;
    }
 
    # Check if end of mail header
    if (@$MsgContent[$count] =~ /^\n/)
    {
      $MsgHeadFlg = 1;
    }
 
    # Proceed if message header not processed
    if (not $MsgHeadFlg)
    {
 
      # Split the line 
      my @LineContent = split /: /, @$MsgContent[$count];
 
      # Check Header Info
              SWITCH:
              {
                # Get message date
                $LineContent[0] =~ /Date/i && do
                                               {
                                                 $MsgDate = $LineContent[1]; # print "Date : $MsgDate"; 
                                                last SWITCH;
                                               };
                # Get message id
                $LineContent[0] =~ /Message-ID/i && do
                                               {
                                                 $MsgId = $LineContent[1]; # print "Message ID : $MsgId"; 
                                                last SWITCH;
                                               };
                # Get message from
                $LineContent[0] =~ /From/i && do
                                              {
                                                $MsgFrom = $LineContent[1];
                                                # $MsgFrom = $1;
                                                $MsgFrom =~ s/"|<.*>//g;
                                                $MsgFrom = substr($MsgFrom, 0, 39);
                                                # print "From : $MsgFrom"; 
                                                last SWITCH;
                                              };
                # Get message to
                $LineContent[0] =~ /To/i && do
                                              {
                                                $MsgTo = $LineContent[1]; #print "To : $MsgTo"; 
                                                last SWITCH;
                                              };
                # Get message cc
                $LineContent[0] =~ /Cc/i && do
                                              {
                                                $MsgCc = $LineContent[1]; # print "Cc : $MsgCc"; 
                                                last SWITCH;
                                              };
                # Get message subject
                $LineContent[0] =~ /Subject/i && do
                                              {
                                                $MsgSub = $LineContent[1];# print "Subject : $MsgSub"; 
                                                last SWITCH;
                                              };
              }
    }
    else
    {
      # Process message body
      $MsgBody .= @$MsgContent[$count];
    }
    $count++;
  } #end while
 
$pop3->delete ($MsgNo); # después de procesarlo: eliminarlo
 
} #end foreach
 
# Disconnect from pop3 server
$pop3->quit();
sleep(20);                              # Sleep for 20 seconds
 
#} # end while infinito
 
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

¿Me dan una mano?

cambiar el directorio de trabajo a "/"
hacer un fork(), y que el proceso padre muera
desconectarte de la terminal cerrando las entradas y salidas estándares
disociarse de la terminal y dejar de formar parte del grupo de procesos que inició tu proceso padre
hacer otro fork() y dejar que muera el primer hijo. Esto es para impedir de todas maneras que la terminal sea controlada por nosotros. Continuaremos con el nieto
inicializar a 0 la máscara de creación de archivos

Bueno, dependiendo de la documentación que leas, algunos pasos pueden ir en otro orden, y no pasaría nada.

En Perl, se puede tener una subrutina que haga todo eso:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub daemonizar {
   use POSIX;
   POSIX::setsid or die "setsid: $!";                              # disociar de la terminal
   my $pid = fork ();                                              # ¡fork!
   if ($pid < 0) {                                                 # si ha fallado el fork...
      die "fork: $!";                                              # nos morimos... algo raro pasó
   } elsif ($pid) {                                                # pero, si somos el padre
      exit 0;                                                      # nos morimos...
   }                                                               # sigue el hijo
   chdir "/";                                                      # cambio de directorio de trabajo
   umask 0;                                                        # máscara de creación de archivos a 0
   foreach (0 .. (POSIX::sysconf (&POSIX::_SC_OPEN_MAX) || 1024))  # cerramos todos los gestores
      { POSIX::close $_ }                                          # que pudieran estar abiertos
   open (STDIN,  "</dev/null");                                    # cerramos la entrada estándar
   open (STDOUT, ">/dev/null");                                    # y la salida estándar
   open (STDERR, ">&STDOUT"  );                                    # y la salida estándar de errores
 }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Después de llamar a esta subrutina, tu programa ya es un dæmon, así que debe entrar en un bucle infinito, haciendo lo que suelen hacer los dæmon...

Hay otra forma, más cómoda y moderna de hacer esto. Con la ayuda del módulo Proc::Daemon, que realiza estos pasos más el de generar un segundo hijo, por seguridad.

Un programa típico sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
use Proc::Daemon;
 
Proc::Daemon::Init;                     # nos convertimos en dæmon
 
my $continue = 1;                       # esta bandera indica si el proceso debe seguir o no
$SIG{TERM} = sub { $continue = 0 };     # capturamos la señal de interrupción
                                        # cuando el usuario o sistema nos mande esta señal,
                                        # se cambia la bandera, y el proceso termina
 
while ($continue) {                     # mientras podamos continuar...
     ....;                              # aquí estará nuestro programa
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aquí tienes descrito lo que tienes que hacer si quieres integrar tu dæmon en un sistema /etc/init.d.

Aquí tienes otro ejemplo por si, además, quieres controlar que solo exista una copia de tu dæmon en el sistema, con la ayuda de Proc::PID::File:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
 
use Proc::Daemon;
use Proc::PID::File;
 
MAIN:
{
    # Demoniza
    Proc::Daemon::Init();
 
    # Si ya estábamos corriendo, salimos
    if (Proc::PID::File->running()) {
        exit(0);
    }
 
    # Inicialización
    ...;
 
    # Bucle infinito
    for (;;) {
        ...;
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En el bucle infinito, debes poner algún sistema de espera, para impedir que el proceso se ejecute sin parar, a toda velocidad, pues podría agotar la CPU. Puede ser un sleep() para que se ejecute cada cierto tiempo, o usar select() para que haga eso mismo además de indicar la llegada de alguna petición externa (vía sockets, por ejemplo). O un accept() si estás esperando una conexión externa.

por **jcovenas** » 2012-03-30 08:42 @404

Un millón de gracias, explorer. Entendí el tema de hacerlo independiente y eliminar los print() de la terminal, no sabía sobre el módulo Proc::Daemon. Aun así usé un modelo de skeleton.
El código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
#
# mydaemon.pl by Andrew Ault, http://www.andrewault.net
#
# Free software. Use this as you wish.
#
# Throughout this template "mydaemon" is used where the name of your daemon should
# be, replace occurrences of "mydaemon" with the name of your daemon.
#
# This name will also be the exact name to give this file (WITHOUT a ".pl" extension).
#
# It is also the exact name to give the start-stop script that will go into the
# /etc/init.d/ directory.
#
# It is also the name of the log file in the /var/log/ directory WITH a ".log"
# file extension.
#
# Replace "# do something" with your super useful code.
#
# Use "# logEntry("log something");" to log whatever your need to see in the log.
#
use strict;
use warnings;
use POSIX;
use File::Pid;
use Net::POP3;
 
# make "mydaemon.log" file in /var/log/ with "chown root:adm mydaemon"
 
# TODO: change "mydaemon" to the exact name of your daemon.
my $daemonName    = "mail2sms";
my $dieNow        = 0;                                     # used for "infinte loop" construct - allows daemon mode to gracefully exit
my $sleepMainLoop = 120;                                    # number of seconds to wait between "do something" execution after queue is clear
my $logging       = 1;                                     # 1= logging is on
my $logFilePath   = "/var/log/";                           # log file path
my $logFile       = $logFilePath . $daemonName . ".log";
my $pidFilePath   = "/var/run/";                           # PID file path
my $pidFile       = $pidFilePath . $daemonName . ".pid";
 
# daemonize
use POSIX qw(setsid);
chdir '/';
umask 0;
open STDIN,  '/dev/null'   or die "Can't read /dev/null: $!";
open STDOUT, '>>/dev/null' or die "Can't write to /dev/null: $!";
open STDERR, '>>/dev/null' or die "Can't write to /dev/null: $!";
defined( my $pid = fork ) or die "Can't fork: $!";
exit if $pid;
 
# dissociate this process from the controlling terminal that started it and stop being part
# of whatever process group this process was a part of.
POSIX::setsid() or die "Can't start a new session.";
 
# callback signal handler for signals.
$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signalHandler;
$SIG{PIPE} = 'ignore';
 
# create pid file in /var/run/
my $pidfile = File::Pid->new( { file => $pidFile, } );
 
$pidfile->write or die "Can't write PID file, /dev/null: $!";
 
# turn on logging
if ($logging) {
        open LOG, ">>$logFile";
        select((select(LOG), $|=1)[0]); # make the log file "hot" - turn off buffering
}
 
# "infinite" loop where some useful process happens
until ($dieNow) {
        sleep($sleepMainLoop);
 
        # TODO: put your custom code here!
        # do something
######################################
 my $ServerName = "mi server mail";
 my $UserName = "mi user";
 my $Password = "algo";
# The program will run in an infinite loop.
# while('TRUE')                 
 #{
        #print "Waiting for email...\n";        
 
# Connect to pop3 server
my $pop3 = Net::POP3->new($ServerName) || die "Error : Couldn't log on to server";
 
# Login to pop3 server
my $Num_Message = $pop3->login($UserName,$Password);
my $Messages = $pop3->list();
 
my ($MsgId, $MsgDate, $MsgFrom, $MsgTo, $MsgCc, $MsgSub);
my ($MsgAttach, $MsgSize, $MsgHeader, $MsgHeadFlg, $MsgBody,$MsgNo);
 
 
foreach $MsgNo (keys %$Messages)
{
  my $MsgContent = $pop3->get($MsgNo);
  my $count = 0;
  $MsgHeadFlg = 0;
  $MsgBody = "";
 # print "Message No : $MsgNo\n";
 
  $MsgSize = $pop3->list($MsgNo);
#  print "Message Size : $MsgSize Bytes\n";
  
  # Process message data
  while()
  {
#       print scalar(@$MsgContent);
#       print "es el scalar\n"; 
#       print $count;
#       print "es el count...\n";       
    # Exit if last line of mail
    if ($count >= scalar(@$MsgContent))
    {
        $MsgBody =~s/^\s*(.*?)\s*$/$1/;
        $MsgBody = "SMS de-$MsgFrom:" . $MsgBody;
        #print "$MsgBody";
        # You can only send SMS in chunks of 160 chars Max according to gnokii. 
        # so breaking the body into chunks of 160 and sending them 1 at a time.
         if ($MsgSub =~ /^[+]?\d+$/ )
                {
                my @stringChunksArray = ($MsgBody =~ m/(.{1,160})/gs);
                for(my $i=0;$i<@stringChunksArray;$i++)
                        {
                        open(GNOKII, "| gammu --sendsms TEXT $MsgSub") || die "Error starting gnokii failed: $!\n";     
                        # Start gnokii and wait for the SMS body
                        print GNOKII $stringChunksArray[$i];                                                            
                        # Print the SMS body in 160 Char chunks
                        close(GNOKII);
                        sleep(10);               # This is there so that the phone gets time to reset after each message. Otherwise the send fails
                        }
                }
        else
                {
                #print "no es un Cel";
                last;
                }
      last;
    }
 
    # Check if end of mail header
    if (@$MsgContent[$count] =~ /^\n/)
    {
      $MsgHeadFlg = 1;
    }
 
    # Proceed if message header not processed
    if (not $MsgHeadFlg)
    {
 
      # Split the line 
      my @LineContent = split /: /, @$MsgContent[$count];
 
      # Check Header Info
              SWITCH:
              {
                # Get message date
                $LineContent[0] =~ /Date/i && do
                                               {
                                                 $MsgDate = $LineContent[1]; # print "Date : $MsgDate"; 
                                                last SWITCH;
                                               };
                # Get message id
                $LineContent[0] =~ /Message-ID/i && do
                                               {
                                                 $MsgId = $LineContent[1]; print "Message ID : $MsgId"; 
                                                last SWITCH;
                                               };
                # Get message from
                $LineContent[0] =~ /From/i && do
                                              {
                                                $MsgFrom = $LineContent[1];
#                                               $MsgFrom = $1;
                                                $MsgFrom =~ s/"|<.*>//g;
                                                $MsgFrom = substr($MsgFrom, 0, 39);             
                                                # print "From : $MsgFrom"; 
                                                last SWITCH;
                                              };
                # Get message to
                $LineContent[0] =~ /To/i && do
                                              {
                                                $MsgTo = $LineContent[1]; #print "To : $MsgTo"; 
                                                last SWITCH;
                                              };
                # Get message cc
                $LineContent[0] =~ /Cc/i && do
                                              {
                                                $MsgCc = $LineContent[1]; #print "Cc : $MsgCc"; 
                                                last SWITCH;
                                              };
                # Get message subject
                $LineContent[0] =~ /Subject/i && do
                                              {
                                                $MsgSub = $LineContent[1]; #print "Subject : $MsgSub"; 
                                                last SWITCH;
                                              };
              }
    }
    else
    {
      # Process message body
      $MsgBody .= @$MsgContent[$count];
    }
    $count++;
  } #end while
 
$pop3->delete ($MsgNo); # despues de procesarlo: eliminarlo
 
} #end foreach
 
# Disconnect from pop3 server
$pop3->quit();
sleep(20);                              # Sleep for 20 seconds
 
##} # end while infinito
 
        ####print "wait.... \n";
 
        #logEntry("log something"); # use this to log whatever you need to
}
 
# add a line to the log file
sub logEntry {
        my ($logText) = @_;
        my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
        my $dateTime = sprintf "%4d-%02d-%02d %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $hour, $min, $sec;
        if ($logging) {
                print LOG "$dateTime $logText\n";
        }
}
 
# catch signals and end the program if one is caught.
sub signalHandler {
        $dieNow = 1;    # this will cause the "infinite loop" to exit
}
 
# do this stuff when exit() is called.
END {
        if ($logging) { close LOG }
        $pidfile->remove if defined $pidfile;
}
 
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

¿Me recomendaría usar éste o implementar el que indicas?

por **explorer** » 2012-03-30 10:18 @471

La diferencia sería de 20 o 25 líneas menos.

El resultado será el mismo.

Bueno, no... será más seguro.

Siempre puedes consultar el código de Proc::Daemon para ver cómo lo hace

por **jcovenas** » 2012-03-30 11:53 @536

muchas gracias, veo que está funcionando. pero no tengo algo claro.
Cuando lo abro desde la terminal: sudo /usr/bin/mail2sms
empieza a trabajar pero no como un servicio. Hago esto para ejecutarlo: sudo /etc/init.d/mail2sms
y claro allí tengo un script que lo llama es un sh sin extensión.

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

#! /bin/sh
### BEGIN INIT INFO
# Provides:          skeleton
# Required-Start:    $remote_fs $syslog
# Required-Stop:     $remote_fs $syslog
# Default-Start:     2 3 4 5
# Default-Stop:      0 1 6
# Short-Description: Example initscript
# Description:       This file should be used to construct scripts to be
#                    placed in /etc/init.d.
### END INIT INFO
 
# Author: Foo Bar <[email protected]>
#
# Please remove the "Author" lines above and replace them
# with your own name if you copy and modify this script.
 
# Do NOT "set -e"
 
# PATH should only include /usr/* if it runs after the mountnfs.sh script
PATH=/sbin:/usr/sbin:/bin:/usr/bin
DESC="mail to sms"
NAME=mail2sms
DAEMON=/usr/sbin/$NAME
DAEMON_ARGS="--options args"
PIDFILE=/var/run/$NAME.pid
SCRIPTNAME=/etc/init.d/$NAME
 
# Exit if the package is not installed
[ -x "$DAEMON" ] || exit 0
 
# Read configuration variable file if it is present
[ -r /etc/default/$NAME ] && . /etc/default/$NAME
 
# Load the VERBOSE setting and other rcS variables
. /lib/init/vars.sh
 
# Define LSB log_* functions.
# Depend on lsb-base (>= 3.0-6) to ensure that this file is present.
. /lib/lsb/init-functions
 
#
# Function that starts the daemon/service
#
do_start()
{
        # Return
        #   0 if daemon has been started
        #   1 if daemon was already running
        #   2 if daemon could not be started
        start-stop-daemon --start --quiet --pidfile $PIDFILE --exec $DAEMON --test > /dev/null \
                || return 1
        start-stop-daemon --start --quiet --pidfile $PIDFILE --exec $DAEMON -- \
                $DAEMON_ARGS \
                || return 2
        # Add code here, if necessary, that waits for the process to be ready
        # to handle requests from services started subsequently which depend
        # on this one.  As a last resort, sleep for some time.
}
 
#
# Function that stops the daemon/service
#
do_stop()
{
        # Return
        #   0 if daemon has been stopped
        #   1 if daemon was already stopped
        #   2 if daemon could not be stopped
        #   other if a failure occurred
        start-stop-daemon --stop --quiet --retry=TERM/30/KILL/5 --pidfile $PIDFILE --name $NAME
        RETVAL="$?"
        [ "$RETVAL" = 2 ] && return 2
        # Wait for children to finish too if this is a daemon that forks
        # and if the daemon is only ever run from this initscript.
        # If the above conditions are not satisfied then add some other code
        # that waits for the process to drop all resources that could be
        # needed by services started subsequently.  A last resort is to
        # sleep for some time.
        start-stop-daemon --stop --quiet --oknodo --retry=0/30/KILL/5 --exec $DAEMON
        [ "$?" = 2 ] && return 2
        # Many daemons don't delete their pidfiles when they exit.
        rm -f $PIDFILE
        return "$RETVAL"
}
 
#
# Function that sends a SIGHUP to the daemon/service
#
do_reload() {
        #
        # If the daemon can reload its configuration without
        # restarting (for example, when it is sent a SIGHUP),
        # then implement that here.
        #
        start-stop-daemon --stop --signal 1 --quiet --pidfile $PIDFILE --name $NAME
        return 0
}
 
case "$1" in
  start)
        [ "$VERBOSE" != no ] && log_daemon_msg "Starting $DESC" "$NAME"
        do_start
        case "$?" in
                0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
                2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
        esac
        ;;
  stop)
        [ "$VERBOSE" != no ] && log_daemon_msg "Stopping $DESC" "$NAME"
        do_stop
        case "$?" in
                0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
                2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
        esac
        ;;
  status)
       status_of_proc "$DAEMON" "$NAME" && exit 0 || exit $?
       ;;
  #reload|force-reload)
        #
        # If do_reload() is not implemented then leave this commented out
        # and leave 'force-reload' as an alias for 'restart'.
        #
        #log_daemon_msg "Reloading $DESC" "$NAME"
        #do_reload
        #log_end_msg $?
        #;;
  restart|force-reload)
        #
        # If the "reload" option is implemented then remove the
        # 'force-reload' alias
        #
        log_daemon_msg "Restarting $DESC" "$NAME"
        do_stop
        case "$?" in
          0|1)
                do_start
                case "$?" in
                        0) log_end_msg 0 ;;
                        1) log_end_msg 1 ;; # Old process is still running
                        *) log_end_msg 1 ;; # Failed to start
                esac
                ;;
          *)
                # Failed to stop
                log_end_msg 1
                ;;
        esac
        ;;
  *)
        #echo "Usage: $SCRIPTNAME {start|stop|restart|reload|force-reload}" >&2
        echo "Usage: $SCRIPTNAME {start|stop|status|restart|force-reload}" >&2
        exit 3
        ;;
esac
 
:
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Supongo que este script hace que pueda hacer un start y stop y luego ese lo metí en rc.local:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

update-rc.d mail2sms defaults 99
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hago un

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

sudo ls /var/run/
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y no lo veo corriendo.

por **explorer** » 2012-03-30 12:04 @544

Ejecútalo como

bash -x /etc/init.d/mail2sms start

y así verás qué es lo que hace.

por **jcovenas** » 2012-03-30 12:08 @547

Sintáxis: [ Descargar ] [ Ocultar ]

ubuntu@ubuntu:~$ bash -x /etc/init.d/mail2sms start
+ PATH=/sbin:/usr/sbin:/bin:/usr/bin
+ DESC='mail to sms'
+ NAME=mail2sms
+ DAEMON=/usr/sbin/mail2sms
+ DAEMON_ARGS='--options args'
+ PIDFILE=/var/run/mail2sms.pid
+ SCRIPTNAME=/etc/init.d/mail2sms
+ '[' -x /usr/sbin/mail2sms ']'
+ exit 0
ubuntu@ubuntu:~$

Salió eso y no sé qué es lo que significa.

Leyendo mejor me dice que la ruta es de /usr/sbin.
En el path le di solo usr/bin.

Bien, ya lo veo correr, ahora el tema es que no lo puedo hacer booteable.

por **explorer** » 2012-03-30 16:28 @727

¿Qué significa eso de que no es booteable?

por **jcovenas** » 2012-03-31 08:03 @377

Disculpe, quise decir que al momento de cargar Ubuntu no levanta el servicio.
Uso este comando:

Sintáxis: [ Descargar ] [ Ocultar ]

update-rc.d /etc/init.d/mail2sms defaults 99

por **explorer** » 2012-03-31 09:10 @423

Es así:

Sintáxis: [ Descargar ] [ Ocultar ]

update-rc.d mail2sms defaults 99

Como resultado de esa línea, deberás ver que hay enlaces simbólicos en /etc/rcX.d/ (siendo X los valores 2, 3, 4 y 5 para el arranque del servicio; y 0, 1 6 para la parada) que apuntan a mail2sms dentro de init.d/

Foro - Perl en Español

Correr script de Perl como daemon

Correr script de Perl como daemon

Publicidad

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

Re: Correr script de Perl como daemon

¿Quién está conectado?