From 09584e26d2022c19e6323cba4c03ab64af928190 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Tue, 24 Jun 2008 15:41:21 +0000
Subject: Forgot to add lbu-listbackups-html.lsp file.

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-conf/trunk@1254 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 lbu-listbackups-html.lsp | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 lbu-listbackups-html.lsp

(limited to 'lbu-listbackups-html.lsp')

diff --git a/lbu-listbackups-html.lsp b/lbu-listbackups-html.lsp
new file mode 100644
index 0000000..ad26069
--- /dev/null
+++ b/lbu-listbackups-html.lsp
@@ -0,0 +1,39 @@
+<? local view, viewlibrary, pageinfo, session = ... 
+require("viewfunctions")
+?>
+<?
+--[[ DEBUG INFORMATION
+io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
+io.write(html.cfe_unpack(view))
+io.write("</span>")
+--]]
+?>
+
+<H1>Backup Archive</H1>
+<DL>
+<? if #view.value == 0 then ?>
+No backup files
+<? else
+	local selected = false ?>
+	<table><tr>
+		<td class="header">Action</td>
+		<td class="header">File</td>
+	</tr>
+	<? for i,name in ipairs(view.value) do ?>
+		<tr><td>
+			<?= html.link{value="deletebackup?backup="..name, label="Delete "} ?>
+		<? if name == view.selected then
+			selected = true ?>
+			selected
+		<? else ?>
+			<?= html.link{value="selectbackup?backup="..name, label="Select "} ?>
+		<? end ?>
+		</td>
+		<td><?= name ?></td></tr>
+	<? end
+	if not selected then ?>
+		Warning!!  Selecting a backup file will cause the current lbu overlay to be lost!!
+	<? end
+end ?>
+</table>
+</DL>
-- 
cgit v1.2.3