| … | |
… | |
| 311 | |
311 | |
| 312 | $profile = _nodename |
312 | $profile = _nodename |
| 313 | unless defined $profile; |
313 | unless defined $profile; |
| 314 | |
314 | |
| 315 | $CONFIG = AnyEvent::MP::Config::find_profile $profile; |
315 | $CONFIG = AnyEvent::MP::Config::find_profile $profile; |
|
|
316 | |
| 316 | $NODE = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} |
317 | my $node = exists $CONFIG->{nodeid} ? $CONFIG->{nodeid} : $profile; |
| 317 | : $profile eq "anon/" ? $NODE |
318 | $NODE = $node |
| 318 | : $profile; |
319 | unless $node eq "anon/"; |
| 319 | |
320 | |
| 320 | $NODE{$NODE} = $NODE{""}; |
321 | $NODE{$NODE} = $NODE{""}; |
| 321 | $NODE{$NODE}{id} = $NODE; |
322 | $NODE{$NODE}{id} = $NODE; |
| 322 | |
323 | |
| 323 | my $seeds = $CONFIG->{seeds}; |
324 | my $seeds = $CONFIG->{seeds}; |
