From bea2d5918cc83eb92a5893cb9fbb83741c1644a8 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 11 Jul 2002 18:30:50 +0000
Subject: [PATCH] get the basic QX01 handling working in the out direction

---
 perl/DXProt.pm |  2 ++
 perl/QXProt.pm | 20 ++++++++++----------
 2 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 750b8883..0bd23a7e 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1914,6 +1914,8 @@ sub broadcast_route
 		foreach $dxchan (@dxchan) {
 			next if $dxchan == $self;
 			next if $dxchan == $main::me;
+			next if $dxchan->user->wantnp;
+			
 			$dxchan->send_route($generate, @_);
 		}
 	}
diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index b277e3bd..d3b4d742 100644
--- a/perl/QXProt.pm
+++ b/perl/QXProt.pm
@@ -79,12 +79,12 @@ sub normal
 	my ($id, $fromnode, $msgid, $incs);
 	return unless ($id, $fromnode, $msgid, $incs) = $_[1] =~ /^QX(\d\d)\^([-A-Z0-9]+)\^([0-9A-F]{1,4})\^.*\^([0-9A-F]{2})$/;
 
+	$msgid = hex $msgid;
 	my $noderef = Route::Node::get($fromnode);
 	$noderef = Route::Node::new($fromnode) unless $noderef;
-	my $user = DXChannel->get_current($fromnode);
 
 	my $il = length $incs; 
-	my $cs = sprintf("%02X", unpack("%32C*", substr($_[1], 0, length($_[1]) - ($il+1))));
+	my $cs = sprintf("%02X", unpack("%32C*", substr($_[1], 0, length($_[1]) - ($il+1))) & 255);
 	if ($incs ne $cs) {
 		dbg("QXPROT: Checksum fail in: $incs ne calc: $cs" ) if isdbg('chanerr');
 		return;
@@ -102,7 +102,7 @@ sub handle
 	my $self = shift;
 	my $id = 0 + shift;
 	my $sub = "handle$id";
-	$self->$sub($self, @_) if $self->can($sub);
+	$self->$sub(@_) if $self->can($sub);
 	return;
 }
 
@@ -112,7 +112,7 @@ sub gen
 	my $self = shift;
 	my $id = 0 + shift;
 	my $sub = "gen$id";
-	$self->$sub($self, @_) if $self->can($sub);
+	$self->$sub(@_) if $self->can($sub);
 	return;
 }
 
@@ -162,20 +162,20 @@ sub handle1
 	my $self = shift;
 	
 	my @f = split /\^/, $_[2];
-	my $inv = Verify->new($f[5]);
-	unless ($inv->verify($main::me->user->passphrase, $f[6], $main::mycall, $self->call)) {
+	my $inv = Verify->new($f[7]);
+	unless ($inv->verify($f[8], $main::me->user->passphrase, $main::mycall, $self->call)) {
 		$self->sendnow('D','Sorry...');
 		$self->disconnect;
 	}
 	if ($self->{outbound}) {
 		$self->send($self->gen1);
 	} 
-	if ($self->{sort} ne 'S' && $f[2] eq 'DXSpider') {
+	if ($self->{sort} ne 'S' && $f[4] eq 'DXSpider') {
 		$self->{user}->{sort} = $self->{sort} = 'S';
 		$self->{user}->{priv} = $self->{priv} = 1 unless $self->{priv};
 	}
-	$self->{version} = $f[3];
-	$self->{build} = $f[4];
+	$self->{version} = $f[5];
+	$self->{build} = $f[6];
 	$self->state('normal');
 	$self->{lastping} = 0;
 }
@@ -184,7 +184,7 @@ sub gen1
 {
 	my $self = shift;
 	my $inp = Verify->new;
-	return frame(1, 1, "DXSpider", $main::version + 53, $main::build, $inp->challenge, $inp->response($self->user->passphrase, $self->call, $main::mycall));
+	return frame(1, 1, "DXSpider", ($main::version + 53) * 100, $main::build, $inp->challenge, $inp->response($self->user->passphrase, $self->call, $main::mycall));
 }
 
 sub handle2
-- 
2.43.0