From 9ead7ba1fd547c929a1fd7043dc34b631e2586c5 Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Fri, 22 Aug 2008 15:46:04 +0000
Subject: Added a expert-page

git-svn-id: svn://svn.alpinelinux.org/acf/openssh/trunk@1397 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 openssh-expert-html.lsp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 openssh-expert-html.lsp

(limited to 'openssh-expert-html.lsp')

diff --git a/openssh-expert-html.lsp b/openssh-expert-html.lsp
new file mode 100644
index 0000000..d349048
--- /dev/null
+++ b/openssh-expert-html.lsp
@@ -0,0 +1,16 @@
+<% local form, viewlibrary, page_info, session = ... %>
+<% require("viewfunctions") %>
+
+<% if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("status")
+end %>
+
+<%
+local pattern = string.gsub(page_info.prefix..page_info.controller, "[%(%)%.%%%+%-%*%?%[%]%^%$]", "%%%1")
+local func = haserl.loadfile(page_info.viewfile:gsub(pattern..".*$", "/") .. "filedetails-html.lsp")
+func(form, viewlibrary, page_info, session)
+%>
+
+<% if viewlibrary and viewlibrary.dispatch_component and session.permissions[page_info.controller].startstop then
+	viewlibrary.dispatch_component("startstop")
+end %>
-- 
cgit v1.2.3