]> git.plutz.net Git - lobster/commitdiff
cleanup
authorPaul Hänsch <paul@plutz.net>
Tue, 14 May 2019 12:20:23 +0000 (14:20 +0200)
committerPaul Hänsch <paul@plutz.net>
Tue, 14 May 2019 12:20:23 +0000 (14:20 +0200)
cards/cards.sh [deleted file]
cards/edit_card.sh [deleted file]
cards/edit_card.template.sh [deleted file]

diff --git a/cards/cards.sh b/cards/cards.sh
deleted file mode 100755 (executable)
index a26b1fc..0000000
+++ /dev/null
@@ -1,129 +0,0 @@
-#!/bin/zsh
-
-# Copyright 2014 - 2017 Paul Hänsch
-#
-# This file is part of Confetti.
-# 
-# Confetti is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-# 
-# Confetti is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
-# 
-# You should have received a copy of the GNU Affero General Public License
-# along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
-
-BR='
-'
-
-force_items(){
-  for each in "$@"; do
-    [ -z "${values[$each]+x}" ] && values[${each}]=''
-  done
-}
-
-case $PROFILE in
-medical)
-  SUP_FIELDS=(N NICKNAME GENDER BDAY ADR TEL EMAIL X-HEALTH-INSURANCE X-HEALTH-INSURANCE-NOCONTRIB IMPP URL NOTE X-CLIENT-REFERRAL)
-  FORCE_ITEMS=(ADR TEL EMAIL NOTE X-CLIENT-REFERRAL)
-  _GET[order]="${_GET[order]:-lastname}"
-  _GET[filtertype]="${_GET[filtertype]:-name}"
-  profile_medical=x
-;;
-circus)
-  SUP_FIELDS=(N NICKNAME GENDER BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE EMAIL TEL IMPP ADR URL NOTE)
-  FORCE_ITEMS=(BDAY X-ZACK-JOINDATE TEL EMAIL ADR NOTE)
-  _GET[order]="${_GET[order]:-firstname}"
-  _GET[filtertype]="${_GET[filtertype]:-any}"
-  profile_circus=x
-;;
-esac
-
-edit="${_GET[edit]}"
-[ \! -f "vcard/$edit" -a \! -f "temp/$edit" ] && edit=''
-
-listcourses() {
-  ls -1 ${_DATA}/ical/*ics |while read file; do
-    icstime="$(sed -rn 's:^DTSTART\:(TZID=.*\:)?([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2})([0-9]{2})([0-9]{2})Z?\r$:\2-\3-\4 \5\:\6\:\7:p' "$file")"
-    echo "$(date -d "$icstime" "+%u %H%M%S")\t$file"
-  done |sort |sed -r 's:^.*\t(.*/)([^/]+)$:\2:'
-}
-
-list_hi_companies(){
-  sed -rn 's;^X-HEALTH-INSURANCE:([^\;]+)\;.*$;\1;p' ${_DATA}/vcard/*vcf \
-  | sort -u
-}
-
-list_categories() {
-  catfile="${_DATA}/mappings/categories"
-  sort -u "$catfile" \
-  | sed -r '/^[\t ]*$/d'
-}
-
-listcards() {
-  filterex='s;^([^\n]+)\n.*$;\1;p'
-  printf '%s\n' "${_GET[filter]}" |tr '^' '\n' \
-  | sed -r 's;[]\/\(\)\\\^\$\?\.\+\*\;\[\{\}];\\\\&;g' \
-  | while read each; do
-    case $each in
-        name:*) expr='(FN|NICKNAME|N)(\;[^\n]+)*:[^\n]*'"(${each#*:})";;
-      street:*) expr='ADR(\;[^\n]+)*:([^\;]*;){2}[^\;\n]*'"(${each#*:})";;
-         zip:*) expr='ADR(\;[^\n]+)*:([^\;]*;){5}[^\;\n]*'"(${each#*:})";;
-      any:*|:*) expr="[^\n]*"'(\;[^\n]+)*:[^\n]*'"(${each#*:})";;
-           *:*) expr="${each%%:*}"'(\;[^\n]+)*:[^\n]*'"(${each#*:})";;
-             *) expr="(${each})";;
-    esac
-    filterex='/(^|\n)'"${expr}"'/I{'"${filterex}"'}'
-  done
-
-  for file in "${_DATA}/vcard/"*.vcf; do
-    case "${_GET[order]}" in
-      firstname)
-        printf '%s\t%s\n' "$(sed -rn 's:^N(;.+)*\:([^;]*;){1} *([^;]*).*$:\3:p' "$file")" "$file"
-        ;;
-      lastname)
-        printf '%s\t%s\n' "$(sed -rn 's:^N(;.+)*\:([^;]*;){0} *([^;]*).*$:\3:p' "$file")" "$file"
-        ;;
-      bdate)
-        printf '%s\t%s\n' "$(sed -rn 's:^BDAY(;.+)*\:(.*)$:\2:p' "$file")" "$file"
-        ;;
-      *)  printf 'x\t%s\n' "$file"
-        ;;
-    esac
-  done \
-  | sort -u |sed -r 's;^.*\t;;' \
-  | while read n; do
-    { printf '%s\n' "$n"; cat "$n"; } \
-    | sed -rn ':X;N;$!bX; {'"$filterex"'}'
-  done \
-  | sed -r 's;^(.*/)*;;;'
-}
-
-view_card() {  #Parameter: Cardfile
-  id="$1"
-  cardfile="$_DATA/vcard/${id}"
-  cachefile="$_DATA/cache/${id}.cache"
-  if [ "$cachefile" -nt "$cardfile" ]; then
-    cat "$cachefile"
-  else
-    declare -A values
-    vcf_parse "$cardfile"
-    . "$_EXEC/templates/view_card.sh" |tee "$cachefile"
-  fi
-}
-
-edit_card() {  #Parameter: Cardfile
-  id="$1"
-  cardfile="$_DATA/vcard/$id"
-  tempfile="$_DATA/temp/$id"
-  [ -f "$tempfile" ] && cardfile="$tempfile"
-
-  declare -A values
-  vcf_parse "$cardfile"
-  force_items $FORCE_ITEMS
-  . "$_EXEC/templates/edit_card.sh"
-}
diff --git a/cards/edit_card.sh b/cards/edit_card.sh
deleted file mode 100755 (executable)
index f90b326..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/bin/zsh
-
-# Copyright 2014 Paul Hänsch
-#
-# This file is part of Confetti.
-# 
-# Confetti is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-# 
-# Confetti is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
-# 
-# You should have received a copy of the GNU Affero General Public License
-# along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
-
-cgi_refdata
-
-card="${_GET[card]}"
-filter="&filter=${_REF[filter]}"
-filtertype="&filtertype=${_REF[filtertype]}"
-order="&order=${_REF[order]}"
-
-echo -n "Location: ?p=cards${filter}${filtertype}${order}&edit=$card\n\n"
diff --git a/cards/edit_card.template.sh b/cards/edit_card.template.sh
deleted file mode 100755 (executable)
index bc71db2..0000000
+++ /dev/null
@@ -1,199 +0,0 @@
-# Copyright 2014 - 2017 Paul Hänsch
-#
-# This file is part of Confetti.
-# 
-# Confetti is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Affero General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-# 
-# Confetti is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Affero General Public License for more details.
-# 
-# You should have received a copy of the GNU Affero General Public License
-# along with Confetti.  If not, see <http://www.gnu.org/licenses/>. 
-
-setchecked() {
-  printf 'checked="checked"'
-}
-setselected() {
-  printf 'selected="selected"'
-}
-check_gen() {
-  [ "$values[GENDER]" = "$1" ] && setselected
-}
-check_a() {
-  egrep -q "^${1}.${id}$" "$_DATA/mappings/attendance" && setchecked
-}
-check_c() {
-  for n in CATEGORIES CATEGORIES{0..100}; do
-    if [ -n "${values[$n]+x}" ]; then
-      [ "${values[$n]}" = "$1" ] && setchecked && break
-    else
-      break
-    fi
-  done
-}
-
-teltype() {
-  cat <<-EOF
-       <select class="item phonetype" name="phonetype">
-         <option value="" disabled="disabled" $([ -z "$1" ] && setselected )>$(l10n phone_typeselect)</option>
-         <option value=""></option>
-         <option value="HOME" $([ "$1" = HOME ] && setselected)>$(l10n phone_home)</option>
-         <option value="CELL" $([ "$1" = CELL ] && setselected)>$(l10n phone_cell)</option>
-         <option value="WORK" $([ "$1" = WORK ] && setselected)>$(l10n phone_work)</option>
-         <option value="FAX"  $([ "$1" = FAX  ] && setselected)>$(l10n phone_fax )</option>
-       </select>
-       EOF
-}
-
-list_items(){
-  item="$1"
-  placeholder="$2"
-  [ -n "${values[$item]+x}" ] && printf '<h3>%s</h3>\n' "$(l10n $item)"
-  for n in "$item" "$item"{0..100}; do
-    if [ -n "${values[$n]+x}" ]; then
-      case "$item" in
-        (ADR|NOTE)
-          printf '<textarea class="item %s" name="%s">%s</textarea>\n' \
-            "$item" "$item" "$(htmlsafe ${values[$n]})"
-          ;;
-        (TEL)
-          teltype "${values[${n}_TYPE]}"
-          printf '<input class="item %s" name="%s" value="%s" />\n' \
-            "$item" "$item" "$(attribsafe ${values[$n]})"
-          ;;
-        (*)
-          printf '<input class="item %s" name="%s" value="%s" placeholder="%s"/>\n' \
-            "$item" "$item" "$(attribsafe ${values[$n]})" "$placeholder"
-          ;;
-      esac
-    else
-      break
-    fi
-  done
-}
-
-list_section(){
-  printf '<div class="section %s">' "$1"
-  shift 1
-  for each in $@; do
-    list_items "$each"
-  done
-  printf '</div>'
-}
-
-hi_company="${values[X-HEALTH-INSURANCE+0]}"
- hi_number="${values[X-HEALTH-INSURANCE+1]}"
- hi_status="${values[X-HEALTH-INSURANCE+2]}"
-
-[ -z "$values[UID]" ] && values[UID]="$(uuidgenerator)"
-
-cat <<END_HTML
-<form id="$id" class="card" action="?action=update_card" method="POST">
-  <input type="hidden" name="card" value="${id}"/>
-  <div class="section basic">
-    <h3>$(l10n N)</h3>
-    <input class="item N" name="3N" placeholder="$(l10n n_pre)" value="$values[N+3]" />
-    <input class="item N" name="1N" placeholder="$(l10n n_first)" value="$values[N+1]" />
-    <input class="item N" name="2N" placeholder="$(l10n n_middle)" value="$values[N+2]" />
-    <input class="item N" name="0N" placeholder="$(l10n n_last)" value="$values[N+0]" />
-    <input class="item N" name="4N" placeholder="$(l10n n_post)" value="$values[N+4]" />
-
-    <select class="item GENDER" name="GENDER">
-      <option value="" disabled="disabled">$(l10n GENDER)</option>
-      <option value="female" $(check_gen female)>$(l10n gender_female)</option>
-      <option value="male" $(check_gen male)>$(l10n gender_male)</option>
-      <option value="other" $(check_gen other)>$(l10n gender_other)</option>
-      <option value="none" $(check_gen none)>$(l10n gender_none)</option>
-    </select>
-END_HTML
-
-    for n in NICKNAME NICKNAME{0..100}; do
-      [ -z "${values[$n]+x}" ] && break \
-      || printf '
-          <input class="item NICKNAME" name="NICKNAME" value="%s" placeholder="%s"/>
-      ' "$(attribsafe ${values[$n]})" "$(l10n NICKNAME)"
-    done
-
-    list_items BDAY YYYY-MM-DD
-    list_items X-ZACK-JOINDATE YYYY-MM-DD
-    list_items X-ZACK-LEAVEDATE YYYY-MM-DD
-
-    [ -n "$values[SOUND]" ] && printf '
-      <audio controls="controls" class="item SOUND">
-        <source type="audio/ogg" src="data:audio/ogg;base64,%s" />
-      </audio>' "$values[SOUND]"
-
-    [ -n "$values[PHOTO]" ] && printf '
-      <img class="item PHOTO" src="data:image/%s;base64,%s" />
-      ' "${values[PHOTO_TYPE]}" "${values[PHOTO]}"
-
-    [ -n "$values[LOGO]" ] && printf '
-      <img class="item PHOTO" src="data:image/%s;base64,%s" />
-      ' "${values[LOGO_TYPE]}" "${values[LOGO]}"
-
-printf '</div>'
-
-if [ "$PROFILE" = circus ]; then
-  list_section phone TEL
-  list_section message EMAIL IMPP URL
-  list_section address ADR
-  list_section note NOTE X-CLIENT-REFERRAL
-  cat <<-END_HTML
-       <div class="section attendance">
-         <h3>$(l10n course_attendance)</h3>
-         $(listcourses |while read each; do
-           cname="$(sed -rn 's:^SUMMARY\:(.*)$:\1:p' "$_DATA/ical/$each")"
-           printf '<label><input type="checkbox" name="attendance" value="%s" %s/>%s</label>' \
-             "$(attribsafe "$each")" "$(check_a "$each")" "$(htmlsafe "$cname")"
-         done)
-          <h3>$(l10n CATEGORIES)</h3>
-          $(list_categories |while read each; do
-            printf '<label><input type="checkbox" name="CATEGORIES" value="%s" %s/>%s</label>' \
-              "$(attribsafe "$each")" "$(check_c "$each")" "$(htmlsafe "$each")"
-          done)
-       </div>
-       END_HTML
-elif [ "$PROFILE" = medical ]; then
-  list_section address ADR
-  list_section phone TEL EMAIL IMPP URL
-  cat <<-END_HTML
-       <div class="section insurance">
-         <h3>$(l10n X-HEALTH-INSURANCE)</h3>
-         <input type="radio" name="hi_select" value="list" id="hi_select_list" checked /><label for="hi_select_list">$(l10n hi_from_list)</label
-         ><input type="radio" name="hi_select" value="other" id="hi_other"><label for="hi_other">$(l10n hi_other)</label>
-         <select class="item" name="hi_company">
-           <option value="" disabled="disabled" ${hi_company:-selected}>$(l10n hi_company)</option>
-           $(list_hi_companies |while read -r f; do
-             printf '<option value="%s" %s>%s</option>
-             '  "$(attribsafe "$f")" "$([ "$f" = "$hi_company" ] && setselected )" "$(htmlsafe "$f")"
-           done)
-         </select>
-         <input type="text" name="hi_other" value="$hi_company" placeholder="$(l10n hi_company)" />
-         <input name="hi_number" value="$hi_number" placeholder="$(l10n hi_number)" />
-         <input name="hi_status" value="$hi_status" placeholder="$(l10n hi_status)" />
-       </div>
-       END_HTML
-  list_section note NOTE X-CLIENT-REFERRAL
-fi
-
-
-cat <<END_HTML
-  <div class="control">
-    <select class="item" name="newfield">
-      <option value="" disabled="disabled" selected="selected">$(l10n edit_addfieldtext)</option>
-      $(for f in $SUP_FIELDS; do printf '<option value="%s">%s</option>\n' "$f" "$(l10n "$f")"; done)
-    </select
-    ><button class="item" type="submit" name="action" value="addfield">$(l10n edit_addfield)</button>
-    <button class="item" type="submit" name="action" value="update">$(l10n edit_update)</button>
-    <input type="checkbox" id="delete"><label class="item" for="delete">$(l10n edit_delete)</label>
-      <button class="item" type="submit" name="action" value="delete">$(l10n edit_delete)</button>
-    <button class="item" type="submit" name="action" value="cancel">$(l10n edit_cancel)</button>
-  </div>
-  <input type="hidden" name="UID" value="$values[UID]"/>
-</form>
-END_HTML