diff options
| author | Debian Live user <user@debian-BULLSEYE-live-builder-AMD64> | 2023-04-29 16:31:48 -0400 |
|---|---|---|
| committer | Debian Live user <user@debian-BULLSEYE-live-builder-AMD64> | 2023-04-29 16:31:48 -0400 |
| commit | e16120f04122816ce887ee786c16a0b8be7008a4 (patch) | |
| tree | 3b8a111e492dd18935962a08fdd820b9a6ff52c5 | |
| parent | 00d390947b9ec98d6adb04deaa42a3cadf645548 (diff) | |
google: pass through options to w3m; and allow launching firefox
| -rwxr-xr-x | dot/local/bin/google | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/dot/local/bin/google b/dot/local/bin/google index 94ebf0f..21c9feb 100755 --- a/dot/local/bin/google +++ b/dot/local/bin/google | |||
| @@ -1,9 +1,26 @@ | |||
| 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 | $useragent = 'User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:64.0) Gecko/20100101 Firefox/64.0'; |
| 3 | 3 | ||
| 4 | my @w3m = qw(w3m); | ||
| 5 | while ($ARGV[0] =~ m/^-/) | ||
| 6 | { | ||
| 7 | if ($ARGV[0] eq '--') { | ||
| 8 | shift; | ||
| 9 | last; | ||
| 10 | } elsif ($ARGV[0] eq '--firefox') { | ||
| 11 | shift; | ||
| 12 | $w3m[0] = 'firefox'; | ||
| 13 | } else { | ||
| 14 | push @w3m, shift(); | ||
| 15 | } | ||
| 16 | } | ||
| 17 | |||
| 4 | $_ = join ' ', map { m/ / ? qq<"$_"> : $_ } @ARGV; | 18 | $_ = join ' ', map { m/ / ? qq<"$_"> : $_ } @ARGV; |
| 5 | s/([^a-zA-Z0-9])/sprintf "%%%x", ord $1/ge; | 19 | s/([^a-zA-Z0-9])/sprintf "%%%x", ord $1/ge; |
| 6 | $url = "https://www.google.com/search?q=$_"; | 20 | $url = "https://www.google.com/search?q=$_"; |
| 7 | 21 | ||
| 8 | if ($ENV{NO_FAKE_UA}) { exec qw(w3m), "$url" } | 22 | if (!$ENV{NO_FAKE_UA}) { |
| 9 | else { exec qw(w3m -o), "user_agent=$useragent", "$url" } | 23 | push @w3m, qw(-o), "user_agent=$useragent"; |
| 24 | } | ||
| 25 | |||
| 26 | exec @w3m, $url; | ||