Subj : Perl tossing
To   : All
From : Russ Johnson
Date : Tue Sep 04 2001 03:41 pm

OK, Here's the code:


    read(pkt,$buf,58);  

    while (!eof(pkt))
    {
          last if (read(pkt,$buf,14) != 14);
          ($pktver,$orgnode,$destnode,$orgnet
          ,$destnet,$attrib,$cost) =
           unpack("SSSSSSS",$buf);

.... more deleted.

What this does is the following:

Read 58 bytes of the file, loads it into $buf. Start of while loop, until EOF
Last loop, if read of 14 bytes doesn't equal 14 bytes. Unpacks 14 bytes into 
listed variables.

Explaination:

58 bytes is the packet header. 

Next 14 bytes is message header. This includes the destination and origination 
node numbers.

What I'm observing is that all the messages being tossed contain my node number 
as the destination, and my uplinks node number as the origin. 

Why?

I'm looking at the packet in hex mode, and don't see what it's tossing. 

You can see the output I'm getting at http://www.dimstar.net/msg

Thanks for the help.

Russ
 

--- BBBS/LiI v4.01 Flag-3
 * Origin: Dimension 7 - http://www.dimstar.net (1:105/8)

.