New script to show date as notification;

1 files changed, 84 insertions, 0 deletions

diff --git a/.local/bin/ndate b/.local/bin/ndate
new file mode 100755
index 0000000..3fd775e
--- /dev/null
+++ b/.local/bin/ndate
@@ -0,0 +1,84 @@
+#!/usr/local/bin/perl
+# ========================
+# =====    ===============
+# ======  ================
+# ======  ================
+# ======  ====   ====   ==
+# ======  ===     ==  =  =
+# ======  ===  =  ==     =
+# =  ===  ===  =  ==  ====
+# =  ===  ===  =  ==  =  =
+# ==     =====   ====   ==
+# ========================
+#
+# SPDX-License-Identifier: BSD-3-Clause
+#
+# Copyright (c) 2022 Joe
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. Neither the name of the organization nor the
+#    names of its contributors may be used to endorse or promote products
+#    derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY JOE ''AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL JOE BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# ndate
+# Mon Apr 11 21:47:39 CEST 2022
+# Joe
+#
+# Script to show current date and time as notification, nice
+
+use strict;
+use warnings;
+use Capture::Tiny qw(capture);
+
+use constant {
+	DATE_PATH		=> '/bin/date',
+	NOTIFYSEND_PATH	=> '/usr/local/bin/notify-send'
+};
+
+sub main
+{
+	my $date;
+	my $ret;
+
+	($date, undef, $ret) = capture {
+		system(DATE_PATH, '+%a %d %b %Y %H:%M');
+	};
+	if ($ret) {
+		return 1;
+	}
+	$date = scalar reverse $date;
+	$date =~ s/ /\n/;
+	$date = scalar reverse $date;
+	system(
+		NOTIFYSEND_PATH,
+		'-u',
+		'low',
+		'-t',
+		'2000',
+		'date',
+		$date
+		);
+	return;
+}
+
+main();
+
+__END__