]> scm.dxcluster.org Git - spider.git/blob - cmd/unset/email.pl
mojoise sh/wm7d
[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 #
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