weechat-opal/scripts/fuckyou.pl

# 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.2';
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 fuckyou
{
	my $buffer = shift;
	my $nig = md5_hex($$ * time);

	weechat::command($buffer, "/quote $FORCEJOIN $target ${FURRY}_$nig");

	return weechat::WEECHAT_RC_OK;
}

sub cmd_fuckyou
{
	my (undef, $buffer, $data) = @_;
	my $server = weechat::buffer_get_string($buffer, 'localvar_server');
	my $amt_end;
	($target, $amt_end) = split / +/, $data;
	our ($FORCEJOIN, $FURRY) = (weechat::config_get_plugin('forcejoin'),
		weechat::config_get_plugin('furry'));

	unless ($target and $amt_end) {
		weechat::print($buffer, '/fuckyou <nick> <amt>');
		return weechat::WEECHAT_RC_OK;
	}

	$signal = weechat::hook_signal("$server,irc_raw_in_402", 'irc_402', '');
	$timer = weechat::hook_timer(50, 0, $amt_end, 'fuckyou', $buffer);

	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;
}

sub irc_402 {
	my $message = pop;

	return weechat::WEECHAT_RC_OK
		unless ($message =~ /^[^ ]* 402 [^ ]+ $target /i);
	weechat::unhook($signal);
	weechat::unhook($timer);

	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]);
	}
}