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


on ftpNews (htmltext, adrimages) {
		<<6/20/09; 12:44:36 PM by DW
			<<Created. Kind of a klooge, but this is just for testing and publicity. I don't think users are going to use this. Note: You only have to enable it when one of the images changes, otherwise you can leave it disabled.
	local (adrdata = river2suite.init ());
	if adrdata^.prefs.ftp.enabled {
		local (server = adrdata^.prefs.ftp.server);
		local (username = adrdata^.prefs.ftp.username);
		local (password = adrdata^.prefs.ftp.password);
		local (path = adrdata^.prefs.ftp.path, imagespath, adr);
		local (connection = tcp.ftp.openConnection (server, username, password));
		tcp.ftp.writefile (connection, htmltext, path);
		bundle { //set imagespath
			local (i);
			imagespath = path;
			for i = sizeof (imagespath) downto 1 {
				if imagespath [i] == "/" {
					imagespath = string.mid (imagespath, 1, i) + "images/";
		for adr in adrimages {
			local (fpath = imagespath + nameof (adr^));
			tcp.ftp.writefile (connection, string (adr^^), fpath)};
		tcp.ftp.closeConnection (connection)}};
bundle { //test code
	window.about ();
	ftpNews (string (scratchpad.htmltext), @scratchpad.viewNewsParams.river2images)}

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.