From: Will Budic <redacted>
Date: Mon, 15 May 2023 02:36:07 +0000 (+1000)
Subject: Added menu.
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=85a6693a63b0fb54476cdacc89c133f4eefacbf5;p=LifeLog.git

Added menu.
---

diff --git a/htdocs/cgi-bin/index.cgi b/htdocs/cgi-bin/index.cgi
index a03a8c8..2c52f64 100755
--- a/htdocs/cgi-bin/index.cgi
+++ b/htdocs/cgi-bin/index.cgi
@@ -37,6 +37,27 @@ require CNFNode;
 our $GLOB_HTML_SERVE = "{}/*.cgi {}/*.htm {}/*.html {}/*.md {}/*.txt";
 our $script_path = $0;
 $script_path =~ s/\w+.cgi$//;
+
+my $v = q/
+<<$APP_DESCRIPTION<CONST>
+This application presents just
+a nice multi-line template.
+>>/;
+# $v =~ m/\s*(<<[@%]<) ([\$@%]?\w+)(>)* | (>>)
+#        /gx and my @captured = @{^CAPTURE};
+
+
+$v =~ m/(<{2,3})                          
+            ([\$@%]?\w+)
+                 (<?)  ([\w\s]+)   (>?)
+        |(<<[@%]<)  ([\$@%]?\w+) (>?)
+        |(>>)
+       /gx and my @captured = @{^CAPTURE};
+
+
+
+
+
 exit main();
 
 sub main {    
diff --git a/htdocs/cgi-bin/index.cnf b/htdocs/cgi-bin/index.cnf
index 808b8fc..629be9e 100644
--- a/htdocs/cgi-bin/index.cnf
+++ b/htdocs/cgi-bin/index.cnf
@@ -73,6 +73,13 @@
         padding: 10px; margin: 5px;
         text-align: left;
     }
+    .div_img{        
+        height:450px;
+    }
+    .md_img{
+        width:80%;
+        height:80%;
+    }
 
     #doc_display p{
         margin: 0 auto;
@@ -87,7 +94,8 @@
         font-weight: bold;
     }
     .key {
-        color: green;        
+        color: green;
+        font-weight: bolder;       
     }
     div .html {
         border:1px solid lightgray;
@@ -118,7 +126,6 @@
         text-align: left;
     }
 
-
 ]#]
 >STYLE>
 
@@ -137,6 +144,8 @@ function onIndexBodyLoad(){
             );
         }
     );
+
+
     onBodyLoadGeneric();    
 }
 
@@ -158,14 +167,26 @@ function loadDocResult(content){
  Title: Index Page
  OnLoad : onIndexBodyLoad()
 
+<div< 
+    id:menu
+ <#<
+    <a id="to_bottom" href="#bottom" title="Go to bottom of page."><span class="ui-icon ui-icon-arrowthick-1-s" style="float:none;"></span></a>
+            &nbsp;Page&nbsp;
+    <a id="to_top" href="#top" title="Go to top of page.">
+    <span class="ui-icon ui-icon-arrowthick-1-n" style="float:none;"></span></a><hr>
+    <a class="ui-button ui-corner-all ui-widget" href="index.cgi">Index</a><hr> 
+    <a class="ui-button ui-corner-all ui-widget" href="main.cgi">Life Log</a>
+>#>    
+ >div>
+
  <div<
     id:container
         <div<
             id:header            
-            <*<PAGE_HEAD>*>
-            <a<
-                name:"top"
-            >a>
+        <*<PAGE_HEAD>*>
+                                                    <a<
+                                                        name: top
+                                                    >a>
         >div>
         <div<
              id:content_pane
@@ -194,10 +215,13 @@ function loadDocResult(content){
                             title:Go to top of page.
                             <#<To Top Of Page>#>
                         >a>
-            <span<&#8968;>span>            
+    <span<&#8968;>span>
+                                                        <a<
+                                                            name: bottom
+                                                        >a> 
         >div>
  >div>
-            <!<Page brought to you by HTMLIndexProcessorPlugin, from the PerlCNF project.>!>
+    <!<Page brought to you by HTMLIndexProcessorPlugin, from the PerlCNF project.>!>
 >>
 
 <<CNF_TO_HTML<PLUGIN>
@@ -206,12 +230,19 @@ function loadDocResult(content){
     property    : PAGE
 >>
 
-<<INFO_MD<  
+<<INFO_MD<ESCAPED>
+
+\<\<$APP_DESCRIPTION\<CONST\>
+This application presents just
+a nice multi-line template.
+\>\>
+
 ### INFO
 This Documentation listing for the [LifeLog](https://github.com/wbudic/LifeLog) Application.
 
 [Open Source License](https://choosealicense.com/licenses/isc/)
->>>
+
+>>
 
 <<INFO_MD_TO_HTML<PLUGIN> _HAS_PROCESSING_PRIORITY_
     package     : MarkdownPlugin
diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 1c9b355..c66aceb 100755
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -100,8 +100,7 @@ try{
         <tr class="r0"><td colspan="2">Host -> <b>$hst</b></td><td><input type="submit" value="Login"/></td></tr>
         </table></form>
 HTML
-
-    print qq(<br><br>            
+    print qq(<br><br><div id ="menu" >Menu<hr> <a class="ui-button ui-corner-all ui-widget" href="index.cgi">Index</a></div>
             <div class="rz login">
                 $frm
                 <br>