diff options
Diffstat (limited to '.local/bin/dmbookm')
| -rwxr-xr-x | .local/bin/dmbookm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/.local/bin/dmbookm b/.local/bin/dmbookm index dcd0e36..9190dca 100755 --- a/.local/bin/dmbookm +++ b/.local/bin/dmbookm @@ -4,11 +4,8 @@ use strict; use warnings; use Sys::Hostname; -# debug -use Data::Dumper; - use constant { - BROWSER => '/bin/firefox', + BROWSER => 'surf', HOSTNAME => (split /\./, hostname())[0] }; @@ -47,7 +44,6 @@ sub main my $choice; my $url; my $pid; - my $prefix; my $list; my $color; @@ -55,10 +51,6 @@ sub main if (@ARGV == 1) { $color = $ARGV[0]; } - $prefix = '/usr'; - if (HOSTNAME eq "mars") { - $prefix += '/local'; - } for (sort keys %{LIST()}) { $list .= $_ . "\n"; } @@ -69,7 +61,7 @@ sub main chomp $choice; $pid = fork(); if (not $pid) { - exec($prefix . BROWSER, LIST->{$choice}); + exec(BROWSER, LIST->{$choice}); } return; } |