From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 22 Jan 2022 12:42:09 +0000 (+0000)
Subject: remove duplicate fields in DXUser to match DXuser
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e79898127e7303c4bb96ea2216eea191c21b0fd;p=spider.git

remove duplicate fields in DXUser to match DXuser
---

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a1fecbad..b5f56c2a 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -42,34 +42,25 @@ my $json;
 # hash of valid elements and a simple prompt
 %valid = (
 		  'sort' => '0,Type of User', # A - ak1a, U - User, S - spider cluster, B - BBS
-		  K => '9,Seen on PC92 K,yesno',
-		  addr => '0,Full Address',
 		  addr => '0,Full Address',
 		  alias => '0,Real Callsign',
-		  alias => '0,Real Callsign',
 		  annok => '9,Accept Announces?,yesno', # accept his announces?
 		  bbs => '0,Home BBS',
 		  believe => '1,Believable nodes,parray',
-		  believe => '1,Believable nodes,parray',
 		  buddies => '0,Buddies,parray',
 		  build => '1,Build',
-		  build => '1,Build',
-		  call => '0,Callsign',
 		  call => '0,Callsign',
 		  connlist => '1,Connections,parraydifft',
 		  dxok => '9,Accept DX Spots?,yesno', # accept his dx spots?
 		  email => '0,E-mail Address,parray',
-		  email => '0,E-mail Address,parray',
 		  group => '0,Group,parray',	# used to create a group of users/nodes for some purpose or other
 		  hmsgno => '0,Highest Msgno',
 		  homenode => '0,Home Node',
 		  isolate => '9,Isolate network,yesno',
+		  K => '9,Seen on PC92 K,yesno',
 		  lang => '0,Language',
 		  lastin => '0,Last Time in,cldatetime',
-		  lastin => '0,Last Time in,cldatetime',
 		  lastoper => '9,Last for/oper,cldatetime',
-		  lastoper => '9,Last for/oper,cldatetime',
-		  lastping => '1,Last Ping at,ptimelist',
 		  lastping => '1,Last Ping at,ptimelist',
 		  lastseen => '0,Last Seen,cldatetime',
 		  lat => '0,Latitude,slat',