;;======================================================================
;; Copyright 2017, Matthew Welland.
;;
;; This file is part of Megatest.
;;
;; Megatest is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; Megatest is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;;======================================================================
(define (pages:index session db shared)
(let* ((dbh (s:db))
(page-name (sdat-get-page s:session)))
(if (equal? page-name "api")
(s:call page-name) ;; go straight to the api
(list
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">"
(s:html
(s:title (conc "Megatest"))
(s:head
index:kickstart-junk
)
(s:body
(s:div 'class "grid flex" 'id "top_of_page"
;; add visible to columns to help visualize them e.g. "col_12 visible"
(s:ul 'class "menu"
(s:li (s:a 'href "" (s:i 'class "fa fa-inbox") "QA Summary")
(s:ul
(s:li (s:a 'href "/cgi-bin/megatest.sh/home" "Component Snapshot"))
(s:li (s:a 'href "/cgi-bin/megatest.sh/kitprogress" "Kit/Contour progress"))
)))
;(s:li (s:a 'href (s:link-to "run" ) "Runs")))
(case (string->symbol page-name)
((index) (s:call "home"))
(else (s:call page-name))))
index:jquery
index:javascript
))))))