]> lifelog.hopto.org Git - LifeLog.git/commitdiff
Added menu.
authorWill Budic <redacted>
Mon, 15 May 2023 02:36:07 +0000 (12:36 +1000)
committerWill Budic <redacted>
Mon, 15 May 2023 02:36:07 +0000 (12:36 +1000)
htdocs/cgi-bin/index.cgi
htdocs/cgi-bin/index.cnf
htdocs/cgi-bin/login_ctr.cgi

index a03a8c8af476b723e9485f295716642aa972e6c2..2c52f64e33411567f2f5ca547120ba3460e37d3e 100755 (executable)
@@ -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 {    
index 808b8fcc676aff1dce8ad3357ea842fbe1384e18..629be9eabd0acde986831abfb474c631ab6ead72 100644 (file)
         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;
         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
index 1c9b35544a4977c08f6b46d6765466c37e819f50..c66aceb44c7e9ba3d02754c90601e580eb2784c3 100755 (executable)
@@ -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>