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

#	Copyright (c) 2004 BlackJac@EFNet
#
#	Version: 1.2.2005.03.04.1
#
#	This script will log URLs mentioned publically in your channels.

package urlgrab;

# Watch for these URLs in your channels (leave a space between each word):
assign URLGRAB_LIST ftp. ftp:// http:// https:// www.;

# Set this to the directory where urlgrab should store its log files:
assign URLGRAB_LOGDIR ~/logs;

fe (public public_other) uu {
	^on #-$uu 4 '% % *\\\\[$$URLGRAB_LIST\\\\]*' {
		fe ($URLGRAB_LIST) uu {
			push :pattern $pattern($uu% $*);
		};
		if (fexist($URLGRAB_LOGDIR) != 1) {
			@ mkdir($URLGRAB_LOGDIR);
		};
		fe ($pattern) vv {
			if (:open = open($URLGRAB_LOGDIR/urlgrab W)) {
				@ write($open $0 \($1\) - $vv);
				@ close($open);
			};
		};
	};
};