From c2c4b7229169bd9dfb364e7fd2c6b40a233216da Mon Sep 17 00:00:00 2001 From: pdbogen Date: Mon, 7 Apr 2008 19:18:46 +0000 Subject: [PATCH] Allow users across a bridge to receive memos, albeit over public chat. git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@44 088b83a4-0077-4247-935c-42ec02c2848b --- irc.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/irc.pl b/irc.pl index 53fb058..b8d786d 100644 --- a/irc.pl +++ b/irc.pl @@ -169,11 +169,13 @@ sub on_connect { sub on_public { my( $kernel, $who, $msg, $dest ) = @_[ KERNEL, ARG0, ARG2, ARG1 ]; + my $bridged = 0; my $self = $_[HEAP]->{ "self" }; my $nick = $self->{ "nick" }; $who = (split( /!/, $who, 2 ))[0]; $msg =~ s/^$nick[ ,:]+/~/i; if( $who eq "a" || $who eq "ae" ) { + $bridged = 1; # Strip source tag $msg =~ s/^\[[^\]]*\] +//g; @@ -185,7 +187,11 @@ sub on_public { $msg =~ s/(\x3)[0-9]{0,2}//g; $msg =~ s/\x02//g; $cmd = ( split( / /, $msg, 2 ) )[0]; - $kernel->post( "core", "seen", $who, $msg, $self->{ "ssid" }, $who, "send_private" ); + if( $bridged ) { + $kernel->post( "core", "seen", $who, $msg, $self->{ "ssid" }, $dest->[0], "send_public_to" ); + } else { + $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" ); } elsif( $msg =~ m!(http://[^[:space:]]+)!i && $self->{ "trap" } == 1 && length($1) >= 30 ) { -- 2.11.0