… | |
… | |
164 | |
164 | |
165 | $NODE_REQ{g_find} = sub { |
165 | $NODE_REQ{g_find} = sub { |
166 | my ($node) = @_; |
166 | my ($node) = @_; |
167 | |
167 | |
168 | snd $SRCNODE->{id}, g_found => $node, $GLOBAL_DB{"'l"}{$node}; |
168 | snd $SRCNODE->{id}, g_found => $node, $GLOBAL_DB{"'l"}{$node}; |
|
|
169 | }; |
|
|
170 | |
|
|
171 | $NODE_REQ{g_db_family} = sub { |
|
|
172 | my ($family, $id) = @_; |
|
|
173 | snd $SRCNODE->{id}, g_reply => $id, $GLOBAL_DB{$family} || {}; |
|
|
174 | }; |
|
|
175 | |
|
|
176 | $NODE_REQ{g_db_keys} = sub { |
|
|
177 | my ($family, $id) = @_; |
|
|
178 | snd $SRCNODE->{id}, g_reply => $id, [keys %{ $GLOBAL_DB{$family} } ]; |
|
|
179 | }; |
|
|
180 | |
|
|
181 | $NODE_REQ{g_db_values} = sub { |
|
|
182 | my ($family, $id) = @_; |
|
|
183 | snd $SRCNODE->{id}, g_reply => $id, [values %{ $GLOBAL_DB{$family} } ]; |
169 | }; |
184 | }; |
170 | |
185 | |
171 | # monitoring |
186 | # monitoring |
172 | |
187 | |
173 | sub g_slave_disconnect($) { |
188 | sub g_slave_disconnect($) { |