From a25a6e044e8a707d7fb12800e72a122b1156a3fa Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Sun, 4 Oct 2020 13:47:31 +0200
Subject: [PATCH] emoticons: Added.

---
 Makefile            |  4 +--
 drac/drac           |  2 ++
 emoticons/emoticons | 66 +++++++++++++++++++++++++++++++++++++++++++++
 rrm/rclean          |  5 ++++
 4 files changed, 75 insertions(+), 2 deletions(-)
 create mode 100755 emoticons/emoticons

diff --git a/Makefile b/Makefile
index a05c187..7be0e25 100644
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
-CMD = blink 2grep 2search burncpu drac duplicate-packets em encdir	\
-	field find-first-fail forever fxkill G gitnext gitundo		\
+CMD = blink 2grep 2search burncpu drac duplicate-packets em emoticons	\
+	encdir field find-first-fail forever fxkill G gitnext gitundo	\
 	goodpasswd histogram mtrr mirrorpdf neno off parsort pdfman	\
 	pidcmd pidtree plotpipe puniq ramusage rand rclean rina rn	\
 	rrm seekmaniac shython sound-reload splitvideo stdout swapout	\
diff --git a/drac/drac b/drac/drac
index 2d47425..0609e32 100755
--- a/drac/drac
+++ b/drac/drac
@@ -125,6 +125,8 @@ get=$(
 	echo 'No lynx, wget, curl, fetch: Please file a bug report with which tool you use for downloading URLs' >&2
    )
 
+w4it-for-port-open "$DRAC_HOST" 80
+
 # Use http instead of https to avoid dealing with self signed cert
 $get http://"$DRAC_HOST"/software/avctKVM.jar > "$tmp"
 
diff --git a/emoticons/emoticons b/emoticons/emoticons
new file mode 100755
index 0000000..a9a12f6
--- /dev/null
+++ b/emoticons/emoticons
@@ -0,0 +1,66 @@
+#!/bin/bash
+
+: <<=cut
+=pod
+
+=head1 NAME
+
+emoticons - Show UTF-8 emoticons
+
+
+=head1 SYNOPSIS
+
+B<emoticons>
+
+
+=head1 DESCRIPTION
+
+B<emoticons> shows the UTF-8 emoticons in the terminal. Useful for
+copy/paste.
+
+
+=head1 EXAMPLE
+
+Show the emoticons
+
+  emoticons
+
+
+=head1 AUTHOR
+
+Copyright (C) 2020 Ole Tange,
+http://ole.tange.dk and Free Software Foundation, Inc.
+
+
+=head1 LICENSE
+
+Copyright (C) 2012 Free Software Foundation, Inc.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 3 of the License, or
+at your option any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+=head1 DEPENDENCIES
+
+B<emoticons> uses B<perl>.
+
+
+=head1 SEE ALSO
+
+B<printf>
+
+
+=cut
+
+printf $(perl -e 'map { printf "\\U%x",$_ } 128512..128591, 128640..128725')
+echo
diff --git a/rrm/rclean b/rrm/rclean
index 0054694..d7f0980 100755
--- a/rrm/rclean
+++ b/rrm/rclean
@@ -22,6 +22,11 @@ close IN;
 # Read hash-value of removed files of a given size
 my %rrm;
 my $rrmfile = find_rrm_file(".") || ".rrm";
+if(not -r $rrmfile) {
+    print STDERR "Cannot read $rrmfile\n";
+    exit(1);
+}
+    
 open(RRM,"<",$rrmfile) || die;
 while(<RRM>) {
     my($size,$hashval,$file) = split /\t/,$_;