From 0957a2bd876a8494f57557356afc728ac7864155 Mon Sep 17 00:00:00 2001
From: wowaname <wowaname@volatile.ch>
Date: Thu, 2 Feb 2017 07:09:15 +0000
Subject: [PATCH] parrot.pl

---
 scripts/parrot.pl | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/scripts/parrot.pl b/scripts/parrot.pl
index 6024d6a..b479967 100644
--- a/scripts/parrot.pl
+++ b/scripts/parrot.pl
@@ -55,6 +55,7 @@ sub sendto
 sub add_relay
 {
 	my ($groupname, $server, $channel, $flags) = @_;
+	return if exists $cbs{$server};
 	push @{ $chans{$server}{$channel} }, $groupname;
 	$groups{$groupname}{$server}{$channel} = $flags;
 	$cbs{$server}{PRIVMSG} =
@@ -126,7 +127,7 @@ sub irc_privmsg_notice
 			sendto($to_serv, "/msg $to_chan * \x02$nick\x0f $message");
 			next;
 		}
-		my $prefix = $cmd eq 'notice' ? "[\x02$nick\x0f]" : "<\x02$nick\x0f>";
+		my $prefix = lc $cmd eq 'notice' ? "[\x02$nick\x0f]" : "<\x02$nick\x0f>";
 		sendto($to_serv, "/msg $to_chan $prefix $message");
 	}
 
@@ -145,7 +146,7 @@ sub ircout_privmsg_notice
 		my ($to_serv, $to_chan, $flags, undef) = @$_;
 		next if $flags & $READ;
 		next unless weechat::buffer_search('irc', "$to_serv.$to_chan");
-		my $prefix = $cmd eq 'notice' ? 'notice' : 'msg';
+		my $prefix = lc $cmd eq 'notice' ? 'notice' : 'msg';
 		if ($message =~ /^\x01ACTION /i) {
 			$message =~ s/^\x01ACTION |\x01$//g;
 			sendto($to_serv, "/$prefix $to_chan \x01ACTION $message\x01");
@@ -223,7 +224,6 @@ sub irc_nick
 	for my $channel (keys %{ $chans{$server} }) {
 	my $iptr = weechat::infolist_get('irc_nick', '', "$server,$channel,$nick");
 	next unless $iptr;
-	weechat::print('',$iptr);
 	weechat::infolist_free($iptr);
 	for (getgroup($server, $channel)) {
 		my ($to_serv, $to_chan, $flags, undef) = @$_;
@@ -243,6 +243,10 @@ sub irc_quit
 		shift =~ /:([^! ]*)[^ ]* quit :?(.*)/i);
 
 	for my $channel (keys %{ $chans{$server} }) {
+	my $iptr = weechat::infolist_get('irc_nick', '', "$server,$channel,$nick");
+	next unless $iptr;
+	weechat::print('',$iptr);
+	weechat::infolist_free($iptr);
 	for (getgroup($server, $channel)) {
 		my ($to_serv, $to_chan, $flags, undef) = @$_;
 		next unless $flags & $STAT;
@@ -347,9 +351,18 @@ sub cmd_parrot
 	return weechat::WEECHAT_RC_OK;
 }
 
+sub completion_groupnames
+{
+	my $completion = pop;
+	weechat::hook_completion_list_add($completion, $_, 0,
+		weechat::WEECHAT_LIST_POS_SORT) for keys %groups;
+}
+
 if (weechat::register($SCRIPT_NAME, $SCRIPT_AUTHOR, $SCRIPT_VERSION,
  $SCRIPT_LICENCE, $SCRIPT_DESC, '', '')) {
 	$confpath = weechat::info_get('weechat_dir', '') . '/parrot.db';
+	weechat::hook_completion('perl_parrot_groupname', 'parrot.pl group names',
+		'completion_groupnames', '');
 	weechat::hook_command('parrot', $SCRIPT_DESC,
 		"[-read] [-stat] [-mode] groupname\n".
 		"-remove",
@@ -359,6 +372,8 @@ if (weechat::register($SCRIPT_NAME, $SCRIPT_AUTHOR, $SCRIPT_VERSION,
 		"-mode: transfer modes to this channel, even if you are op".
 		"groupname: all channels with the same group name are relayed together\n".
 		"-remove: remove this channel from the relay group",
-		 '', 'cmd_parrot', '');
+		'-remove %(perl_parrot_groupname) %-'.
+		'||-read|-stat|-mode|%(perl_parrot_groupname)|%*',
+		'cmd_parrot', '');
 	read_conf();
 }