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

#	Copyright (c) 2004 BlackJac@EFNet
#
#	Version: 1.0.2004.05.24.1
#
#	This script will search through permanent or temporary dlines looking
#	for matching IP addresses.

package fdline;

alias fdline (args) {
	if (args) {
		@ :temp = word(0 $args) == [-temp] ? shift(args) : [];
		@ fdline.ip = word(0 $args);
		@ fdline.counter = 0;
		^on ^219 "% D End of /STATS report" {
			xecho -b -c Total matching ${encode($1) == [GE] ? [temporary] : [permanent]} dlines: $fdline.counter;
			@ fdline.counter = fdline.ip = [];
			^on 219 -"% D End of /STATS report";
			^on 225 -"% D % *";
		};
		^on ^225 "% D % *" {
			if ([$2] =~ fdline.ip) {
				@ fdline.counter++;
				xecho -b -c   D${encode($1) == [GE] ? [ \[$5\]\: $2 - $8-] : [\: $2 - $3-]};
			};
		};
		xecho -b -c Searching for ${temp ? [temporary] : [permanent]} dlines matching $fdline.ip ...;
		quote stats ${temp ? [d] : [D]};
	} else {
		xecho -b -c /fdline [-temp] <ip>;
	};
};