summaryrefslogtreecommitdiff
path: root/dot/local/bin/google
diff options
context:
space:
mode:
Diffstat (limited to 'dot/local/bin/google')
-rwxr-xr-xdot/local/bin/google6
1 files changed, 5 insertions, 1 deletions
diff --git a/dot/local/bin/google b/dot/local/bin/google
index 25604fb..94ebf0f 100755
--- a/dot/local/bin/google
+++ b/dot/local/bin/google
@@ -1,5 +1,9 @@
1#!/usr/bin/perl -w 1#!/usr/bin/perl -w
2$useragent = 'User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:64.0) Gecko/20100101 Firefox/64.0';
2 3
3$_ = join ' ', map { m/ / ? qq<"$_"> : $_ } @ARGV; 4$_ = join ' ', map { m/ / ? qq<"$_"> : $_ } @ARGV;
4s/([^a-zA-Z0-9])/sprintf "%%%x", ord $1/ge; 5s/([^a-zA-Z0-9])/sprintf "%%%x", ord $1/ge;
5exec qw(w3m), "http://www.google.com/search?q=$_" 6$url = "https://www.google.com/search?q=$_";
7
8if ($ENV{NO_FAKE_UA}) { exec qw(w3m), "$url" }
9else { exec qw(w3m -o), "user_agent=$useragent", "$url" }