Syntax fix and other minnor improvements

This commit is contained in:
Uriel 2008-09-26 11:09:18 +02:00
parent 1f376ad60a
commit 272840da52

View file

@ -10,13 +10,13 @@ Location: '^$1^'
exit exit
} }
fn setvars { fn get_post_args {
ifs='& ifs='&
' for(pair in `{cat}) { ' for(pair in `{cat}) {
pair = `{echo -n $pair | sed 's/=/\&/'} \ pair = `{echo -n $pair | sed 's/=/\&/'} \
ifs=() \ ifs=() \
if(~ $pair(1) $*) if(~ $pair(1) $*)
eval $pair(1)'=`{urldecode $pair(2)}' $pair(1) = `{urldecode $pair(2)}
} }
} }
@ -36,6 +36,9 @@ fn template { template.awk $* | rc $rcargs }
# .rec parsing # .rec parsing
fn parse_rec { fn parse_rec {
sed 's/% *//; /^$/q' < $1 for(i in `{sed 's/% *//; /^$/q' < $1}) {
sed -n '/^$/,$p' < $1 v = `{echo $i | sed 's/^/rec_/; s/=.*//;'}
$v = `{echo $i | sed
}
rec_data = `{sed -n '/^$/,$p' < $1}
} }