emoticons: Added.

This commit is contained in:
Ole Tange 2020-10-04 13:47:31 +02:00
parent 34e0b4e136
commit a25a6e044e
4 changed files with 75 additions and 2 deletions

View file

@ -1,5 +1,5 @@
CMD = blink 2grep 2search burncpu drac duplicate-packets em encdir \ CMD = blink 2grep 2search burncpu drac duplicate-packets em emoticons \
field find-first-fail forever fxkill G gitnext gitundo \ encdir field find-first-fail forever fxkill G gitnext gitundo \
goodpasswd histogram mtrr mirrorpdf neno off parsort pdfman \ goodpasswd histogram mtrr mirrorpdf neno off parsort pdfman \
pidcmd pidtree plotpipe puniq ramusage rand rclean rina rn \ pidcmd pidtree plotpipe puniq ramusage rand rclean rina rn \
rrm seekmaniac shython sound-reload splitvideo stdout swapout \ rrm seekmaniac shython sound-reload splitvideo stdout swapout \

View file

@ -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 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 # Use http instead of https to avoid dealing with self signed cert
$get http://"$DRAC_HOST"/software/avctKVM.jar > "$tmp" $get http://"$DRAC_HOST"/software/avctKVM.jar > "$tmp"

66
emoticons/emoticons Executable file
View file

@ -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

View file

@ -22,6 +22,11 @@ close IN;
# Read hash-value of removed files of a given size # Read hash-value of removed files of a given size
my %rrm; my %rrm;
my $rrmfile = find_rrm_file(".") || ".rrm"; my $rrmfile = find_rrm_file(".") || ".rrm";
if(not -r $rrmfile) {
print STDERR "Cannot read $rrmfile\n";
exit(1);
}
open(RRM,"<",$rrmfile) || die; open(RRM,"<",$rrmfile) || die;
while(<RRM>) { while(<RRM>) {
my($size,$hashval,$file) = split /\t/,$_; my($size,$hashval,$file) = split /\t/,$_;