diff options
Diffstat (limited to 'examples/data/uzbl/scripts/uzblcat')
-rwxr-xr-x | examples/data/uzbl/scripts/uzblcat | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/data/uzbl/scripts/uzblcat b/examples/data/uzbl/scripts/uzblcat index 82341c7..5c3063e 100755 --- a/examples/data/uzbl/scripts/uzblcat +++ b/examples/data/uzbl/scripts/uzblcat @@ -2,15 +2,15 @@ # 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 |