aboutsummaryrefslogtreecommitdiff
path: root/config/uzbl/scripts/gonew.pl
blob: 33dac8234bc96f0551ee519f887bd1af188b85ad (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl

my @cmd = @ARGV;
my $fifo = $ENV{'UZBL_FIFO'};


#If there are no dots in the first word or more than one word is suppllied expect a phrase for google. Else go to the uri specified.
if (index(@cmd[0], '.') == -1 || scalar @cmd > 1)
{
        # Replace this with your search engine
	qx(uzbl-browser --uri "https://encrypted.google.com/search?q=@ARGV&hl=en");
}
else
{
	qx(uzbl-browser --uri @cmd");
}