git.plutz.net Git - lobster/blob - cards/list.sh

   1 #!/bin/sh
   2
   3 . "${_EXEC}"/pdiread.sh
   4
   5 edit_card(){
   6   local cardfile="$_DATA/vcard/$1"
   7   local tempfile card
   8
   9   . $_EXEC/session_lock.sh
  10
  11   if ! tempfile="$(CHECK_SLOCK "$cardfile")"; then
  12     printf '[div .message %s]' "$(l10n "This card is not set up for editing within this session.")"
  13   else
  14     card="$(pdi_load "$tempfile")"
  15     cat <<-EOF
  16         [span .card-anchor #${cardfile##*/}]
  17         [form .card action="/cards/update_card.sh" method="POST"
  18           [input type="hidden" name="tid" value="$(transid ${tempfile})"]
  19           [div .section .basic $(
  20             edit_item "$card" N GENDER
  21             [ "$(pdi_count "$card" NICKNAME)" -gt 0 ] \
  22             && edit_item "$card" NICKNAME
  23             edit_item "$card" BDAY
  24             card_item "$card" SOUND PHOTO LOGO
  25           )]
  26           [div .section .phone   $(
  27             edit_item "$card" TEL EMAIL
  28             [ $(pdi_count "$card" IMPP) -gt 0 ] \
  29             && edit_item "$card" IMPP
  30             [ $(pdi_count "$card" URL ) -gt 0 ] \
  31             && edit_item "$card" URL
  32           )]
  33           [div .section .address $(edit_item "$card" ADR)]
  34           [div .section .insurance $(edit_item "$card" X-HEALTH-INSURANCE)]
  35           [div .section .note    $(edit_item "$card" NOTE X-CLIENT-REFERRAL)]
  36           [div .control
  37             [select .item name="newfield"
  38               [option value="" disabled="disabled" selected="selected" $(l10n edit_addfieldtext)]
  39               $(for f in NICKNAME EMAIL TEL IMPP ADR URL NOTE; do
  40                 printf '[option value="%s" %s] ' "$f" "$(l10n "$f")"
  41               done)
  42            ][button .item type="submit" name="action" value="addfield" $(l10n edit_addfield)]
  43             [button .item type="submit" name="action" value="update"   $(l10n edit_update)]
  44             [input type="checkbox" #delete] [label .item for="delete" $(l10n edit_delete)]
  45               [button .item type="submit" name="action" value="delete"]
  46             [button .item type="submit" name="action" value="cancel"   $(l10n edit_cancel)]
  47           ]
  48           [input type="hidden" name="UID" value="$(pdi_value "$card" UID |HTML)"]
  49           [input type="hidden" name="card" value="${cardfile##*/}"]
  50         ]
  51         EOF
  52   fi
  53 }
  54
  55 print_card(){
  56   local cardfile="$1"
  57   local card="$(pdi_load "$cardfile")"
  58   local N1 N2 N3 N4 N5
  59   IFS=\; read N1 N2 N3 N4 N5 <<-EOF
  60         $(pdi_value "$card" N |pdi_unescape |HTML)
  61         EOF
  62
  63   cat <<-EOF
  64     [span .card-anchor #${cardfile##*/}]
  65     [div .card
  66       [div .section .basic
  67       [h2 .item .FN . $N4 $N1 $N5]
  68       [span .item .firstname . $N2 $N3]
  69       $(
  70         card_item "$card" GENDER NICKNAME BDAY X-ZACK-JOINDATE X-ZACK-LEAVEDATE SOUND PHOTO LOGO
  71       )]
  72       [div .section .address   $(card_item "$card" ADR)]
  73       [div .section .phone     $(card_item "$card" TEL EMAL IMPP URL)]
  74       [div .section .insurance $(card_item "$card" X-HEALTH-INSURANCE)]
  75       [div .section .note      $(card_item "$card" NOTE X-CLIENT-REFERRAL)]
  76       [div .section .therapies $(card_item "$card" therapies)]
  77       [div .control
  78         [a .item href="/cards/edit_card.sh?card=${cardfile##*/}" $(l10n edit)]
  79         [a .item href="/cards/export_card.sh?card=${cardfile##*/}" $(l10n vcf_export)]
  80       ]
  81     ]
  82         EOF
  83 }
  84
  85 print_cards(){
  86   local cardfile cachefile date size name ldate=0 lsize lname
  87
  88   while read cardfile; do
  89     cachefile="${_DATA}/cache/${cardfile##*/}.cache"
  90     if [ -s "$cachefile" -a "$cachefile" -nt "$cardfile" ]; then
  91       cat "$cachefile"
  92     else
  93       print_card "$cardfile" |tee "$cachefile"
  94     fi
  95   done
  96 }
  97
  98 filter_cards(){
  99   local filter f fex='x;p;'
 100
 101   filter="$(printf %s "${filter}" \
 102             | sed -E 's;[]\/\(\)\\\$\?\.\+\*\;\[\{\}];\\\\&;g;
 103                       '"$upcase"
 104            )^"
 105
 106   while [ "$filter" ]; do
 107     f="${filter%%^*}" filter="${filter#*^}"
 108     debug "Filter: $f"
 109     case $f in
 110       '') break
 111         ;;
 112       ANY:*) fex="/\n.*(\;[^:]*)?:.*(${f#*:}).*\r?\n/{${fex}}"
 113         ;;
 114       NAME:*) fex="/\n(N|FN|NICKNAME)(\;[^:]*)?:[^\n]*(${f#*:}).*\r?\n/{${fex}}"
 115         ;;
 116       STREET:*|ZIP:*) fex="/\nADR(\;[^:]*)?:[^\n]*(${f#*:}).*\r?\n/{${fex}}"
 117         ;;
 118       *) fex="/\n${f%%:*}(\;[^:]*)?:[^\n]*(${f#*:}).*\r?\n/{${fex}}"
 119         ;;
 120     esac
 121   done
 122
 123   for cardfile in "${_DATA}"/vcard/*.vcf; do
 124     printf '%s\n' "$cardfile" "$(grep -vxE " *${CR}?" "$cardfile")"
 125   done \
 126   | sed -En ':X; /\nEND;?:VCARD\r?$/!{ N; bX; }; h; s;\n.*$;;; x; s;^[^\n]+\n;;;
 127              '"$upcase""$fex"
 128 }
 129
 130 order_cards() {
 131   local cardfile card
 132
 133   while read cardfile; do
 134     card="$(pdi_load "$cardfile")"
 135
 136     case $order in
 137       firstname)
 138         printf '%s      %s\n' "$(pdi_value "$card" FN)" "$cardfile"
 139         ;;
 140       lastname)
 141         printf '%s      %s\n' "$(pdi_value "$card" N || pdi_value "$card" FN)" "$cardfile"
 142         ;;
 143       bdate)
 144         printf '%s      %s\n' "$(pdi_value "$card" BDAY || printf 0000-00-00)" "$cardfile"
 145         ;;
 146     esac
 147   done \
 148   | sort \
 149   | sed -E 's;^.*\t;;g'
 150 }
 151
 152 list_cards(){
 153   filter_cards \
 154   | order_cards \
 155   | grep -xvF "$edit" \
 156   | print_cards
 157 }