From f6aaac824c979f97f7637cdc585f7541b3a941bd Mon Sep 17 00:00:00 2001
From: minima <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.34.1