let newpackage set additional fields

[zpackage] / zpm-sequence

diff --git a/zpm-sequence b/zpm-sequence
index fb7ce22afdd570ebea80b8d7602afd1e2649b050..db0303df71a75e28e86ebf336664a1ffcc75bc1f 100755 (executable)
--- a/zpm-sequence
+++ b/zpm-sequence
@@ -2,28 +2,36 @@
 
 set -e
 
-SPOOL=${SPOOL:-/var/lib/admin/notes}
-DB=$SPOOL/.sequence.db
-SQL="sqlite3 -bail -echo $DB"
+ZPMSPOOL=${ZPMSPOOL:-/var/lib/admin/notes}
+DB=$ZPMSPOOL/.sequence.db
+SQL="zpm shell -bail $DB"
 
 #rm -f $DB
 test -f $DB || {
-sqlite3 $DB <<EOS
+zpm shell $DB <<EOS
 create table sequence ( sequence text not null primary key, val integer not null default 0);
+insert into sequence (sequence) values ('default');
 EOS
 }
 
+# -c create named sequence
+# -d delete named sequence
+# -v current value
+# -l list all
+# -s set value
+# -n next (optional)
+# -p prepare db, but do nothing
 case $1 in
        -c)
-               $SQL "insert into sequence (sequence) values ('$2')"
+               $SQL "insert into sequence (sequence) values ('${2:-default}')"
                exit 0
                ;;
        -d)
-               $SQL "delete from sequence where sequence = '$2'"
+               $SQL "delete from sequence where sequence = '${2:-default}'"
                exit 0
                ;;
        -v)
-               val=$($SQL "select val from sequence where sequence = '$2'")
+               val=$($SQL "select val from sequence where sequence = '${2:-default}'")
                echo $val
                exit 0
                ;;
@@ -32,16 +40,19 @@ case $1 in
                exit 0
                ;;
        -s)
-               $SQL "begin;update sequence set val = $3 where sequence = '$seq'; commit;"
+               $SQL "begin;update sequence set val = $2 where sequence = '${3:-default}'; commit;"
                exit 0
                ;;
        -n)
                shift
                ;;
+       -p)
+               exit 0
+               ;;
 esac
 
-seq=$1
+seq=${1:-default}
 
-num=$(sqlite3 $DB "begin; update sequence set val = val + 1 where sequence = '$seq'; commit;select val from sequence where sequence = '$seq';")
+num=$(zpm shell $DB "begin; update sequence set val = val + 1 where sequence = '$seq'; commit;select val from sequence where sequence = '$seq';")
 
 echo $num