emoticons: Added.

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	\

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"
 

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

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/,$_;