X-Git-Url: http://git.plutz.net/?p=bookman;a=blobdiff_plain;f=index.cgi;h=98e6719e4f9edbe986d984716c9ac3a146906096;hp=0c563eae531e062cb42b899b95bb61caf83c7d7a;hb=206364757997f75d7fb6f26fd86714b477cc7329;hpb=3ecee15fc19ec1a2d4b44d965e63412860ea01b6 diff --git a/index.cgi b/index.cgi index 0c563ea..98e6719 100755 --- a/index.cgi +++ b/index.cgi @@ -160,10 +160,7 @@ case "$(GET action)" in fid="$(POST fid | checkid)" file="${BDB}/${fid}.bm" if [ "$(POST control)" = confirm -a -n "$name" -a -f "$file" ]; then - order="$(head -n1 "$file" |cut -f3 || printf 1000)" - printf '%s\t%s\t%s\n' "$fid" "$(HTML "$name")" "$order" >"${file%.bm}.tmp" - tail -n+2 "$file" >>"${file%.bm}.tmp" - mv "${file%.bm}.tmp" "$file" + sed -ri "1s'^(${fid}\t)[^\t]+(\t.+)$'\1${name}\2';" "$file" fi REDIRECT "${SCRIPT_NAME}#${fid}" ;; @@ -201,7 +198,7 @@ case "$(GET action)" in file="${BDB}/${fid}.bm" bid="$(timeid)" if [ -n "$name" -a -f "${file}" ]; then - printf '%s\t%s\t%s\n' "$bid" "$(HTML "$name")" "$(HTML "$url")" >>"${file}" + printf '%s\t%s\t%s\n' "$bid" "$(HTML "$name")" "$url" >>"${file}" fi getFavicon "$url" "$bid" REDIRECT "${SCRIPT_NAME}#${fid}" @@ -210,38 +207,131 @@ case "$(GET action)" in bid="$(POST bid | checkid)" name="$(POST name |head -n1)" url="$(POST url |head -n1)" - file="$(grep -lE "^${bid}" "${BDB}"/????????????.bm)" - if [ -w "$file" -a -n "$name" -a -n "$url" ]; then - bm="$(printf '%s\t%s\t%s' "$bid" "$(HTML "$name")" "$(HTML "$url")" |sed -r 's;[\&\;];\\&;g;')" - sed -ri "s;^${bid}\t.*$;${bm};" "$file" + file="$(grep -lm1 "^${bid}" "${BDB}"/????????????.bm |head -n1)" + if [ -n "$name" -a -n "$url" -a "$(POST control)" = confirm -a -w "$file" ]; then + sed -rni "/^${bid}\t/!p; /^${bid}\t/i${bid}\t$(HTML "$name")\t${url}" "$file" fi getFavicon "$url" "$bid" REDIRECT "${SCRIPT_NAME}#${fid}" ;; + movebookmark) + bid="$(POST bid | checkid)" + fid="$(POST target | checkid)" + sfile="$(grep -lm1 "^${bid}" "${BDB}"/????????????.bm |head -n1)" + tfile="${BDB}/${fid}.bm" + + if [ "$(POST control)" = confirm -a -n "$bid" -a -w "$sfile" -a -w "$tfile" ]; then + grep -m1 "^${bid}" "$sfile" >>"$tfile" \ + && sed -ri "0,/^${bid}/{/^${bid}/d;}" "$sfile" + fi + REDIRECT "${SCRIPT_NAME}#${fid}" + ;; + bmup) + fid="$(GET fid |checkid)" + bid="$(GET bid |checkid)" + file="${BDB}/${fid}.bm" + + if [ -n "$bid" -a -n "$fid" ] && grep -q "^${bid}" "$file"; then + sed -ri ":X;\$bY;N;bX;:Y; s;(\n[^\n]+)(\n${bid}\t[^\n]+);\2\1;;" "$file" + fi + REDIRECT "${SCRIPT_NAME}#${fid}" + ;; + bmdn) + fid="$(GET fid |checkid)" + bid="$(GET bid |checkid)" + file="${BDB}/${fid}.bm" + + if [ -n "$bid" -a -n "$fid" ] && grep -q "^${bid}" "$file"; then + sed -ri ":X;\$bY;N;bX;:Y; s;(\n${bid}\t[^\n]+)(\n[^\n]+);\2\1;;" "$file" + fi + REDIRECT "${SCRIPT_NAME}#${fid}" + ;; + query) + fid="$(POST fid |checkid)" + bid="$(POST bid |checkid)" + file="${BDB}/${fid}.bm" + query="$(URL "$(POST query)")" + + + url="$(grep -m1 "^${bid}" "$file" |cut -f3-)" + urlpfx="${url%\{@\}*}" + urlsfx="${url#*\{@\}}" + + REDIRECT "${urlpfx}${query}${urlsfx}" + ;; esac -list_bookmarks(){ - fid="$1" - bmodify="$(GET bmodify |checkid)" +bookmarkmod(){ + bmod="$(GET bmodify |checkid)" + bmove="$(GET bmove |checkid)" - tail -n+2 "${BDB}/${fid}.bm" \ - | while read bid name url; do - if [ "${bid}" = "$bmodify" ]; then - cat <<-EOF + if [ -n "$bmod" ]; then + file="$(grep -lm1 "^${bmod}" "${BDB}/"????????????.bm |head -n1)" + read bid name url <<-EOF + $(grep -m1 "^${bmod}" "$file") + EOF + cat <<-EOF
+

Modify: ${name}

+ + Move + - - + + + +
EOF - else + elif [ -n "$bmove" ]; then + file="$(grep -lm1 "^${bmove}" "${BDB}/"????????????.bm |head -n1)" + read bid name url <<-EOF + $(grep -m1 "^${bmove}" "$file") + EOF + cat <<-EOF +
+ +

Move: ${name}

+ Modify + + + + + +
+ EOF + fi +} + +show_bookmarks(){ + fid="$1" + bmodify="$(GET bmodify |checkid)" + + tail -n+2 "${BDB}/${fid}.bm" \ + | while read bid name url; do + if [ "${url%\{@\}*}" = "${url}" ]; then cat <<-EOF
Modify - ${name} + ${name} + move left + move right
EOF + else + cat <<-EOF +
+ Modify + + + + move left + move right +
+ EOF fi done } @@ -310,11 +400,16 @@ foldermod(){ show_folders(){ list_folders \ | while read fid fname order; do - cat <<-EOF + file="${BDB}/${fid}.bm" + cache="${BDB}/${fid}.cache" + if [ "${cache}" -nt "${file}" ]; then + cat "$cache" + else + tee "$cache" <<-EOF

${fname}

Modify - $(list_bookmarks "$fid") + $(show_bookmarks "$fid")
@@ -323,6 +418,7 @@ show_folders(){
EOF + fi done } @@ -336,6 +432,7 @@ cat < $(foldermod) + $(bookmarkmod) $(show_folders)