$heap->{ 'seen' } = { };
}
$heap->{ 'seen' }->{ uc( $who ) } = time;
+ if( exists( $heap->{ 'memo' } ) && exists( $heap->{ 'memo' }->{ uc( $who ) } ) ) {
+ $kernel->yield( "cmd", $who, "CHECKMEMO", $_[ARG2], $_[ARG3], $_[ARG4] );
+ }
}
sub on_start {
$msg =~ s/(\x3)[0-9]{0,2}//g;
$msg =~ s/\x02//g;
$cmd = ( split( / /, $msg, 2 ) )[0];
- $kernel->post( "core", "seen", $who );
+ $kernel->post( "core", "seen", $who, $msg, $self->{ "ssid" }, $who, "send_private" );
if( $cmd =~ /^[~].*/ ) {
$kernel->post( "core", "cmd", $who, $msg, $self->{ "ssid" }, $dest->[0], "send_public_to" );
}