#!/bin/sh
#
# Script to register the paid invoices in the member register

set -e

usage() {
    cat <<EOF
Usage: $0 [invoicenumber] [invoicenumber...]
EOF
exit
}

if [ -z "$1" ] ; then
    usage
    exit 1
fi

# Sjekk konsistensen i fila.  Feil er fatale (set -e avbryter
# scriptet), mens advarsler kan ignoreres
$(dirname $0)/medlemsliste-check
$(dirname $0)/medlemsliste-check -w || true

($(dirname $0)/sws-test -x "<select>LAST 500<where><states><state>paid</state></states></where></select>" |
	egrep 'recipientNo|invoice' |
	tr -d "\r\n" |
	perl -pe "s/  <invoice>/\n  <invoice>/g" ;\
	echo \
	) > betalt-kort.xml

echo -n > betalt.xml
for n in $@; do
    grep ">$n<" betalt-kort.xml | sed 's%</\([^/ ]*\)>%</\1>\n%g' >> betalt.xml
done

$(dirname $0)/medlemsliste-makeinvoices -p betalt.xml > foo && \
  mv foo medlemsliste.csv

# List changes
git diff medlemsliste.csv|cut -f1-2,7,21,26-|egrep '^(+|-)'