my @out;
my $call;
my $seek;
+push @f, $self->call unless @f;
-if (@f == 0) {
- return (1, $self->msg('e6')) if ($self->priv < 5);
- my @calls = DXUser::get_all_calls();
+if (@f <= 2 && uc $f[0] eq 'ALL') {
+ return (1, $self->msg('e6')) if @f == 1 && $self->priv < 6;
+ return (1, $self->msg('e6')) if $self->priv < 5 || $f[1] eq '*';
+ shift @f;
+ my $exp = shellregex(uc shift @f) if @f;
+ my @calls;
+ if ($exp) {
+ @calls = grep {m{$exp}} DXUser::get_all_calls();
+ } else {
+ @calls = DXUser::get_all_calls();
+ }
+
foreach $call (@calls) {
my $ref = DXUser->get_current($call);
next if !$ref;
$miles = $dx * 0.62133785;
}
- my $cref = DXCluster->get($call);
- 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)";