l0gicpath/loghn.pl

## loghn.pl
use HTML::FromANSI ();

open (LOG, '>>hnchatlog.html');
select((select(LOG), $|=1)[0]);
print LOG "<body bgcolor=black>\n";
while (<>) {
  my $h = HTML::FromANSI->new();
  print LOG $h->ansi_to_html($_), "\n";
}

## run-watchdog
ssh watchdog@chat.shazow.net | tee >(perl loghn.pl)
	use HTML::FromANSI ();

	open (LOG, '>>hnchatlog.html');
	select((select(LOG), $\|=1)[0]);
	print LOG "<body bgcolor=black>\n";
	while (<>) {
	my $h = HTML::FromANSI->new();
	print LOG $h->ansi_to_html($_), "\n";
	}