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

---

system.verbs.apps.Fetch.store

on store (file, host = nil, path = nil, user = nil, password = nil, url = nil) { <<store a file to an ftp site
	<<tweaked by DW 12/7/95
		<<Instead of returning an error code, we just return true or false and store the error code in
		<<Fetch.data.errorcode. If you really need to look at it, check that value out after we 
		<<return false. Most scripts only need to know if the file actually got transferred.
	local (errcode);
	errcode = appleEvent (Fetch.id, 'Arch', 'Stor', '----', alias (file), 'FTPh', string (host), 'FTPc', string (path), 'ArGU', string (user), 'ArGp', string (password), 'ArUR', string (url));
	Fetch.data.errorcode = errcode;
	return (errcode == 0)}

---

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.