projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add prototype UDP handler
[spider.git]
/
perl
/
QXProt.pm
diff --git
a/perl/QXProt.pm
b/perl/QXProt.pm
index fd945ce1a2320a13c7b826d47e849a1f44aaee4f..8ab1f4c66ff091e67c8fa9d3a9d06eab317b74d4 100644
(file)
--- a/
perl/QXProt.pm
+++ b/
perl/QXProt.pm
@@
-163,20
+163,20
@@
sub handleI
my $self = shift;
my @f = split /\^/, $_[2];
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);
}
$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->{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;
}
$self->state('init1');
$self->{lastping} = 0;
}