allow empty fields in POST data
[cgilite] / misc.sh
1 #!/bin/zsh
2
3 # Copyright 2014, 2015 Paul Hänsch
4 #
5 # This file is part of shcgi.
6
7 # shcgi is free software: you can redistribute it and/or modify
8 # it under the terms of the GNU Affero General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
11
12 # shcgi is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 # GNU Affero General Public License for more details.
16
17 # You should have received a copy of the GNU Affero General Public License
18 # along with shcgi.  If not, see <http://www.gnu.org/licenses/>. 
19
20 data_dirs(){
21   # set up directories for object storage
22
23   [ -d "$_DATA" -a -w "$_DATA" ] || die "storage directory must be writable"
24   for each in "$@"; do
25     [ ! -e "$_DATA/$each" ] && mkdir "$_DATA/$each"
26     [ -d "$_DATA/$each" -a -w "$_DATA/$each" ] || die "storage \"$_DATA/$each\" must be a writable directory"
27   done
28 }
29
30 validate(){
31   # print value if value matches regex; otherwise print default
32   value="$1"
33   regex="$(printf %s\\n "$2" \
34            | sed -r 's;(^|[^\\]+)((\\\\)+)/;\1\2\\/;g; s;(^|[^\\])/;\1\\/;g; s;(^|[^\\]+)((\\\\)+)/;\1\2\\/;g; s;(^|[^\\])/;\1\\/;g;'
35           )" # ^^ escape only unescaped slash characters for later insertion
36   default="$3"
37
38   printf %s\\n "${value}" \
39   | sed -rn "2q; /^(${regex})\$/{p;q}; a${default}"
40 }
41
42 invalidate(){
43   # print default if value matches regex; otherwise print value
44   value="$1"
45   regex="$(printf %s\\n "$2" \
46            | sed -r 's;(^|[^\\]+)((\\\\)+)/;\1\2\\/;g; s;(^|[^\\])/;\1\\/;g; s;(^|[^\\]+)((\\\\)+)/;\1\2\\/;g; s;(^|[^\\])/;\1\\/;g;'
47           )" # ^^ escape only unescaped slash characters for later insertion
48   default="$3"
49
50   printf %s\\n "${value}" \
51   | sed -rn "2q; /^(${regex})\$/{bd}; p;q; :d;a${default}"
52 }
53
54 declare -A item_name
55 l10n(){
56   [ -n "$item_name[$1]+x" ] && printf %s "$item_name[$1]" || printf %s "$1"
57 }