Close IRC PM Dialog/Window By Name, perl script 02 - originally developped by culb (nightfrog)

close_specific_02.pl

#Author culb ( nightfrog )
#Description:
#Close a PM dialog by name
#
#Version: 1

# This paragraph (with 4 lines) of comments are added here by tErik.
# These codes were shared by user nightfrog, on Apr 29, 2014 around 23:45
# UTC-08:00, in #xchat irc channel at irc.freenode.net, with user tErik.
# Actually it is now version 1.01

use strict;
use warnings;
use Xchat qw(:all);

hook_command( 'CLOSEPM',
	sub{
		# Don't be greedy
		if ( $_[0][2] ){
			prnt "One NICK at a time. /closepm NICK";
			return EAT_XCHAT;
		}

                if ( not $_[0][1] ){
                        prnt "Need a NICK. /closepm NICK";
                        return EAT_XCHAT;
                }
		
		my $person = $_[0][1];
		my $context = get_info 'context';

		for my $var ( get_list( 'channels' ) ) {
			# Be safe. Only Dialogs
			if ( $var->{ type } == 3 and lc $var->{channel} eq lc $person ){
				command 'CLOSE', $var->{ channel }, $var->{ network };
			}
		}
		
		set_context $context;
		return EAT_XCHAT;
	}
);

register( 'Close Dialog', 1, 'Close a dialog by name' );