fix passwd

[spider.git] / perl / QXProt.pm

diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index 38d878ed3b73be1ffcac23e0807a319219af0952..10ad4aa47498bee27e518f7e669875220dcfdcba 100644 (file)
--- a/perl/QXProt.pm
+++ b/perl/QXProt.pm
@@ -163,7 +163,7 @@ sub handleI
        my $self = shift;
        
        my @f = split /\^/, $_[3];
-       if ($self->passphrase && $f[7] && $f[8]) {
+       if ($self->user->passphrase && $f[7] && $f[8]) {
                my $inv = Verify->new($f[7]);
                unless ($inv->verify($f[8], $main::me->user->passphrase, $main::mycall, $self->call)) {
                        $self->sendnow('D','Sorry...');