9
11
IN CHILD 17116 PINGING 207.59.97.99
12
^CPlease wait, stopping child processes
Child 17116 in SIGNAL
^CPlease wait, stopping child processes
Child 17116 in SIGNAL
Use of uninitialized value in subroutine entry at /usr/local/lib/perl5
+/5.8.0/sun4-solaris/Socket.pm line 370.
13
14
15
16
17
    INSERTING '207.59.97.99' at '1065125651'
18
19
20
21
1
Child 17116 received shutdown
Attempt to free unreferenced scalar.
[download]

sub kill_child
{
    print "Please wait, stopping child processes\n";
    kill USR1 => keys(%child_pids);
    sleep while (%child_pids);
}

sub reap_child
{
    while ( (my $child = waitpid(-1,&WNOHANG)) > 0 ) {
        delete $child_pids{$child};
    }
}
[download]

sub ping_child
{
  use Net::Ping;
  my $SHUTDOWN = 0;
    my $sigset = POSIX::SigSet->new(SIGINT,SIGTERM);
    my $old_sigset = POSIX::SigSet->new;
    my ($sockpath, $dsn,
        $host,$user, $pass) = (@_);
    my $clientSocket = IO::Socket::UNIX->new($sockpath);
       sigprocmask(SIG_BLOCK,$sigset);
       $SIG{USR1} = sub{ print "Child $$ in SIGNAL\n"; $SHUTDOWN++ ; }
+;
    my $ping         = Net::Ping->new('icmp',5);
    my $buffer;
    my $db_handle = DBI->connect($dsn,$user,$pass,{RaiseError => 1, Au
+toCommit => 1})
       or die "Could not connect to database. $DBI::errstr\n";

    until (defined($clientSocket))
    {
        ssleep(.250);
        $clientSocket = IO::Socket::UNIX->new($sockpath);
    }
    $clientSocket->autoflush(1);
    while (1)
    {
print "1\n";
        if ($SHUTDOWN) { print "Child $$ received shutdown\n";exit 0};
print "2\n";
        syswrite($clientSocket,"req");
print "3\n";
        my $bytes_read = 0;
print "4\n";
        my $tmpval;
print "5\n";
           if ($SHUTDOWN) { print "Child $$ received shutdown\n";exit 
+0};
print "6\n";
           $bytes_read = sysread($clientSocket,$buffer,8192);
print "7\n";
             chomp($buffer);
print "8\n";
             $tmpval = $buffer;
print "9\n";

        if ($buffer eq "TRY_AGAIN")
        {
print "10\n";
            print "CHILD $$ TRYING AGAIN\n";
            next;
        }
print "11\n";
        print "IN CHILD $$ PINGING $tmpval\n";
print "12\n";
        my $pingresult = $ping->ping($tmpval);
print "13\n";

        if ( (! defined($pingresult)) or (!$pingresult) )
        {
print "14\n";
           my $EPOCH_TIME = time();
print "15\n";
           my $sth = $db_handle->prepare("INSERT INTO FAILURES".
                                   " VALUES(\'$tmpval\',\'$EPOCH_TIME\
+')");
print "16\n";
              die "\$sth error: $!\n" if (! $sth);
print "17\n";
              print "    INSERTING \'$tmpval\' at \'$EPOCH_TIME\'\n";
print "18\n";
           my $return = $sth->execute;
print "19\n";
              die "\$return error: $!\n" if (! $return);
print "20\n";
        }
print "21\n";
    }
    $db_handle->disconnect();
}
[download]