From 527dd9a2aed1e108ced3da0356363f6a927ce48f Mon Sep 17 00:00:00 2001
From: JozanLeClerc <bousset.rudy@gmail.com>
Date: Fri, 8 Apr 2022 23:01:23 +0200
Subject: In progress

---
 .local/bin/shutup | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

(limited to '.local/bin')

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;
 }
 
-- 
cgit v1.2.3