diff options
| author | joe <rbo@gmx.us> | 2025-09-30 17:54:44 +0200 |
|---|---|---|
| committer | joe <rbo@gmx.us> | 2025-09-30 17:54:44 +0200 |
| commit | 9ce4f10eeda968206bdf591b0a64a95fa41f1411 (patch) | |
| tree | 668743746310033f7ebb3371c5397b2e3c7612f9 /.local/bin/dmbookm | |
| parent | up (diff) | |
| download | dotfiles-bsd-9ce4f10eeda968206bdf591b0a64a95fa41f1411.tar.gz dotfiles-bsd-9ce4f10eeda968206bdf591b0a64a95fa41f1411.tar.bz2 dotfiles-bsd-9ce4f10eeda968206bdf591b0a64a95fa41f1411.tar.xz dotfiles-bsd-9ce4f10eeda968206bdf591b0a64a95fa41f1411.tar.zst dotfiles-bsd-9ce4f10eeda968206bdf591b0a64a95fa41f1411.zip | |
up
Diffstat (limited to '')
| -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; } |