Skip to content

Instantly share code, notes, and snippets.

/loghn.pl

Created December 13, 2014 11:01
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save anonymous/055a8fc90419b5beb9ba to your computer and use it in GitHub Desktop.
Save anonymous/055a8fc90419b5beb9ba to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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";
}
Raw
run-watchdog
ssh watchdog@chat.shazow.net | tee >(perl loghn.pl)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment