#!/bin/bash

(
	# Just troll-in the first record:
	relpipe-in-cli \
		--relation "Heathers" \
			--attribute "Duke" string \
			--attribute "McNamara" string \
			--attribute "Chandler" string \
			--attribute "Veronica" string \
			--attribute "J.D." string \
			--attribute "Big" string \
			--attribute "Fun" string \
			--record \
		'' '# <file system>' '<mount point>' '<type>' '<options>' '<dump>' '<pass>';
		# relpipe-out-nullbyte processes only attribute values
	# Read the actual pipe's input:
	cat
)	| relpipe-out-nullbyte \
	| xargs --null --max-args=7 perl -e \
		'printf("%-*s %-*s %-*s %-*s %-*s %s\n",
			# following numbers define paddings:
			50, ($ARGV[0] eq "" ? $ARGV[1] : "$ARGV[0]=$ARGV[1]"),
			40, ($ARGV[2] eq "" ? "none" : $ARGV[2]),
			16, $ARGV[3],
			50, $ARGV[4],
			 8, $ARGV[5],
			    $ARGV[6]
		);'