| … | |
… | |
| 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 |
