aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/data/uzbl/scripts/uzblcat
diff options
context:
space:
mode:
Diffstat (limited to 'examples/data/uzbl/scripts/uzblcat')
-rwxr-xr-xexamples/data/uzbl/scripts/uzblcat6
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