From 80775dcd20fe3c94c89c5710d249fc17d1e789fd Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Mon, 5 Nov 2007 15:37:15 +0000
Subject: Working on downloading files

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-baselayout/trunk@270 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 Makefile                   | 3 ++-
 logfiles-controller.lua    | 2 ++
 logfiles-download-html.lsp | 5 +++++
 logfiles-model.lua         | 2 +-
 logfiles-read-html.lsp     | 2 ++
 5 files changed, 12 insertions(+), 2 deletions(-)
 create mode 100644 logfiles-download-html.lsp

diff --git a/Makefile b/Makefile
index 44771df..b02d1d0 100644
--- a/Makefile
+++ b/Makefile
@@ -18,7 +18,8 @@ APP_DIST=hostname-controller.lua	\
 	logfiles-model.lua		\
 	logfiles-read-html.lsp		\
 	logfiles-delete-html.lsp	\
-	logfiles-view-html.lsp
+	logfiles-view-html.lsp		\
+	logfiles-download-html.lsp
 
 EXTRA_DIST=README Makefile config.mk
 
diff --git a/logfiles-controller.lua b/logfiles-controller.lua
index 3ae668e..cea287c 100644
--- a/logfiles-controller.lua
+++ b/logfiles-controller.lua
@@ -35,4 +35,6 @@ view = function (self)
 	local filetoview = self.clientdata.name or ""
 	return ({logfile = self.model:view(filetoview)} )
 end
+
+download = view
 --create = update
diff --git a/logfiles-download-html.lsp b/logfiles-download-html.lsp
new file mode 100644
index 0000000..d0f1abb
--- /dev/null
+++ b/logfiles-download-html.lsp
@@ -0,0 +1,5 @@
+<? local view = ... ?>
+content-type: application/octet-stream<BR>
+content-disposition: attachement; filename=changeme.txt<BR><BR>
+
+<?= view.logfile.value ?>
diff --git a/logfiles-model.lua b/logfiles-model.lua
index 9ca2e1f..0cf58f5 100644
--- a/logfiles-model.lua
+++ b/logfiles-model.lua
@@ -38,7 +38,7 @@ local function list_files ( path )
 				else
 					del=nil
 				end
-				table.insert ( listed_files , cfe{inuse=fileinuseresult, del=del, save="", view="/view?name=" .. v, size=size, lastmod=lastmod, name=v, type="", id=k} )
+				table.insert ( listed_files , cfe{inuse=fileinuseresult, del=del, save="/download?name=" .. v, view="/view?name=" .. v, size=size, lastmod=lastmod, name=v, type="", id=k} )
 			end
 		end
 		files:close()
diff --git a/logfiles-read-html.lsp b/logfiles-read-html.lsp
index 697a097..9616b91 100644
--- a/logfiles-read-html.lsp
+++ b/logfiles-read-html.lsp
@@ -6,6 +6,7 @@
 	<TR style="background:#eee;font-weight:bold;">
 		<TD "width=55px"><?= view.logfile[1].inuse ?></TD>
 		<TD "width=55px"><?= view.logfile[1].view ?></TD>
+		<TD "width=55px"><?= view.logfile[1].save ?></TD>
 		<TD "width=55px" align="right"><?= view.logfile[1].size ?></TD>
 		<TD align="right" "width=90px"><?= view.logfile[1].lastmod ?></TD>
 		<TD style="padding-left:10px"><?= view.logfile[1].name ?></TD>
@@ -20,6 +21,7 @@
 			<?= view.logfile[i].inuse ?>
 		<? end ?></TD>
 		<TD><?= html.link{value = view.url .. view.logfile[i].view, label="View" } ?></TD>
+		<TD><?= html.link{value = view.url .. view.logfile[i].save, label="Download" } ?></TD>
 		<TD align="right"><?= view.logfile[i].size ?></TD>
 		<TD align="right"><?= view.logfile[i].lastmod ?></TD>
 		<TD style="padding-left:10px"><?= view.logfile[i].name ?></TD>
-- 
cgit v1.2.3