From afaf4672c6136e4edb89e1035e82681cbabf869a Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 3 Dec 2002 11:57:38 +0000 Subject: [PATCH] make searching for IP addresses possible? --- cmd/show/log.pl | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/cmd/show/log.pl b/cmd/show/log.pl index 570286f3..bad1f61d 100644 --- a/cmd/show/log.pl +++ b/cmd/show/log.pl @@ -11,28 +11,31 @@ my $cmdline = shift; my @f = split /\s+/, $cmdline; my $f; my @out; -my ($from, $to, $who); +my ($from, $to, $who, $hint); $from = 0; while ($f = shift @f) { # next field # print "f: $f list: ", join(',', @list), "\n"; - if (!$from && !$to) { + unless ($from || $to) { ($from, $to) = $f =~ /^(\d+)-(\d+)$/o; # is it a from -> to count? next if $from && $to > $from; } - if (!$to) { + unless ($to) { ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count? next if $to; } - next if $who; - ($who) = $f =~ /^(\w+)/o; + unless ($who) { + $who = $f; + next if $who; + } } $to = 20 unless $to; $from = 0 unless $from; + if ($self->priv < 6) { - $who = $self->call unless $who; - return (1, $self->msg('e5')) if $who ne $self->call; + return (1, $self->msg('e5')) if defined $who && $who ne $self->call; + $who = $self->call; } @out = DXLog::print($from, $to, $main::systime, undef, $who); -- 2.43.0