On Thu, 10 Mar 2005, David Nolan wrote:
$from isn't a simple string, you need to do something like:
yes, so i plucked code from mon to make this separate test program
which receives traps and decodes what recv returns, and it does
just as i expect:
#!/usr/bin/perl
use Socket;
$bindaddr = INADDR_ANY
--On Thursday, March 10, 2005 5:22 PM +0100 Marko Riedel
<[EMAIL PROTECTED]> wrote:
Hello there,
I moved the debug statement:
if ($intended)
{
$sref->{"_intended"} = $intended;
}
open DEBUG, '>>/tmp/dbg';
print DEBUG "FROMIP: <$fromip>\n";
close DEBUG;
syslog (
Hello there,
I moved the debug statement:
if ($intended)
{
$sref->{"_intended"} = $intended;
}
open DEBUG, '>>/tmp/dbg';
print DEBUG "FROMIP: <$fromip>\n";
close DEBUG;
syslog ('info', "trap $trap{typ} $trap{spc} from " .
"$fromip grp=$trap{grp} s
--On Thursday, March 10, 2005 3:58 PM +0100 Marko Riedel
<[EMAIL PROTECTED]> wrote:
} else {
open DEBUG, '>>/tmp/dbg';
print DEBUG $trapbuf . "FROM: <$from>\n";
close DEBUG;
handle_trap ($trapbuf, $fr
Hello there,
thank you for pointing out that the "from" field was empty. This
helped me track down the problem to the following spot:
while ($n = select ($niovec = $iovec, undef, undef, $sleep)) {
my $tm1 = [gettimeofday];
if ($! != &EINTR)
{
#