]> scm.dxcluster.org Git - spider.git/blob - cmd/unset/prompt.pl
mojoise sh/wm7d
[spider.git] / cmd / unset / prompt.pl
1 #
2 # unset the prompt of the user
3 #
4 # Copyright (c) 2001 - Dirk Koopman
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         delete $user->{prompt};
16         delete $self->{prompt};
17         $user->put();
18         return (1, $self->msg('pru', $line));
19 } else {
20         return (1, $self->msg('namee2', $call));
21 }
22