Select Code to Download

$SIG{PIPE} = sub { $log->warning("Caught SIGPIPE:  $!"); $running = 1;
+ };

        $log->warning("In thread: Attempting to shutdown handle associ
+ated with fileno: $fno");
        shutdown ($socket, 2) or $log->warning ("In thread: Shutdown e
+rror: $!");
...
        close $socket or $log->warning ("In thread: close error: $!");
        $log->warning("In thread: Enqueing in Qclean fileno: $fno");
        $Qclean->enqueue( $fno );

$ perl -e 'printf "<request>getmyip</request>%c",0' | ./nc myhost.com 
+9999

<data><ip>x.x.x.x</ip></data>

August 29 09:12:44 xmlsockd-advanced[32652]: (1) : XML IP request from
+: x.x.x.x
August 29 09:12:44 xmlsockdx[32652]: In thread: Attempting to shutdown
+ handle associated with fileno: 5
August 29 09:12:44 xmlsockdx[32652]: In thread: Attempting to close ha
+ndle associated with fileno: 5
August 29 09:12:44 xmlsockdx[32652]: Caught SIGPIPE:  Broken pipe
August 29 09:12:44 xmlsockdx[32652]: In thread: close error: Broken pi
+pe

$log->warning("In thread: Attempting to shutdown handle associated wit
+h fileno: $fno");
shutdown ($socket, 2) or $log->warning ("In thread: shutdown error: $!
+");
$log->warning("In thread: Enqueing in Qclean fileno: $fno");
$Qclean->enqueue( $fno );

    while ( $Qclean->pending )
    {
        my $fileno = $Qclean->dequeue();
        delete $sockets{ $fileno };
    }

$ perl -e 'printf "<policy-file-request/>%c",0' | ./nc myhost.com 9999

<?xml version="1.0"?><cross-domain-policy><allow-access-from domain="*
+" to-ports="9999" /></cross-domain-policy>

August 29 09:26:31 xmlsockd[7815]: (1) : XML IP request from: x.x.x.x
August 29 09:26:31 xmlsockd[7815]: In thread: Attempting to shutdown h
+andle associated with fileno: 5
August 29 09:26:31 xmlsockd[7815]: In thread: Enqueing in Qclean filen
+o: 5
August 29 09:26:31 xmlsockd[7815]: Caught SIGPIPE:  Broken pipe