50 lines
1.1 KiB
Awk
50 lines
1.1 KiB
Awk
# printrun.awk
|
|
#
|
|
# calculate cost of a fanzine printrun
|
|
#
|
|
# usage:
|
|
#
|
|
# awk -f printrun.awk verteiler
|
|
#
|
|
# verteiler:
|
|
#
|
|
# csv file with info on subscriptions.
|
|
#
|
|
# format:
|
|
# best, beleg, gezahlt, verschickt, anschrift
|
|
#
|
|
# with best: zines ordered
|
|
# beleg: free zines because of submission
|
|
# gezahlt: this much has been payed
|
|
# verschickt: 0 = nothing sent yet, n = this many zines have been sent
|
|
# anschrift: postal address of subscriber
|
|
#
|
|
BEGIN {
|
|
FS=", "
|
|
bestell=0
|
|
beleg=0
|
|
zahlungen=0
|
|
belegvers=2.00
|
|
druck=131.45
|
|
}
|
|
!/#.*/{
|
|
bestell=bestell+$1
|
|
beleg=beleg+$2
|
|
zahlungen=zahlungen+$3
|
|
if ( $1 != 0 || $2 != 0) {
|
|
print $1+$2 " " $1 " " $2 " " $5 " " $6 " " $7 " " $8
|
|
}
|
|
}
|
|
END {
|
|
preis=(druck+beleg*belegvers)/bestell
|
|
printf "%i Bestellungen\n", bestell
|
|
printf "%i Belegexemplare\n", beleg
|
|
printf "-------------------\n"
|
|
printf "Auflage: %i\n", beleg+bestell
|
|
printf "Druckkosten: %2.2f €\n", druck
|
|
printf "Belegversand: %2.2f €\n", beleg*belegvers
|
|
printf "Bestellpreis: %2.2f €\n", preis
|
|
printf "-------------------\n"
|
|
printf "Ergebnis: %2.2f €\n", zahlungen
|
|
}
|