From a9a23aff9ed835f84f4a70c8f8869bc34a729267 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 21 Jan 2022 23:03:13 +0000
Subject: [PATCH] remove spurious dupe field defs

---
 perl/DXUser.pm | 40 +++++++++++++---------------------------
 1 file changed, 13 insertions(+), 27 deletions(-)

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index d147d68a..a1fecbad 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -73,38 +73,25 @@ my $json;
 		  lastping => '1,Last Ping at,ptimelist',
 		  lastseen => '0,Last Seen,cldatetime',
 		  lat => '0,Latitude,slat',
-		  lat => '0,Latitude,slat',
 		  lockout => '9,Locked out?,yesno',	# won't let them in at all
 		  long => '0,Longitude,slong',
-		  long => '0,Longitude,slong',
-		  maxconnect => '1,Max Connections',
 		  maxconnect => '1,Max Connections',
 		  name => '0,Name',
-		  name => '0,Name',
 		  node => '0,Last Node',
 		  nopings => '9,Ping Obs Count',
 		  nothere => '0,Not Here Text',
-		  nothere => '0,Not Here Text',
 		  pagelth => '0,Current Pagelth',
 		  passphrase => '9,Pass Phrase,yesno',
-		  passphrase => '9,Pass Phrase,yesno',
-		  passwd => '9,Password,yesno',
 		  passwd => '9,Password,yesno',
 		  pingint => '9,Node Ping interval',
 		  priv => '9,Privilege Level',
-		  priv => '9,Privilege Level',
 		  prompt => '0,Required Prompt',
-		  prompt => '0,Required Prompt',
-		  qra => '0,Locator',
 		  qra => '0,Locator',
 		  qth => '0,Home QTH',
-		  qth => '0,Home QTH',
 		  rbnseeme => '0,RBN See Me',
 		  registered => '9,Registered?,yesno',
-		  registered => '9,Registered?,yesno',
 		  startt => '0,Start Time,cldatetime',
 		  version => '1,Version',
-		  version => '1,Version',
 		  wantann => '0,Req Announce,yesno',
 		  wantann_talk => '0,Talklike Anns,yesno',
 		  wantbeacon => '0,Want RBN Beacon,yesno',
@@ -131,7 +118,6 @@ my $json;
 		  wantwwv => '0,Req WWV,yesno',
 		  wantwx => '0,Req WX,yesno',
 		  width => '0,Preferred Width',
-		  width => '0,Preferred Width',
 		  xpert => '0,Expert Status,yesno',
           wantgrid => '0,Show DX Grid,yesno',
 		 );
@@ -919,19 +905,19 @@ sub lastping
 	return $b->{$call};	
 }
 
-sub registered
-{
-	my $self = shift;
-	my $val;
-	if (defined $_[0]) {
-		$val = unpad($_[0]);
-		$self->{registered} = $val;
-	}
-	if (exists $self->{registered}) {
-		$val = $self->{registered} // 0;
-	}
-	return $val // 0 ;					# to stop undef warnings
-}
+#sub registered
+#{
+#	my $self = shift;
+#	my $val;
+#	if (defined $_[0]) {
+#		$val = unpad($_[0]);
+#		$self->{registered} = $val;
+#	}
+#	if (exists $self->{registered}) {
+#		$val = $self->{registered} // 0;
+#	}
+#	return $val // 0 ;					# to stop undef warnings
+#}
 
 1;
 __END__
-- 
2.43.0