]> dxcluster.org Git - spider.git/blob - cmd/unset/logininfo.pl
make it (seem to) work under perl 5.10
[spider.git] / cmd / unset / logininfo.pl
1 #
2 # unset the logininfo option for users
3 #
4 # Copyright (c) 1999 Dirk Koopman G1TLH
5 #
6 #
7 #
8 my $self = shift;
9 $self->user->wantlogininfo(0);
10 $self->logininfo(0);
11 return (1, $self->msg('ok'));
12