use AnnTalk;
use WCY;
use Sun;
-use DB_File;
use strict;
use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase);
{
my ($self, $from, $to, $via, $line) = @_;
$line =~ s/\\5E/\^/g;
- $self->send("$to de $from $line") if $self->{talk};
+ $self->send("$to de $from: $line") if $self->{talk};
Log('talk', $to, $from, $main::mycall, $line);
}