- tags="$(UNSTRING "${tags#tags=}" |tr , '\n')"
-
- for tn in $(seq 1 $(POST_COUNT tag)); do
- tags="$(printf '%s\n%s' "$tags" "$(POST tag $tn)")"
- done
- tags="$(printf '%s\n%s' "$tags" "$(POST newtag |tr -d '\r')")"
-
- tags="$(printf %s "$tags" |sort -u |tr '\n' ,)"
- printf '%i\t%i\t%i\ttags=%s\t%s\t%s\n' \
- "$length" "$width" "$height" \
- "$(STRING "${tags#,}")" \
- "$comment" "$fn" \
- >>"${meta}.tmp"
+ printf '%i %i %i tags=%s comment=%s %s\n' \
+ "$length" "$width" "$height" "$tags" \
+ "${comment#comment=}" "$fn" \
+ >>"${meta}.tmp"