git.plutz.net Git - lobster/blob - cards/index.cgi

   1 #!/bin/sh
   2
   3 if [ "$_PATH" = "/cards/cards.css" ]; then
   4   . $_EXEC/cgilite/file.sh
   5   FILE $_EXEC/cards/cards.css
   6   return 0
   7 fi
   8
   9 . $_EXEC/pdiread.sh
  10 . $_EXEC/cards/l10n.sh
  11 . $_EXEC/cards/widgets.sh
  12 . $_EXEC/cards/list.sh
  13
  14 #unescape() { [ $# = 0 ] && sed -E 's;\\(.);\1;g' || printf %s "$*" |sed -E 's;\\(.);\1;g'; }
  15 upcase=' y;abcdefghijklmnopqrstuvwxyzäöüé;ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜÉ;; '
  16
  17 filter="$(GET f)"
  18 order="$(GET o)"
  19 edit="$(GET e |PATH)"
  20
  21 [ "$order" ] || order=lastname
  22 edit="${edit##*/}"
  23
  24 list_hi_companies(){
  25   sed -rn 's;^X-HEALTH-INSURANCE:([^\;]+)\;.*$;\1;p' ${_DATA}/vcard/*vcf \
  26   | sort -u
  27 }
  28
  29 { w_filter_diag
  30   printf '
  31   [form class="newcard" action="/cards/new_card.sh" method="POST"
  32     [a href="#top" . %s]
  33     [button type="submit" %s]
  34   ]' "$(l10n top)" "$(l10n newcard)"
  35
  36   [ "$edit" ] && edit_card "$edit"
  37   list_cards
  38 } | yield_page cards /cards/cards.css