From ad8639433db3d682769b49665c0eefaa32f80c20 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 6 May 2008 17:09:58 +0100 Subject: [PATCH 1/1] lower 60m limit --- Changes | 2 ++ data/bands.pl | 2 +- html/program.html | 6 +++--- perl/Version.pm | 2 +- 4 files changed, 7 insertions(+), 5 deletions(-) diff --git a/Changes b/Changes index 7dfef64a..2bb8b527 100644 --- a/Changes +++ b/Changes @@ -3,6 +3,8 @@ DXUser::get*. This will break any third party addons or commands use these commands. 2. Change version to 1.55 +3. Drop the lower limit of 60m to 5100 after Dave G7RAU pointed out usage. +(see http://www.bandplans.com/index.php?band=60) 22Apr08======================================================================= 1. Added two Xmas Is calls. 15Apr08======================================================================= diff --git a/data/bands.pl b/data/bands.pl index 534f4ec2..dad639e2 100644 --- a/data/bands.pl +++ b/data/bands.pl @@ -36,7 +36,7 @@ ssb => [ 3601, 4000 ] }, 'Bands'), - '60m' => bless( { band => [ 5258, 5410], + '60m' => bless( { band => [ 5100, 5410], ssb => [5300, 5410], }, 'Bands' ), diff --git a/html/program.html b/html/program.html index f810d2ec..9b6262ec 100644 --- a/html/program.html +++ b/html/program.html @@ -232,7 +232,7 @@ return (1, $self->msg('e5')) if $self->priv < 9; foreach $call (@args) { $call = uc $call; - if ($ref = DXUser->get_current($call)) { + if ($ref = DXUser::get_current($call)) { $ref->passwd($pass); $ref->put(); push @out, $self->msg("password", $call); @@ -303,11 +303,11 @@ return (1, @out)

  • It is important that you remember when you have tie hashes using MLDBM et al. If you do a - DXUser->get($call) you will get a different (older) + DXUser::get($call) you will get a different (older) thing than the one in $self->user. This is almost certainly NOT what you want if want to modify a user that is currently connected. Either use $self->user or, if - you want another user, use DXUser->get_current($call) + you want another user, use DXUser::get_current($call)

  • If you want to debug something, start the cluster.pl up thus:-
    diff --git a/perl/Version.pm b/perl/Version.pm
    index e7668d52..9e7e4a41 100644
    --- a/perl/Version.pm
    +++ b/perl/Version.pm
    @@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
     
     $version = '1.55';
     $subversion = '0';
    -$build = '2';
    +$build = '3';
     
     1;
    -- 
    2.43.0