Hello all

I am writing a small script using HTTP::Daemon, which I want to use to manage another service. Connecting to the daemon with a browser shows a form from which I can choose to start, stop or restart a certain service.

When I choose start, the script forks and immediately execs another program; for testing purposes, I am launching a shell scripts that runs ping 127.0.0.1; The call is as follows:/p> 

      my @start_command = ($service_start,'>',"${service}.out",'2>&1')
+ ;
      exec @start_command or
        print STDERR "ERROR: Cannot exec $service: $!\n" ;

[download]

When I push stop I would like the forked child and all subchildren to be killed. I am trying to do it with:

    my ($status,$pid) = status() ;
    if ($pid > 0) {
      my $signaled ;
      # Try breaking
      my $signaled = kill "SIGINT",$pid ;
      sleep 1 ;
      ($status,$pid) = status() ;

      if ($pid > 0) {
    # Try killing gently
    $signaled = kill "SIGTERM",$pid ;
    sleep 1 ;
    ($status,$pid) = status() ;
      }

      # If it did not die, try killing it harder
      if ($pid > 0) {
    $signaled = kill "SIGKILL",$pid ;
    sleep 1 ;
    ($status,$pid) = status() ;
      }

      $message = $pid > 0 ?
    "$service_name could not be stopped, pid is $pid" :
      "$service_name killed" ;

[download]

Unfortunately, only the child process gets killed, all subchildren keep on running

Possible solutions:

...you have a better solution, don't you? ;-)

Ciao!
--bronto

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz

In reply to Killing a process and, recursively, all its children by bronto

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.