Monday, November 08, 2010 at 12:00 AM.


<<fetch a file via ftp into "destFile"
on fetch (destFile, hostName = nil, searchPath, fname = nil, user = nil, password = nil, viaAlex = nil, expandWith = nil, binary=nil) {
	case (typeof(searchPath)) {
		recordType {
			with anarchie, eventInfo {
				fname = searchPath[1];
				hostName = searchPath[host];
				searchPath = searchPath[path] + fname}}; << use full path
		listType {
			for i = 1 to sizeof(searchPath) {
				anarchie.fetch(destFile, hostName, searchPath[i], fname, user, password, viaAlex, expandWith, binary)}}};
	return (appleEvent (, 'Arch', 'Ftch', '----', filespec (destFile), 'FTPh', string (hostName), 'FTPc', string (searchPath),  'pnam', string (fname), 'ArGU', string (user), 'ArGp', string (password), 'ArGA', string (viaAlex),  'ArGE', string4 (expandWith), 'ArGB', boolean(binary)))}

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.