From: minima <minima>
Date: Mon, 14 Aug 2000 20:37:27 +0000 (+0000)
Subject: 1. Added regex support to sh/dup_*.pl commands
X-Git-Tag: R_1_44~36
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6aaac824c979f97f7637cdc585f7541b3a941bd;p=spider.git

1. Added regex support to sh/dup_*.pl commands
2. fixed rcmd in crontab so that will work again
---

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);