From 3c4072c45399b0ec972432dd46e4ae9ab4d73ce0 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Mon, 13 May 2019 11:42:32 +0200
Subject: [PATCH] mxmirror: Remove dead code (time related subs)

---
 mxmirror/mxmirror | 136 ----------------------------------------------
 1 file changed, 136 deletions(-)

diff --git a/mxmirror/mxmirror b/mxmirror/mxmirror
index 643c94d..6944f37 100755
--- a/mxmirror/mxmirror
+++ b/mxmirror/mxmirror
@@ -878,139 +878,3 @@ sub read_jbodmap {
 
     return $map;
 }
-
-
-sub DeltaTime {
-    my $t1 = shift;
-    my $t2 = shift;
-
-    my $dm = TimeToSeconds($t2) - TimeToSeconds($t1);
-
-    $dm = ($dm < 0) ? ($dm + 24*60*60) : $dm;
-
-    my $dt = SecondsToTime($dm);
-
-#    print Dumper ["delta", $t1, $t2, $dt, $dm];
-
-    return $dt;
-}
-
-sub AddDeltaTime {
-    my $t1 = shift;
-    my $dt = shift;
-
-    my $m = TimeToSeconds($t1) + TimeToSeconds($dt);
-
-    my $t2 = SecondsToTime($m);
-
-#    print Dumper ["add", $t1, $dt, $t2, $m];
-
-    return $t2;
-}
-
-sub SubDeltaTime {
-    my $t1 = shift;
-    my $dt = shift;
-
-    my $m = TimeToSeconds($t1) - TimeToSeconds($dt);
-
-    my $t2 = SecondsToTime($m);
-
-#    print Dumper ["add", $t1, $dt, $t2, $m];
-
-    return $t2;
-}
-
-
-sub TimeToMinutes {
-    my $t = shift;
-    my $m;
-
-    $m = ($t->[0]*60 + $t->[1]) % (24*60);
-
-#    print Dumper ["t2min", $t, $m];
-
-    return $m;
-
-}
-
-sub TimeToSeconds {
-    my $t = shift;
-    my $m;
-
-    $m = ($t->[0]*60*60 + $t->[1]*60 + $t->[2]) % (24*60*60);
-
-#    print Dumper ["t2min", $t, $m];
-
-    return $m;
-
-}
-
-sub SecondsToTime {
-    my $s = shift;
-    my $t = [0,0,0];
-
-    $t->[0] = int($s/(60*60));
-
-    $s -= ($t->[0] * 60*60);
-
-    $t->[1] = int($s/60);
-
-    $s -= ($t->[1] * 60);
-
-    $t->[2] = $s;
-
-    # this is my very first use of the %= statement EVER!
-    # YEAH! mx.
-
-    $t->[0] %= 24;
-
-#    print Dumper ["min2t", $m, $t];
-
-    return $t;
-
-}
-
-
-sub MinutesToTime {
-    my $m = shift;
-    my $t = [0,0,0];
-
-    $t->[0] = int($m/60);
-    $t->[1] = $m - ($t->[0] * 60);
-
-    # this is my very first use of the %= statement EVER!
-    # YEAH! mx.
-
-    $t->[0] %= 24;
-
-
-#    print Dumper ["min2t", $m, $t];
-
-    return $t;
-
-}
-
-sub FormatTime {
-    my $t = shift;
-
-    return sprintf("%02d:%02d:%02d", @{$t});
-}
-
-
-sub ParseTime {
-    my $s = shift;
-
-    my @t;
-
-    if(@t = $s =~ /^(\d+):([0-5][0-9])$/) {
-        return [ @t, 0 ];
-    }
-
-    if(@t = $s =~ /^(\d+):([0-5][0-9]):([0-5][0-9])$/) {
-        return @t;
-    }
-
-    warn "ParseTime invalid time '$s'";
-    return [0,0];
-}