round hours to 2 decimal places in emails

diff --git a/bf-alerts.pl b/bf-alerts.pl
index 2784f7a62c992f794c396d6fd80cf3d6e3ebcd8a..c118cc4e29ff4739fb4fba1c3216d9576e942723 100755 (executable)
--- a/bf-alerts.pl
+++ b/bf-alerts.pl
@@ -205,7 +205,7 @@ foreach my $clearme (@need_cleared)
     my $text;
     if ($setting)
     {
-       my $hours = ($now - $sysbranch->{snapshot}) / 3600;
+       my $hours = sprintf("%.2f",($now - $sysbranch->{snapshot}) / 3600);
        $text = "$sysbranch->{sysname} has now reported " .
            "on $sysbranch->{branch} $hours hours ago.";
     }
@@ -239,7 +239,7 @@ foreach my $clearme (@need_alerts)
 {
     my ($sysbranch, $setting) = @$clearme;
     my ($animal, $branch) = ($sysbranch->{sysname},$sysbranch->{branch});
-    my $hours = ($now - $sysbranch->{snapshot}) / 3600;
+    my $hours = sprintf("%.2f",($now - $sysbranch->{snapshot}) / 3600);
     my $text = "$sysbranch->{sysname} has not reported " .
        "on $sysbranch->{branch} for $hours hours.";
     my $msg = new Mail::Send;