X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=cmd%2Fshow%2Fdup_wcy.pl;fp=cmd%2Fshow%2Fdup_wcy.pl;h=a493b7f2c8133ef7b9320286c5d7a0e21484fc87;hb=840ace66681d2d615ff412e1197fa613f262c1f2;hp=0000000000000000000000000000000000000000;hpb=4fa8a0251b64361c908d056393b46abece6d38be;p=spider.git

diff --git a/cmd/show/dup_wcy.pl b/cmd/show/dup_wcy.pl
new file mode 100644
index 00000000..a493b7f2
--- /dev/null
+++ b/cmd/show/dup_wcy.pl
@@ -0,0 +1,11 @@
+#
+# show a list of all the outstanding wcy dups
+# for debugging really
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) unless $self->priv >= 9; 
+return (1, WCY::listdups);