hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix echoing (?)

Browse Source
This commit is contained in:
Dirk Koopman 2011-12-22 23:02:35 +00:00
parent 6e858487b4
commit bb0a21bec3
3 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cmd/set/echo.pl
View File

@ -6,6 +6,6 @@
#
#
my $self = shift;
$self->send_now("E", "1");
$self->conn->echo(1);
$self->user->wantecho(1);
return (1, $self->msg('echoon'));

1
cmd/unset/echo.pl
View File

@ -7,5 +7,6 @@
#
my $self = shift;
$self->send_now("E", "0");
$self->conn->echo(0);
$self->user->wantecho(0);
return (1, $self->msg('echooff'));

6
perl/Msg.pm
View File

@ -466,6 +466,12 @@ sub set_event_handler
dbg("Msg::set_event_handler called from ${pkg}::${fn} line $line doing $s");
}
sub echo
{
my $conn = shift;
return defined $_[0] ? $conn->{echo} = $_[0] : $_[0];
}
sub DESTROY
{
my $conn = shift;