Tuesday, August 18, 2009 at 7:56 PM.

---

myCamSuite.captureImage

on captureImage () {
	<<Changes
		<<4/29/09; 11:42:40 AM by DW
			<<Created. 
	return;
	local (f = "Macintosh HD:camAgent:image.jpg");
	msg ("Capturing image...");
	sys.unixshellcommand ("/camAgent/isightcapture /camAgent/image.jpg");
	local (imgbits = file.readwholefile (f));
	msg ("Uploading image...");
	s3.newobject ("/images.scripting.com/officeCam/cam.jpg", imgbits);
	myCamData.prefs.ct++;
	msg ("")};
bundle { //test code
	captureImage ()}

---

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.