my @out;
my $call;
my $seek;
+push @f, $self->call unless @f;
-if (@f == 0) {
- return (1, $self->msg('e6')) if ($self->priv < 5);
+if (@f == 1 && uc $f[0] eq 'ALL') {
+ return (1, $self->msg('e6')) if ($self->priv < 6);
my @calls = DXUser::get_all_calls();
foreach $call (@calls) {
my $ref = DXUser->get_current($call);
$miles = $dx * 0.62133785;
}
- my $cref = DXCluster->get_exact($call);
- $cref = DXCluster->get($call) unless $cref;
- my $seek = $cref->mynode->call if $cref;
+ my $cref = Route::get($call);
+ my $seek = join(',', $cref->parents) if $cref;
if ($seek) {
push @out, "User : $call (at $seek)";