From 921a67d8df48d06b4ce970e62178ff582d574e8b Mon Sep 17 00:00:00 2001
From: uriel <uriel@engel.se.cat-v.org>
Date: Wed, 24 Dec 2008 12:18:44 +0100
Subject: [PATCH] New function to pick 'metadata' out of new .md convention for
 attributes.

---
 bin/cgilib.rc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/bin/cgilib.rc b/bin/cgilib.rc
index 69b0846..f900b14 100644
--- a/bin/cgilib.rc
+++ b/bin/cgilib.rc
@@ -279,6 +279,18 @@ fn app_handler {
 }
 
 
+##################################
+# Meta-data extract
+
+fn get_var {
+    if(! ~ $#* 2) {
+         status='ERROR: wrong get_var args >>' $* '<< instead of: get_var file-name var-name'
+         dprint $status
+    }
+    if not
+        sed -n '/^\* '$2': /p; /^\* '$2': /q; /^$/q' < $1
+}
+
 #app_blog_methods = ( _post index.rss )
 #fn app_blog__post {
 #    echo