fix show/node

diff --git a/Changes b/Changes
index 9e807f66c121f9546846f495874bc2cb7dd3b0a8..ceb72454ab7702ce875207dded4b0c8e35d4b0a3 100644 (file)
--- 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 b41cd93f0bcd0575128556c775c64cd261b048d0..f8e711776d9c3ef4afdb017231593d8113641979 100644 (file)
--- 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 bb64330bc06ef9bfa33e94c5887b2fb3467f8653..829f11f7191ac5e3a07fbcac88390ef8ef95975e 100644 (file)
--- 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 (executable)
index 48ef0c0..0000000
--- 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;
-}