diff options
Diffstat (limited to '.local/bin/dmbookm')
| -rwxr-xr-x | .local/bin/dmbookm | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/.local/bin/dmbookm b/.local/bin/dmbookm index 90b7c74..7578500 100755 --- a/.local/bin/dmbookm +++ b/.local/bin/dmbookm @@ -3,27 +3,28 @@ use strict; use warnings; use Sys::Hostname; - -# debug -use Data::Dumper; +use Env qw(BROWSER); use constant { - BROWSER => '/bin/firefox', HOSTNAME => (split /\./, hostname())[0] }; use constant LIST => { graf => 'http://graf.joe.town/', zhinu => 'https://zhinu.jozan.org/', + claude => 'https://claude.ai', perplexity => 'https://perplexity.ai/', chatgpt => 'https://chatgpt.com/', discord => 'https://discord.com/', protondb => 'https://www.protondb.com/', + vultr => 'https://my.vultr.com/', + epik => 'https://epik.com/', nua_grafana => 'https://grafana.nuabee.fr/', nua_gr_linux_servers => 'https://grafana.nuabee.fr/d/xfpJB9FGz/linux-servers', nua_gr_restops => 'https://grafana.nuabee.fr/d/Mz11bd07k/vue-d-ensemble-machines-atelier', nua_gr_alertops => 'https://grafana.nuabee.fr/d/WojOgXTmk/ops-alerts', nua_git => 'https://gitlab.int.ysosecure.com/', + nua_pipes => 'https://gitlab.int.ysosecure.com/ops/NuaProv/-/pipelines', nua_mbs => 'https://mbs.nuabee.com/', nua_hedgedoc => 'http://hedgedoc.int.ysosecure.com/', nua_doc => 'https://doc.int.ysosecure.com/', @@ -31,9 +32,14 @@ use constant LIST => { nua_zammad => 'https://support.nuabee.fr/', nua_atlas => 'https://atlas.nuabee.fr/', nua_share => 'https://share.nuabee.fr/', + nua_windmill => 'https://windmill.nuabee.fr/', nua_aether => 'https://aether.int.ysosecure.com/ui', nua_gaia => 'https://gaia.int.ysosecure.com/', - nua_cert => 'https://orca1.int.ysosecure.com/certsrv', + nua_certsrv => 'https://orca1.int.ysosecure.com/certsrv', + nua_sentry => 'https://sentry.nuabee.fr/', + nua_leek => 'https://leek.int.ysosecure.com/', + nua_otc => 'https://auth.otc.t-systems.com/', + nua_nm => 'https://dashboard.nm.nuabee.fr/', }; sub main @@ -41,7 +47,6 @@ sub main my $choice; my $url; my $pid; - my $prefix; my $list; my $color; @@ -49,10 +54,6 @@ sub main if (@ARGV == 1) { $color = $ARGV[0]; } - $prefix = '/usr'; - if (HOSTNAME eq "mars") { - $prefix += '/local'; - } for (sort keys %{LIST()}) { $list .= $_ . "\n"; } @@ -63,7 +64,7 @@ sub main chomp $choice; $pid = fork(); if (not $pid) { - exec($prefix . BROWSER, LIST->{$choice}); + exec($BROWSER, '--new-window', LIST->{$choice}); } return; } |