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

---

system.verbs.builtins.radio.backup.restore

on restore (backupFolder) {
	<<Changes
		<<1/14/03; 3:04:56 PM by JES
			<<When reading prefs tables, use table.xmlToTable instead of unpacking from a fat page.
		<<12/2/02; 12:49:12 PM by JES
			<<Added a call to radio.backup.restoreTemplates.
		<<11/26/02; 10:14:18 PM by JES
			<<Created.
	on readFile (partialpath) {
		if backupFolder beginsWith "http://" {
			return (tcp.httpReadUrl (backupFolder + partialpath))}
		else { //read from local filesystem
			local (f = backupFolder + string.replaceAll (partialPath, "/", file.getPathChar ()));
			return (file.readWholeFile (f))}};
	on importObject (partialpath) {
		if backupFolder beginsWith "http://" {
			table.xmlToTable (tcp.httpReadUrl (backupFolder + partialPath))}
		else { //read from local filesystem
			local (f = backupFolder + string.replaceAll (partialPath, "/", file.getPathChar ()));
			table.xmlToTable (file.readWholeFile (f))}};
		<<bundle //old .fttb-based importer
			<<local (filedata)
			<<if backupFolder beginsWith "http://"
				<<fatPages.getHttp (backupFolder + partialpath)
			<<else //read from local filesystem
				<<local (f = backupFolder + string.replaceAll (partialPath, "/", file.getPathChar ()))
				<<local (s = file.readWholeFile (f))
				<<local (atts)
				<<if not fatPages.getPageAtts (@s, @atts)
					<<fatPages.noObjectError (f)
				<<if not defined (atts.pageData)
					<<fatPages.noObjectError (path:f)
				<<local (adr = atts.adrPageData)
				<<fatPages.unpackOdbObject (@atts, adr, flEdit:false)
	
	local (files);
	radio.backup.readDirectory (readfile ("files.xml"), @files);
	radio.backup.restoreAllPrefs (@importObject, @files);
	
	radio.backup.restoreStories (@readfile, @files);
	radio.backup.restoreTemplates (@importObject);
	
	local (adrdata = radio.weblog.init ());
	radio.backup.restoreAllMonths (@readFile, @adrdata^.posts)};
bundle { //test code
	restore (user.radio.backup.prefs.folder)}

---

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.