diff options
Diffstat (limited to 'dot/local/bin/google')
-rwxr-xr-x | dot/local/bin/google | 6 |
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; |
4 | s/([^a-zA-Z0-9])/sprintf "%%%x", ord $1/ge; | 5 | s/([^a-zA-Z0-9])/sprintf "%%%x", ord $1/ge; |
5 | exec qw(w3m), "http://www.google.com/search?q=$_" | 6 | $url = "https://www.google.com/search?q=$_"; |
7 | |||
8 | if ($ENV{NO_FAKE_UA}) { exec qw(w3m), "$url" } | ||
9 | else { exec qw(w3m -o), "user_agent=$useragent", "$url" } | ||