From 9ffa482b325ca5b660a50e4bb845420cad17e969 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 17 Aug 2001 15:43:24 +0000 Subject: [PATCH] adding missing regex handling --- cmd/show/station.pl | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/cmd/show/station.pl b/cmd/show/station.pl index a79e93a8..26f2bbe6 100644 --- a/cmd/show/station.pl +++ b/cmd/show/station.pl @@ -13,9 +13,17 @@ my $call; my $seek; push @f, $self->call unless @f; -if (@f == 1 && uc $f[0] eq 'ALL') { +if (@f <= 2 && uc $f[0] eq 'ALL') { return (1, $self->msg('e6')) if ($self->priv < 6); - my @calls = DXUser::get_all_calls(); + 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; -- 2.43.0