make priv 0 stick on nodes if set

diff --git a/Changes b/Changes
index e1a02d80a20923d76beee911eeca495fc76b764f..9e75c1dcdea7453d39339d3b83b4788fe80cbee5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+18Mar10=======================================================================
+1. Make privilege 0 "stick" if set on nodes
 13Mar10=======================================================================
 1. try to fix AGW crashes caused by peerhost looking at the wrong thing.
 2. Add more ax25 fixes for peerhost

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index dae0b3c75255df063bf1b9b018731c39f0b0e18a..289498ce27afdfdf1e9ff66cf3228f2c805784a1 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -294,7 +294,7 @@ sub start
        $self->{consort} = $line;
        $self->{outbound} = $sort eq 'O';
        my $priv = $user->priv;
-       $priv = $user->priv(1) unless $priv;
+       $priv = $user->priv(1) unless defined $priv;
        $self->{priv} = $priv;     # other clusters can always be 'normal' users
        $self->{lang} = $user->lang || 'en';
        $self->{isolate} = $user->{isolate};

diff --git a/perl/Version.pm b/perl/Version.pm
index f2a84ecb2c1e03ada6c88fd249c516c7fbaa4040..23e1786ebdd8efdaed09d273e789106d51d812d4 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '65';
+$build = '66';
 
 1;