ported fuckyou.pl to weechat

2016-08-18 04:20:33 +00:00 · 2016-08-18 04:20:33 +00:00 · 5e3043af76
commit 5e3043af76
parent c05ec219e6
1 changed files with 148 additions and 0 deletions
--- a/scripts/fuckyou.pl
+++ b/scripts/fuckyou.pl
@ -0,0 +1,148 @@
+# Ported from irssi to WeeChat by the Krusty Krab
+
+use Time::HiRes qw(time);
+use Digest::MD5 qw(md5_hex);
+
+
+#__        ___    ____  _   _ ___ _   _  ____   _   _ ____ ___ _   _  ____ 
+#\ \      / / \  |  _ \| \ | |_ _| \ | |/ ___| | | | / ___|_ _| \ | |/ ___|
+# \ \ /\ / / _ \ | |_) |  \| || ||  \| | |  _  | | | \___ \| ||  \| | |  _ 
+#  \ V  V / ___ \|  _ <| |\  || || |\  | |_| | | |_| |___) | || |\  | |_| |
+#   \_/\_/_/   \_\_| \_\_| \_|___|_| \_|\____|  \___/|____/___|_| \_|\____|
+#                                                                          
+# _____ _   _ _____ ____  _____   ____   ____ ____  ___ ____ _____ ____  
+#|_   _| | | | ____/ ___|| ____| / ___| / ___|  _ \|_ _|  _ \_   _/ ___| 
+#  | | | |_| |  _| \___ \|  _|   \___ \| |   | |_) || || |_) || | \___ \ 
+#  | | |  _  | |___ ___) | |___   ___) | |___|  _ < | ||  __/ | |  ___) |
+#  |_| |_| |_|_____|____/|_____| |____/ \____|_| \_\___|_|    |_| |____/ 
+#                                                                        
+# __  __    _ __   __  ____  _____    _    _     _  __   __
+#|  \/  |  / \\ \ / / |  _ \| ____|  / \  | |   | | \ \ / /
+#| |\/| | / _ \\ V /  | |_) |  _|   / _ \ | |   | |  \ \// 
+#| |  | |/ ___ \| |   |  _ <| |___ / ___ \| |___| |___| |  
+#|_|  |_/_/   \_\_|   |_| \_\_____/_/   \_\_____|_____|_|  
+#                                                          
+# _____ _   _  ____ _  _____ _   _  ____      _    _   _ _   _  _____   __
+#|  ___| | | |/ ___| |/ /_ _| \ | |/ ___|    / \  | \ | | \ | |/ _ \ \ / /
+#| |_  | | | | |   | ' / | ||  \| | |  _    / _ \ |  \| |  \| | | | \ V / 
+#|  _| | |_| | |___| . \ | || |\  | |_| |  / ___ \| |\  | |\  | |_| || |  
+#|_|    \___/ \____|_|\_\___|_| \_|\____| /_/   \_\_| \_|_| \_|\___/ |_|  
+#                                                                         
+#__   _____  _   _ ____    _   _ ____  _____ ____  ____  
+#\ \ / / _ \| | | |  _ \  | | | / ___|| ____|  _ \/ ___| 
+# \ V / | | | | | | |_) | | | | \___ \|  _| | |_) \___ \ 
+#  | || |_| | |_| |  _ <  | |_| |___) | |___|  _ < ___) |
+#  |_| \___/ \___/|_| \_\  \___/|____/|_____|_| \_\____/ 
+
+
+my $SCRIPT_NAME = 'fuckyou';
+my $SCRIPT_AUTHOR = 'Goat-See <mrtheplague@gmail.com>';
+my $SCRIPT_VERSION = '2.1';
+my $SCRIPT_LICENCE = 'urmom';
+my $SCRIPT_DESC = '/fuckyou NICK numberchannels';
+
+my %OPTIONS = (
+	forcejoin => ['Command to forcejoin. ratbox uses forcejoin, unreal sajoin',
+		'forcejoin'],
+	forcepart => ['Command to forcepart. ratbox uses forcepart, unreal sapart',
+		'forcepart'],
+	furry => ['Channel prefix (include # or &)', '&HYE']
+	);
+
+sub cmd_fuckyou
+{
+	my (undef, $buffer, $data) = @_;
+	my $server = weechat::buffer_get_string($buffer, 'localvar_server');
+	my ($nick, $amt_end) = split(/ +/, $data);
+	my $FORCEJOIN = weechat::config_get_plugin('forcejoin');
+	my $FURRY = weechat::config_get_plugin('furry');
+	unless($nick && $amt_end)
+	{
+		weechat::print($buffer, '/fuckyou <nick> <amt>');
+		return weechat::WEECHAT_RC_OK;
+	}
+
+	for(1 .. $amt_end)
+	{
+		my $nig = md5_hex($$ * time * $_);
+		weechat::command('', "/quote $FORCEJOIN $nick ${FURRY}_$nig");
+	}
+	return weechat::WEECHAT_RC_OK;
+}
+
+sub cmd_unfuckyou
+{
+	my (undef, $buffer, $data) = @_;
+	my ($server, $channel) = (
+		weechat::buffer_get_string($buffer, 'localvar_server'),
+		weechat::buffer_get_string($buffer, 'localvar_channel')
+		);
+	unless ($data) {
+		weechat::print($buffer, '/unfuckyou user user2 user3');
+		return weechat::WEECHAT_RC_OK;
+	}
+	foreach my $dick (split(/ +/, $data))
+	{
+		weechat::hook_hsignal_send(
+			'irc_redirect_command',
+			{
+				server => "$server",
+				pattern => "whois",
+				signal => "sigwhois"
+			});
+		weechat::hook_signal_send(
+			'irc_input_send',
+			weechat::WEECHAT_HOOK_SIGNAL_STRING,
+			"$server;;1;;/whois $dick"
+			);
+	}
+	return weechat::WEECHAT_RC_OK;
+}
+
+sub event_whois_channels
+{
+	my %hashtable = %{$_[2]};
+	my $FORCEPART = weechat::config_get_plugin('forcepart');
+	my $FURRY = weechat::config_get_plugin('furry');
+	my $counter = 0;
+	my ($nick, $channels);
+
+	for (split /^/, $hashtable{output}) {
+		if (/^:[^ ]* 319 [^ ]+ ([^ ]+) :(.*)$/) {
+			($nick, $channels) = ($1, $2);
+		} else { next; }
+
+		$channels =~ s/ +$//;
+
+		my @niggers = split(/ +/, $channels);
+		foreach (@niggers)
+		{
+			s/^[@%+]([&#])/$1/;
+			if(/${FURRY}_[a-f0-9]+/i)
+			{
+				#Irssi::print("Forceparting $nick from $_");
+				weechat::command('', "/quote $FORCEPART $nick $_");
+				++$counter;
+			}
+		}
+	}
+	weechat::print('', "Forceparted $nick from $counter channels")
+		if $counter;
+	return weechat::WEECHAT_RC_OK;
+}
+
+if (weechat::register($SCRIPT_NAME, $SCRIPT_AUTHOR, $SCRIPT_VERSION,
+ $SCRIPT_LICENCE, $SCRIPT_DESC, '', '')) {
+	weechat::hook_command('fuckyou', '', '<nick> <amt>', '', '',
+		'cmd_fuckyou', '');
+	weechat::hook_command('unfuckyou', '', '<nick> [nick...]', '', '',
+		'cmd_unfuckyou', '');
+	weechat::hook_hsignal('irc_redirection_sigwhois_whois',
+		'event_whois_channels', '');
+
+	for my $option (keys %OPTIONS) {
+		weechat::config_set_plugin($option, $OPTIONS{$option}[1])
+		 unless weechat::config_is_set_plugin($option);
+		weechat::config_set_desc_plugin($option, $OPTIONS{$option}[0]);
+	}
+}