… | |
… | |
138 | |
138 | |
139 | $data |
139 | $data |
140 | } |
140 | } |
141 | |
141 | |
142 | sub gen_uniq { |
142 | sub gen_uniq { |
143 | alnumbits pack "wNa*", $$, time, nonce 2 |
143 | alnumbits pack "nna*", $$ & 0xffff, time & 0xffff, nonce 2 |
144 | } |
144 | } |
145 | |
145 | |
146 | our $CONFIG; # this node's configuration |
146 | our $CONFIG; # this node's configuration |
147 | |
147 | |
148 | our $RUNIQ = alnumbits nonce 16;; # remote uniq value |
148 | our $RUNIQ = alnumbits nonce 96/8; # remote uniq value |
149 | our $UNIQ = gen_uniq; # per-process/node unique cookie |
149 | our $UNIQ = gen_uniq; # per-process/node unique cookie |
150 | our $NODE = "anon/$RUNIQ"; |
150 | our $NODE = "anon/$RUNIQ"; |
151 | our $ID = "a"; |
151 | our $ID = "a"; |
152 | |
152 | |
153 | our %NODE; # node id to transport mapping, or "undef", for local node |
153 | our %NODE; # node id to transport mapping, or "undef", for local node |