#!/usr/bin/perl -s

$attribs = 'border=1';

# tsv2html - filter tab-separated text into an HTML table
# Steve Kinzler, kinzler@cs.indiana.edu, Mar 07
# http://www.cs.indiana.edu/~kinzler/home.html#unix

die "usage: $0 [ -t ] [ -T ] [ -l ] [ -L ] [ file ... ]
	-t	highlights the first row as titles
	-T	highlights the second row as titles
	-l	remove := labels on each field value
	-L	highlight first row := labels as a new title row\n" if $h;

print '<table', $attribs ? ' ' : '', "$attribs>\n";
while (<>) {
	chop;
	@_ = split(/\t/);
	if ($L && $. == 1) {
		print '<tr>';
		foreach (@_) {
			$lbl = /(.*):=/ ? $1 : '';
			print "<th>", &htmlencode($lbl), "</th>";
		}
		print "</tr>\n";
	}
	print '<tr>';
	$td = ($t && $. == 1 || $T && $. == 2) ? 'th' : 'td';
	foreach (@_) {
		s/.*:=// if $l;
		print "<$td>", &htmlencode($_), "</$td>";
	}
	print "</tr>\n";
}
print "</table>\n";

###############################################################################

sub htmlencode {
	local($_, $mlm) = (join('', @_), $*);
	$* = 1;
	s/&/&amp;/g;
	s/</&lt;/g;
	s/>/&gt;/g;
	$* = $mlm;
	return $_;
}