backItUp.xml

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE MudletPackage>
<MudletPackage version="1.001">
	<TriggerPackage>
		<TriggerGroup isActive="yes" isFolder="yes" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
			<name>BackItUp</name>
			<script></script>
			<triggerType>0</triggerType>
			<conditonLineDelta>0</conditonLineDelta>
			<mStayOpen>0</mStayOpen>
			<mCommand></mCommand>
			<packageName></packageName>
			<mFgColor>#ff0000</mFgColor>
			<mBgColor>#ffff00</mBgColor>
			<mSoundFile></mSoundFile>
			<colorTriggerFgColor>#000000</colorTriggerFgColor>
			<colorTriggerBgColor>#000000</colorTriggerBgColor>
			<regexCodeList />
			<regexCodePropertyList />
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_CaptureStartCanary</name>
				<script>enableTrigger("BackItUp_CaptureOrg")
disableTrigger("BackItUp_CaptureScrollList")

enableTrigger("BackItUp_Prompt")</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>----- BACKITUP! -----</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>3</integer>
				</regexCodePropertyList>
			</Trigger>
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_CaptureOrg</name>
				<script>if matches[2] == '----- BACKITUP! -----' then return end

if not backItUp.orgname then
	backItUp.orgname = matches[2]
	disableTrigger("BackItUp_CaptureOrg")
	enableTrigger("BackItUp_CaptureScrollList")
end</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>^(.+)$</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>1</integer>
				</regexCodePropertyList>
			</Trigger>
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_CaptureScrollList</name>
				<script>if isPrompt() then return end
if matches[2] == backItUp.orgname then return end

backItUp.scrolls = backItUp.scrolls or {}
for item in string.gmatch(matches[2], "%a+") do
	if item:len() &gt; 0 then
		table.insert(backItUp.scrolls, item)
	end
end
</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>^(.+)$</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>1</integer>
				</regexCodePropertyList>
			</Trigger>
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_Prompt</name>
				<script>disableTrigger("BackItUp_CaptureScrollList")
disableTrigger("BackItUp_Prompt")
disableTrigger("BackItUp_CaptureStartCanary")
backItUp.scrollsTotal = #backItUp.scrolls
cecho("\n&lt;orange,DarkSlateGrey&gt;Found " .. backItUp.scrollsTotal .. " scrolls for " .. backItUp.orgname .. "\n")
cecho("\n&lt;orange,DarkSlateGrey&gt;Starting backup... \n")
tempTimer(0.3, backItUp.nextScroll)</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>return isPrompt()</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>4</integer>
				</regexCodePropertyList>
			</Trigger>
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_ScrollStartLine</name>
				<script>disableTrigger("BackItUp_ScrollStartLine")

enableTrigger("BackItUp_ScrollContent")
enableTrigger("BackItUp_ScrollMorePrompt")
enableTrigger("BackItUp_ScrollEndPrompt")</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>^Composed by: (.+)</string>
					<string>[File continued via MORE]</string>
					<string>There appears to be no help scroll by that name.</string>
					<string>----- BACKITUP-SCROLL! -----</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>1</integer>
					<integer>3</integer>
					<integer>3</integer>
					<integer>3</integer>
				</regexCodePropertyList>
			</Trigger>
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_ScrollContent</name>
				<script>if not isPrompt() then
	deleteLine()
	if matches[2] then
		local isTypeMore = string.find(matches[2], "%[Type MORE if you wish to continue reading. %(%d+%% shown%)%]")
		local isFileContinued = string.find(matches[2], "%[File continued via MORE%]")
		local isPreamble = matches[2] == "----- BACKITUP-SCROLL! -----"
		if isTypeMore or isFileContinued or isPreamble then -- skip MORE!
			return
		else
			backItUp.scrollContents[backItUp.thisScroll] = backItUp.scrollContents[backItUp.thisScroll] .. matches[2] .. "\n"
		end
	else
		backItUp.scrollContents[backItUp.thisScroll] = backItUp.scrollContents[backItUp.thisScroll] .. "\n"
	end
end</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>^(.+)$</string>
					<string>^$</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>1</integer>
					<integer>1</integer>
				</regexCodePropertyList>
			</Trigger>
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_ScrollMorePrompt</name>
				<script>backItUp.wantsMore = true</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>^\[Type MORE if you wish to continue reading. \(\d+% shown\)\]$</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>1</integer>
				</regexCodePropertyList>
			</Trigger>
			<Trigger isActive="no" isFolder="no" isTempTrigger="no" isMultiline="no" isPerlSlashGOption="no" isColorizerTrigger="no" isFilterTrigger="no" isSoundTrigger="no" isColorTrigger="no" isColorTriggerFg="no" isColorTriggerBg="no">
				<name>BackItUp_ScrollEndPrompt</name>
				<script>disableTrigger("BackItUp_ScrollMorePrompt")
disableTrigger("BackItUp_ScrollContent")
disableTrigger("BackItUp_ScrollEndPrompt")
tempTimer(0.3, backItUp.nextScroll)</script>
				<triggerType>0</triggerType>
				<conditonLineDelta>0</conditonLineDelta>
				<mStayOpen>0</mStayOpen>
				<mCommand></mCommand>
				<packageName></packageName>
				<mFgColor>#ff0000</mFgColor>
				<mBgColor>#ffff00</mBgColor>
				<mSoundFile></mSoundFile>
				<colorTriggerFgColor>#000000</colorTriggerFgColor>
				<colorTriggerBgColor>#000000</colorTriggerBgColor>
				<regexCodeList>
					<string>return isPrompt()</string>
				</regexCodeList>
				<regexCodePropertyList>
					<integer>4</integer>
				</regexCodePropertyList>
			</Trigger>
		</TriggerGroup>
	</TriggerPackage>
	<TimerPackage />
	<AliasPackage>
		<AliasGroup isActive="yes" isFolder="yes">
			<name>BackItUp</name>
			<script></script>
			<command></command>
			<packageName></packageName>
			<regex></regex>
			<Alias isActive="yes" isFolder="no">
				<name>BackItUp_Init</name>
				<script>backItUp.init(matches[2])</script>
				<command></command>
				<packageName></packageName>
				<regex>^backup (\w+)$</regex>
			</Alias>
		</AliasGroup>
	</AliasPackage>
	<ActionPackage />
	<ScriptPackage>
		<ScriptGroup isActive="yes" isFolder="yes">
			<name>BackItUp</name>
			<packageName></packageName>
			<script></script>
			<eventHandlerList />
			<Script isActive="yes" isFolder="no">
				<name>BackItUp</name>
				<packageName></packageName>
				<script>backItUp = {}
backItUp.CommandSeparator = "|" -- FIXME: Change this whatever you have on CONFIG CommandSeparator

backItUp.init = function(which)
	backItUp.orgname = nil
	backItUp.scrollsTotal = 0
	backItUp.scrolls = {}
	backItUp.scrollContents = {}
	backItUp.wantsMore = false
	
	backItUp.which = which
  enableTrigger("BackItUp_CaptureStartCanary")
  send("ECHO ----- BACKITUP! -----" .. backItUp.CommandSeparator .. which)
end

backItUp.nextScroll = function()
	if #backItUp.scrolls &gt; 0 then
		enableTrigger("BackItUp_ScrollStartLine")
		if backItUp.wantsMore then
			cecho("\n&lt;orange,DarkSlateGrey&gt;Collecting MOAR!\n")
			backItUp.wantsMore = false
			send("MORE")
		else
			backItUp.thisScroll = table.remove(backItUp.scrolls, 1)
			cecho("\n&lt;orange,DarkSlateGrey&gt;Collecting " .. (backItUp.scrollsTotal - #backItUp.scrolls) .. " out of " .. backItUp.scrollsTotal .. " scrolls...\n")

			backItUp.scrollContents[backItUp.thisScroll] = ""
			send("ECHO ----- BACKITUP-SCROLL! -----" .. backItUp.CommandSeparator .. backItUp.which .. " " .. backItUp.thisScroll)
		end
	else

		backItUp.saveScrolls()
	end
end

backItUp.saveScrolls = function()
	cecho("&lt;orange,DarkSlateGrey&gt;Saving ...\n")
	local errors = {}
	if not io.exists(getMudletHomeDir() .. "/backItUp") then
		lfs.mkdir(getMudletHomeDir() .. "/backItUp")
	end

	local orgFolderName = db:safe_name(backItUp.orgname)
	orgFolderName = getMudletHomeDir() .. "/backItUp/" .. orgFolderName
	if not io.exists(orgFolderName) then
		local x = lfs.mkdir(orgFolderName)
		if not x then
			table.insert(errors, "&lt;red,DarkSlateGrey&gt;Eep eep there was an error with creating this folder: " .. orgFolderName .. "\n")
		end
	end

	for scroll, contents in pairs(backItUp.scrollContents) do
		local scrollFile = db:safe_name(scroll) .. ".txt"
		if contents ~= "There appears to be no help scroll by that name." then
			local scrollFHandle = io.open(orgFolderName .. "/" .. scrollFile, 'w')
			if scrollFHandle then
				scrollFHandle:write(contents)
				scrollFHandle:flush()
				scrollFHandle:close()
			else
				table.insert(errors, "&lt;red,DarkSlateGrey&gt;Eep eep there was an error with creating this file: " .. orgFolderName .. "/" .. scrollFile .. "\n")
			end
		end
	end

	backItUp.orgname = nil
	backItUp.scrolls = {}
	backItUp.scrollContents = {}
	if #errors &gt; 0 then
		echo("\n")
		for _, err in ipairs(errors) do
			cecho(err)
		end
	else
		cecho("\n&lt;orange,DarkSlateGrey&gt;All done! We've slurped everything real good. Yum yum yum!\n")
		cecho("&lt;orange,DarkSlateGrey&gt;The stuff was saved here: " .. orgFolderName)
	end
end</script>
				<eventHandlerList />
			</Script>
		</ScriptGroup>
	</ScriptPackage>
	<KeyPackage />
	<VariablePackage>
		<HiddenVariables />
	</VariablePackage>
</MudletPackage>