# this does not exist as default, you need to create it manually
#
-use vars qw($VERSION $BRANCH);
-($VERSION, $BRANCH) = dxver(q$Revision$);
-
#
# obtain a new connection this is derived from dxchannel
#
# send a talk message here
sub talk
{
- my ($self, $from, $to, $via, $line) = @_;
+ my ($self, $from, $to, $via, $line, $onode) = @_;
$line =~ s/\\5E/\^/g;
if ($self->{talk}) {
if ($self->{gtk}) {
$self->local_send('T', "$to de $from: $line");
}
}
- Log('talk', $to, $from, $via?$via:$main::mycall, $line);
+ Log('talk', $to, $from, '<' . ($onode || '*'), $line);
# send a 'not here' message if required
unless ($self->{here} && $from ne $to) {
my $key = "$to$from";