1# $File: //depot/libOurNet/BBS/lib/OurNet/BBS/MELIX/User.pm $ $Author: autrijus $ 2# $Revision: #2 $ $Change: 3792 $ $DateTime: 2003/01/24 19:34:06 $ 3 4package OurNet::BBS::MELIX::User; 5 6use strict; 7no warnings 'deprecated'; 8use base qw/OurNet::BBS::MAPLE3::User/; 9use fields qw/_ego _hash/; 10use subs qw/readok writeok has_perm/; 11use OurNet::BBS::Base; 12 13sub writeok { 0 } 14sub readok { 1 } 15 16sub has_perm { 17 no strict 'refs'; 18 return $_[0]->{userlevel} & &{$_[1]}; 19} 20 211; 22