]> dxcluster.net Git - spider.git/blob - cmd/privilege.pl
add some more debugging
[spider.git] / cmd / privilege.pl
1 #
2 # check the privilege of the user is at least n
3 #
4 # Copyright (c) 1998 Dirk Koopman G1TLH
5 #
6 # $Id$
7 #
8
9 my ($self, $line) = @_;
10 my @out;
11 $line = '1' unless defined $line;
12 push @out, $self->msg('e5') unless $line =~ /^\d+$/ && $self->priv >= $line;
13 return (1, @out);
14