provide debug function

[lobster] / cards / index.cgi

diff --git a/cards/index.cgi b/cards/index.cgi
index 639bb64f6bcce59ac013a7e039aacf542e511b18..6fb7bae507a2c2299736e0033bbe08f1caf11ae9 100755 (executable)
--- a/cards/index.cgi
+++ b/cards/index.cgi
@@ -21,6 +21,11 @@ edit="$(GET e |PATH)"
 [ "$order" ] || order=lastname
 edit="${edit##*/}"
 
+list_hi_companies(){
+  sed -rn 's;^X-HEALTH-INSURANCE:([^\;]+)\;.*$;\1;p' ${_DATA}/vcard/*vcf \
+  | sort -u
+}
+
 { w_filter_diag
   printf '
   [form class="newcard" action="/cards/new_card.sh" method="POST"