From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 7 Jul 2020 17:25:31 +0000 (+0100)
Subject: fix show/node
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=f2a65bc2f8ad7069cadc59f8fd4d2ef390567dba

fix show/node
---

diff --git a/Changes b/Changes
index 9e807f66..ceb72454 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+07Jul20=======================================================================
+1. Fix show/node command.
 06Jul20=======================================================================
 1. Add RBN.mojo with information of the RBN capabilities of DXSpider.
 05Jul20=======================================================================
diff --git a/cmd/show/node.pl b/cmd/show/node.pl
index b41cd93f..f8e71177 100644
--- a/cmd/show/node.pl
+++ b/cmd/show/node.pl
@@ -16,7 +16,6 @@
 
 my ($self, $line) = @_;
 return (1, $self->msg('e5')) unless $self->priv >= 1;
-return (1, $self->msg('storable')) unless $DXUser::v3;
 
 my @call = map {uc $_} split /\s+/, $line; 
 my @out;
@@ -29,9 +28,10 @@ if (@call == 0) {
 	shift @call;
 	my ($action, $key, $data) = (0,0,0);
 	for ($action = DXUser::R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) {
-		if ($data =~ m{\01[ACRSX]\0\0\0\04sort}) {
-		    push @call, $key;
-			++$count;
+		if (iscallsign($key)) {
+			if ($data =~ /"sort":"[ACRSX]"/) {
+				push @call, $key;
+			}
 		}
 	}
 }
diff --git a/perl/RBN.pm b/perl/RBN.pm
index bb64330b..829f11f7 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -34,7 +34,7 @@ our $minspottime = 60*60;		# the time between respots of a callsign - if a call
 
 our $beacontime = 5*60;			# same as minspottime, but for beacons (and shorter)
 
-our $dwelltime = 6; 			# the amount of time to wait for duplicates before issuing
+our $dwelltime = 8; 			# the amount of time to wait for duplicates before issuing
                                 # a spot to the user (no doubt waiting with bated breath).
 
 our $filterdef = $Spot::filterdef; # we use the same filter as the Spot system. Can't think why :-).
diff --git a/perl/convert-users-v3-to-v4.pl b/perl/convert-users-v3-to-v4.pl
deleted file mode 100755
index 48ef0c00..00000000
--- a/perl/convert-users-v3-to-v4.pl
+++ /dev/null
@@ -1,143 +0,0 @@
-#!/usr/bin/env perl
-#
-# Convert users.v2 or .v3 to JSON .v4 format
-#
-# It is believed that this can be run at any time...
-#
-# Copyright (c) 2020 Dirk Koopman G1TLH
-#
-#
-# 
-
-# make sure that modules are searched in the order local then perl
-
-BEGIN {
-	# root of directory tree for this system
-	$root = "/spider"; 
-	$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
-    unshift @INC, "$root/perl";     # this IS the right way round!
-	unshift @INC, "$root/local";
-}
-
-use strict;
-
-use SysVar;
-use DXUser;
-use DXUtil;
-use JSON;
-use Data::Structure::Util qw(unbless);
-use Time::HiRes qw(gettimeofday tv_interval);
-use IO::File;
-use File::Copy;
-use Carp;
-use DB_File;
-
-use 5.10.1;
-
-my $ufn;
-my $fn = "users";
-
-my $json = JSON->new()->canonical(1);
-my $ofn = localdata("$fn.v4");
-my $convert;
-
-eval {
-	require Storable;
-};
-
-if ($@) {
-	if ( ! -e localdata("$fn.v3") && -e localdata("$fn.v2") ) {
-		$convert = 2;
-	}
-	LogDbg('',"the module Storable appears to be missing!!");
-	LogDbg('',"trying to continue in compatibility mode (this may fail)");
-	LogDbg('',"please install Storable from CPAN as soon as possible");
-}
-else {
-	import Storable qw(nfreeze thaw);
-	$convert = 3 if -e localdata("users.v3") && !-e $ufn;
-}
-
-die "need to have a $fn.v2 or (preferably) a $fn.v3 file in /spider/data or /spider/local_data\n" unless $convert;
-
-if (-e $ofn || -e "$ofn.n") {
-	my $nfn = localdata("$fn.v4.json");
-	say "You appear to have (or are using) $ofn, creating $nfn instead";
-	$ofn = $nfn;
-} else {
-	$ofn = "$ofn.n";
-	say "using $ofn.n for output";
-}
-
-
-# do a conversion if required
-if ($convert) {
-	my ($key, $val, $action, $count, $err) = ('','',0,0,0);
-	my $ta = [gettimeofday];
-	my $ofh = IO::File->new(">$ofn") or die "cannot open $ofn ($!)\n";
-		
-	my %oldu;
-	LogDbg('',"Converting the User File from V$convert to $fn.v4 ");
-	LogDbg('',"This will take a while, maybe as much as 10 secs");
-	my $odbm = tie (%oldu, 'DB_File', localdata("users.v$convert"), O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn.v$convert ($!) [rebuild it from user_asc?]";
-	for ($action = R_FIRST; !$odbm->seq($key, $val, $action); $action = R_NEXT) {
-		my $ref;
-		if ($convert == 3) {
-			eval { $ref = storable_decode($val) };
-		}
-		else {
-			eval { $ref = asc_decode($val) };
-		}
-		unless ($@) {
-			if ($ref) {
-				unbless $ref;
-				$ofh->print("$ref->{call}\t" . $json->encode($ref) . "\n");
-				$count++;
-			}
-			else {
-				$err++
-			}
-		}
-		else {
-			Log('err', "DXUser: error decoding $@");
-		}
-	} 
-	undef $odbm;
-	untie %oldu;
-	my $t = _diffms($ta);
-	LogDbg('',"Conversion from users.v$convert to $ofn completed $count records $err errors $t mS");
-	$ofh->close;
-}
-
-exit 0;
-
-sub asc_decode
-{
-	my $s = shift;
-	my $ref;
-	$s =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
-	eval '$ref = ' . $s;
-	if ($@) {
-		LogDbg('err', "DXUser::asc_decode: on '$s' $@");
-		$ref = undef;
-	}
-	return $ref;
-}
-
-sub storable_decode
-{
-	my $ref;
-	$ref = thaw(shift);
-	return $ref;
-}
-
-sub LogDbg
-{
-	my (undef, $s) = @_;
-	say $s;
-}
-
-sub Log
-{
-	say shift;
-}