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


on newMediaObject (name, type, bits, username=nil, password=nil, blogId=nil, {
		<<1/31/08; 2:27:55 PM by DW
			<<Created. New glue for MetaWeblog API call, tested with
	local (url, struct);
	metaWeblog.init ();
	bundle { //set defaults
		if username == nil {
			username = user.metaWeblog.username};
		if password == nil {
			password = string (user.metaWeblog.password)};
		if blogId == nil {
			blogId = user.metaWeblog.blogId}};
	bundle { //set up struct
		new (tabletype, @struct); = name;
		struct.type = type;
		struct.bits = bits};
	url = "xmlrpc://" + adrdata^.server + ":" + adrdata^.port + adrdata^.rpcPath;
	return ([url].metaWeblog.newMediaObject (string (blogid), username, password, struct))}
<<bundle //test code
	<<local (bits = file.readwholefile ("Macintosh HD:tmp.jpg"))
	<<scratchpad.mediaresult = metaweblog.newmediaobject ("tmp.jpg", "image/jpeg", bits, user.wordPress.blogs.default.username, user.wordPress.blogs.default.password, 1)

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.