From cd91defa2fd138b6bbd6d7bd71542c8d931357da Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 14 Dec 2001 17:51:28 +0000
Subject: [PATCH] make DK0WCY the only allowed WCYer

---
 perl/WCY.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/WCY.pm b/perl/WCY.pm
index 4974d939..ff2df512 100644
--- a/perl/WCY.pm
+++ b/perl/WCY.pm
@@ -40,7 +40,7 @@ $gmf = "";						# Geomag activity
 $au = 'no';						# aurora warning
 $node = "";						# originating node
 $from = "";						# who this came from
-@allowed = ();					# if present only these callsigns are regarded as valid WWV updators
+@allowed = qw(DK0WCY);					# if present only these callsigns are regarded as valid WWV updators
 @denied = ();					# if present ignore any wwv from these callsigns
 $duplth = 20;					# the length of text to use in the deduping
 $dupage = 12*3600;				# the length of time to hold spot dups
-- 
2.34.1