git.plutz.net Git - busy/blob - write/wikimeta.cgi

   1 #!/bin/zsh
   2 # Copyright 2011 Paul Haensch
   3 # This file is part of Busy
   4 #
   5 # Busy is free software: you can redistribute it and/or modify
   6 # it under the terms of the GNU Affero General Public License as published by
   7 # the Free Software Foundation, either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # Busy is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU Affero General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU Affero General Public License
  16 # along with Busy.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 [ "$HTTPS" = "on" ] && proto=https || proto=http
  19 . ../auth/permissions.sh
  20 env >../debug
  21 $ACL_WIKIEDIT || echo "Location: ${proto}://${HTTP_HOST}/?p=Error&i=noaccess\n\n"
  22 $ACL_WIKIEDIT || exit 0
  23
  24 info="$(egrep -o '(^|&)i=[0-9]{10}_[0-9]{3}(&|$)' <<<"${QUERY_STRING}" |tr -d '&i=')"
  25
  26 [ -z "$info" ] && info="$(date +%s)_$(apg -M N -a 1 -n 1 -m 3 -x 3)"
  27 descfile="../Wiki/$info.meta"
  28 commfile="../Wiki/$info.comment.$(date +%s)_$(apg -M N -a 1 -n 1 -m 3 -x 3)"
  29
  30 [ -f "../Wiki/$info.lock" ] && rm "../Wiki/$info.lock"
  31 anchor=$(ls ../Wiki |grep -A2 $info |grep '.meta$' |tail -n1 |cut -d. -f1)
  32
  33 if [ -n "${CONTENT_LENGTH}" -a "${CONTENT_LENGTH}" -gt 0 ]; then
  34 (head -c "${CONTENT_LENGTH}"; echo)|sed 's/&/\n/g' |while read line; do
  35   if (egrep -xq 'title=.+' <<<"${line}"); then
  36     title="$(cut -d= -f2- <<<"${line}" |sed 's/+/ /g;s/%/\\x/g')"
  37     title="$(echo -e "${title}" |sed 's/\t/ /g;s/\r//g;s/\\/\\\\/g' |head -n1)"
  38   elif (egrep -xq 'desc=.+' <<<"${line}"); then
  39     description="$(cut -d= -f2- <<<"${line}" |sed 's/+/ /g;s/%/\\x/g')"
  40     description="$(echo -e "${description}" |sed 's/\r//g;s/\\/\\\\/g')"
  41   elif (egrep -xq 'comm=.+' <<<"${line}"); then
  42     comment="$(cut -d= -f2- <<<"${line}" |sed 's/+/ /g;s/%/\\x/g')"
  43     comment="$(echo -e "${comment}" |sed 's/\r//g;s/\\/\\\\/g')"
  44   elif (egrep -xq 'cancel=.+' <<<"${line}"); then
  45     cancel="true"
  46   fi
  47 done
  48 fi
  49
  50 if [ -z "$cancel" -a -n "$comment" ]; then
  51   touch "../Wiki/$info"
  52   echo -e "author=${REMOTE_USER}" > "$commfile"
  53   echo -e "${comment}" >> "$commfile"
  54   echo -n "Location: ${proto}://${HTTP_HOST}/?p=Wiki&i=$info\n\n"
  55 elif [ -z "$cancel" -a -n "$description" ]; then
  56   touch "../Wiki/$info"
  57   echo -e "title=${title}" > "$descfile"
  58   echo -e "description=${description}" >> "$descfile"
  59   echo -n "Location: ${proto}://${HTTP_HOST}/?p=Wiki#$anchor\n\n"
  60 elif [ -n "$cancel" ]; then
  61   echo -n "Location: ${proto}://${HTTP_HOST}/?p=Wiki#$anchor\n\n"
  62 fi