autocreate skeleton and parse get string

svn path=/trunk/; revision=2

diff --git a/index.cgi b/index.cgi
index 919cf243b963d2829313f90c12632110cdf8f3a2..1188621ec86451107ef2bb07df205e895e6b428f 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -1,13 +1,20 @@
 #!/bin/zsh
 
 #!/bin/zsh
 

-call=$0
-real=$call
-
+# basic functions

 die() {
   echo "$*" >/dev/stderr
   exit 1
 }
 die() {
   echo "$*" >/dev/stderr
   exit 1
 }

+debug() { #change to false to disable debugging
+  true && echo "$*" >>debug
+}

 
 

+# this program is supposed to be symlinked into a http root directory
+# we will use the http root as object storage and call sub programs
+# from the directory in which the real executable resides
+# therefore we need to identify the code and data directories _EXEC and _STOR
+call=$0
+real=$call

 while [ -L "$real" ]; do
   real="$(stat -c %N "$real" |sed -r "s:..*. -> .(.*).$:\1:")"
 done
 while [ -L "$real" ]; do
   real="$(stat -c %N "$real" |sed -r "s:..*. -> .(.*).$:\1:")"
 done


@@ -15,7 +22,31 @@ done
 _EXEC="$(dirname "$real")"  #execution directory
 _STOR="$(dirname "$call")"  #storage directory
 
 _EXEC="$(dirname "$real")"  #execution directory
 _STOR="$(dirname "$call")"  #storage directory
 

+debug "Execution dir: $_EXEC"
+debug "Storage dir: $_EXEC"
+

 [ -w "$_EXEC" ] && [ -d "$_EXEC" ] || die "storage directory must be writable"
 
 [ -w "$_EXEC" ] && [ -d "$_EXEC" ] || die "storage directory must be writable"
 

-echo ex: $_EXEC
-echo st: $_STOR
+# create directories for object storage
+for each in "$_STOR"/{vcard,mappings}; do
+  [ ! -e "$each" ] && mkdir "$each"
+  [ -w "$each" ] && [ -d "$each" ] || die "storage $each must be a writable directory"
+done
+
+# create htaccess file
+[ -f .htaccess ] || cat >.htaccess <<EOF
+Options                +ExecCGI
+AddHandler     cgi-script .cgi
+DirectoryIndex index.cgi
+EOF
+[ -f .htaccess ] || die "no htaccess file present and unable to create one"
+
+# parse HTTP GET string
+declare -A _GET
+echo "$QUERY_STRING" |tr '&' '\n' |while read query; do
+  key="$(echo "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\1:')"
+  val="$(echo "$query" |sed -r 's:^([a-zA-Z0-9_-]*)=(.*)$:\2:')"
+  _GET["$key"]="$(echo -e "$(echo "$val" |sed 's:+: :g;s:%:\\x:g')")"
+done
+debug "$_GET"
+