1 files changed, 47 insertions, 0 deletions
diff --git a/share/scripts/periodic_backup.lua b/share/scripts/periodic_backup.lua
new file mode 100644
index 0000000000..ff274a7a08
--- /dev/null
+++ b/share/scripts/periodic_backup.lua
@@ -0,0 +1,47 @@
+ardour {
+	["type"]    = "EditorHook",
+	name        = "Periodically Save Snapshot",
+	author      = "Ardour Lua Task Force",
+	description = "Save a session-snapshot peridocally (every 15mins) named after the current date-time",
+}
+
+-- subscribe to signals
+-- http://manual.ardour.org/lua-scripting/class_reference/#LuaSignal.LuaSignal
+function signals ()
+	return LuaSignal.Set():add ({[LuaSignal.LuaTimerS] = true})
+end
+
+-- create callback function
+function factory ()
+	local _last_snapshot_time = 0 -- persistent variable
+	local _snapshot_interval = 60 * 15 -- 15 minutes
+
+	-- callback function which invoked when signal is emitted, every 100ms
+	return function (signal, ref, ...)
+
+		local now = os.time (); -- unix-time, seconds since 1970
+
+		-- skip initial save when script is loaded
+		if (_last_snapshot_time == 0) then
+			_last_snapshot_time = now;
+		end
+
+		-- every 15 mins
+		if (now > _last_snapshot_time + _snapshot_interval) then
+
+			-- don't save while recording, may interfere with recording
+			if Session:actively_recording() then
+				-- queue 30 sec after rec-stop
+				_last_snapshot_time = now - _snapshot_interval + 30
+				return
+			end
+
+			_last_snapshot_time = now
+			-- format date-time (avoid colon)
+			local snapshot_name = os.date ("%Y-%m-%d %H.%M.%S", now)
+			-- save session -- http://manual.ardour.org/lua-scripting/class_reference/#ARDOUR:Session
+			Session:save_state ("backup " .. snapshot_name, false, false, false)
+		end
+
+	end
+end