mxmirror: Remove dead code (time related subs)

mariux64 · May 13, 2019 · 3c4072c · 3c4072c
1 parent 61acaca
commit 3c4072c
Showing 1 changed file with 0 additions and 136 deletions.
diff --git 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];
-}