Remove most unused perl scripts and modules

1 files changed, 0 insertions, 24 deletions

diff --git a/bin/mimosawatch b/bin/mimosawatch
deleted file mode 100755
index 88d34a3..0000000
--- a/bin/mimosawatch
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use 5.020;
-
-use File::Slurp qw(slurp);
-use IO::Handle;
-
-our $VERSION = '0.00';
-
-STDOUT->autoflush(1);
-
-while (sleep(1)) {
-	if ( -e '/tmp/mimosa/mimosa_scale_100000.tmp' ) {
-		my $raw_data = slurp('/tmp/mimosa/mimosa_scale_100000.tmp');
-		my @data = map { $_ >> 8 } unpack('L*', $raw_data);
-		my @buzzer = map { $_ & 0x0f } unpack('L*', $raw_data);
-
-		if (@data > 8) {
-			printf("\r\e[2K" . ('%8d ' x 8), @data[-8 .. -1]);
-		}
-	}
-}