diff options
| author | JozanLeClerc <bousset.rudy@gmail.com> | 2022-04-08 23:01:23 +0200 |
|---|---|---|
| committer | JozanLeClerc <bousset.rudy@gmail.com> | 2022-04-08 23:01:23 +0200 |
| commit | 527dd9a2aed1e108ced3da0356363f6a927ce48f (patch) | |
| tree | ff20bd99a91c498fa153d6cf539a974d7a04ca3f /.local/bin | |
| parent | Added lf path to work dir because I have a job (diff) | |
| download | dotfiles-bsd-527dd9a2aed1e108ced3da0356363f6a927ce48f.tar.gz dotfiles-bsd-527dd9a2aed1e108ced3da0356363f6a927ce48f.tar.bz2 dotfiles-bsd-527dd9a2aed1e108ced3da0356363f6a927ce48f.tar.xz dotfiles-bsd-527dd9a2aed1e108ced3da0356363f6a927ce48f.tar.zst dotfiles-bsd-527dd9a2aed1e108ced3da0356363f6a927ce48f.zip | |
In progress
Diffstat (limited to '.local/bin')
| -rwxr-xr-x | .local/bin/shutup | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/.local/bin/shutup b/.local/bin/shutup index d5d7b46..47812bb 100755 --- a/.local/bin/shutup +++ b/.local/bin/shutup @@ -2,15 +2,26 @@ use strict; use warnings; -use File::HomeDir qw(home) +use File::HomeDir qw(home); use constant { - DUNSTRC_PATH => home() . '/.config/dunst/dunstrc' + DUNSTRC_PATH => home() . '/.config/dunst/dunstrc', NOTIFYSEND_PATH => '/usr/local/bin/notify-send' -} +}; sub main() { + my @lines; + + open(FH, '<', DUNSTRC_PATH) or die $!; + @lines = do { + local $/; + <FH> + }; + close(FH); + open(FH, '>', home() . '/tmp') or die $!; + print FH @lines; + close(FH); return; } |