X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=8b71dbff499d7946a83378b2938f6c54f6ea41c4;hb=refs%2Ftags%2FR_1_43;hp=2758e64dd3a1f8c54fd65998fbee065ee2f6a51a;hpb=3761cb3e0997a63ca4611f0c684474dd9bc80c9a;p=spider.git diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 2758e64d..8b71dbff 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -86,6 +86,7 @@ use vars qw(%channels %valid); pingtime => '5,Ping totaltime,parray', pingave => '0,Ping ave time', logininfo => '9,Login info req,yesno', + talklist => '0,Talk List,parray', ); # object destruction @@ -361,7 +362,7 @@ sub state dbg('state', "$self->{call} channel func $self->{func} state $self->{oldstate} -> $self->{state}\n"); # if there is any queued up broadcasts then splurge them out here - if ($self->{delayed} && ($self->{state} eq 'prompt' || $self->{state} eq 'convers')) { + if ($self->{delayed} && ($self->{state} eq 'prompt' || $self->{state} eq 'talk')) { $self->send (@{$self->{delayed}}); delete $self->{delayed}; }