From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 18 Mar 2010 20:22:19 +0000 (+0000)
Subject: make priv 0 stick on nodes if set
X-Git-Tag: 1.56~34
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f583c57eb08132eff72688c4615811647e8f82cb;p=spider.git

make priv 0 stick on nodes if set
---

diff --git a/Changes b/Changes
index e1a02d80..9e75c1dc 100644
--- 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 dae0b3c7..289498ce 100644
--- 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 f2a84ecb..23e1786e 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 = '65';
+$build = '66';
 
 1;