X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQXProt.pm;fp=perl%2FQXProt.pm;h=8ab1f4c66ff091e67c8fa9d3a9d06eab317b74d4;hb=70dbd742db4241e97496db69e89160ec573a5949;hp=fd945ce1a2320a13c7b826d47e849a1f44aaee4f;hpb=b00e85c55392ddf0593b681d7187e4c4e158568e;p=spider.git

diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index fd945ce1..8ab1f4c6 100644
--- a/perl/QXProt.pm
+++ b/perl/QXProt.pm
@@ -163,20 +163,20 @@ sub handleI
 	my $self = shift;
 	
 	my @f = split /\^/, $_[2];
-	my $inv = Verify->new($f[7]);
-	unless ($inv->verify($f[8], $main::me->user->passphrase, $main::mycall, $self->call)) {
+	my $inv = Verify->new($f[8]);
+	unless ($inv->verify($f[9], $main::me->user->passphrase, $main::mycall, $self->call)) {
 		$self->sendnow('D','Sorry...');
 		$self->disconnect;
 	}
 	if ($self->{outbound}) {
 		$self->send($self->genI);
 	} 
-	if ($self->{sort} ne 'S' && $f[4] eq 'DXSpider') {
+	if ($self->{sort} ne 'S' && $f[5] eq 'DXSpider') {
 		$self->{user}->{sort} = $self->{sort} = 'S';
 		$self->{user}->{priv} = $self->{priv} = 1 unless $self->{priv};
 	}
-	$self->{version} = $f[5];
-	$self->{build} = $f[6];
+	$self->{version} = $f[6];
+	$self->{build} = $f[7];
 	$self->state('init1');
 	$self->{lastping} = 0;
 }