From f6aaac824c979f97f7637cdc585f7541b3a941bd Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 14 Aug 2000 20:37:27 +0000 Subject: [PATCH] 1. Added regex support to sh/dup_*.pl commands 2. fixed rcmd in crontab so that will work again --- Changes | 3 +++ cmd/show/dup_ann.pl | 3 ++- cmd/show/dup_spots.pl | 3 ++- cmd/show/dup_wcy.pl | 4 +++- cmd/show/dup_wwv.pl | 3 ++- 5 files changed, 12 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index 919cf3cd..0519a27a 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +14Aug00======================================================================= +1. Added regex support to sh/dup_*.pl commands +2. fixed rcmd in crontab so that will work again 13Aug00======================================================================= 1. removed extra /60 in AnnTalk to make deduping of announces work a bit better for longer... diff --git a/cmd/show/dup_ann.pl b/cmd/show/dup_ann.pl index e065fbc9..29a235be 100644 --- a/cmd/show/dup_ann.pl +++ b/cmd/show/dup_ann.pl @@ -7,5 +7,6 @@ # $Id$ # my $self = shift; +my $line = shift; return (1, $self->msg('e5')) unless $self->priv >= 9; -return (1, AnnTalk::listdups); +return (1, AnnTalk::listdups $line); diff --git a/cmd/show/dup_spots.pl b/cmd/show/dup_spots.pl index 5bd9b174..63df8b6d 100644 --- a/cmd/show/dup_spots.pl +++ b/cmd/show/dup_spots.pl @@ -7,5 +7,6 @@ # $Id$ # my $self = shift; +my $line = shift; return (1, $self->msg('e5')) unless $self->priv >= 9; -return (1, Spot::listdups); +return (1, Spot::listdups $line); diff --git a/cmd/show/dup_wcy.pl b/cmd/show/dup_wcy.pl index a493b7f2..d326698d 100644 --- a/cmd/show/dup_wcy.pl +++ b/cmd/show/dup_wcy.pl @@ -7,5 +7,7 @@ # $Id$ # my $self = shift; +my $line = shift; + return (1, $self->msg('e5')) unless $self->priv >= 9; -return (1, WCY::listdups); +return (1, WCY::listdups $line); diff --git a/cmd/show/dup_wwv.pl b/cmd/show/dup_wwv.pl index 4bd5ad3f..1360907c 100644 --- a/cmd/show/dup_wwv.pl +++ b/cmd/show/dup_wwv.pl @@ -7,5 +7,6 @@ # $Id$ # my $self = shift; +my $line = shift; return (1, $self->msg('e5')) unless $self->priv >= 9; -return (1, Geomag::listdups); +return (1, Geomag::listdups $line); -- 2.43.0