#!/usr/bin/env perl
# uzblcat - safely push html to uzbl
# See http://www.uzbl.org/wiki/html-mode
use strict; use warnings;
my $html;
local $/; # slurp files
# automagically choose to read from stdin/files/...
$html .= $_ for <>;
my $endmarker = rand;
$endmarker .= rand() while $html =~ /^\Q$endmarker\E$/m;
print "set base_url = $ENV{BASE_URL}\n" if $ENV{BASE_URL};
print << "EOS";
set html_endmarker = $endmarker
set mode = 1
$html
$endmarker
EOS