blob: 743c69c59f6b401e174bd3dd473dacec22c9fcc7 (
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(echo "uri http://en.wikipedia.org/w/index.php?search=@ARGV" >> $fifo);
}
else
{
qx(echo "uri @cmd" >> $fifo);
}
|
