]> dxcluster.net Git - spider.git/blob - cmd/unset/email.pl
improve speed of sh/c/n (a bit)[probably].
[spider.git] / cmd / unset / email.pl
1 #
2 # unset the email address  of the user
3 #
4 # Copyright (c) 2001 - Dirk Koopman G1TLH
5 #
6 # $Id$
7 #
8
9 my ($self, $line) = @_;
10 my $call = $self->call;
11 my $user;
12
13 $user = DXUser->get_current($call);
14 if ($user) {
15         $user->wantemail(0);
16         $user->put();
17         return (1, $self->msg('emaila', $line));
18 } else {
19         return (1, $self->msg('namee2', $call));
20 }
21