]> scm.dxcluster.org Git - spider.git/blob - cmd/set/beep.pl
mojoise sh/wm7d
[spider.git] / cmd / set / beep.pl
1 #
2 # set beeps
3 #
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
5 #
6 #
7 #
8 my $self = shift;
9 $self->beep(1);
10 $self->user->wantbeep(1);
11 return (1, $self->msg('beepon'));