if (word(2 $loadinfo()) != [pf]) {
	load -pf $word(1 $loadinfo());
	return;
};

#	Copyright (c) 2004 BlackJac@EFNet
#
#	Version: 1.0.2004.05.24.2
#
#	This script will search through permanent or temporary klines looking
#	for matching userhosts.

package fkline;

alias fkline (args) {
	if (args) {
		@ :temp = word(0 $args) == [-temp] ? shift(args) : [];
		@ fkline.userhost = word(0 $args);
		@ fkline.counter = 0;
		^on ^216 "% K % \* % *" {
			if ([$4@$2] =~ fkline.userhost) {
				@ fkline.counter++;
				xecho -b -c   K${encode($1) == [GL] ? [ \[$7\]\: $4@$2 - $10-] : [\: $4@$2 - $5-]};
			};
		};
		^on ^219 "% K End of /STATS report" {
			xecho -b -c Total matching ${encode($1) == [GL] ? [temporary] : [permanent]} klines: $fkline.counter;
			@ fkline.counter = fkline.userhost = [];
			^on 216 -"% K % \* % *";
			^on 219 -"% K End of /STATS report";
		};
		xecho -b -c Searching for ${temp ? [temporary] : [permanent]} klines matching $fkline.userhost ...;
		quote stats ${temp ? [k] : [K]};
	} else {
		xecho -b -c /fkline [-temp] <userhost>;
	};
};