projects
/
spider.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
constrain broadcasting back to oneself
[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