[PATCH 1/4] testbot: Add section headers and reorder the Utils.pm functions.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 testbot/lib/WineTestBot/Utils.pm | 100 +++++++++++++++++--------------
 1 file changed, 54 insertions(+), 46 deletions(-)

diff --git a/testbot/lib/WineTestBot/Utils.pm b/testbot/lib/WineTestBot/Utils.pm
index 81a2eda39..8b0bfeb0c 100644
--- a/testbot/lib/WineTestBot/Utils.pm
+++ b/testbot/lib/WineTestBot/Utils.pm
@@ -35,6 +35,10 @@ use Fcntl;
 use WineTestBot::Config;

+#
+# Web helpers
+#
+
 sub MakeSecureURL($)
 {
   my ($URL) = @_;
@@ -53,6 +57,56 @@ sub SecureConnection()
   return defined($ENV{"HTTPS"}) && $ENV{"HTTPS"} eq "on";
 }

+sub DurationToString($;$)
+{
+  my ($Secs, $Raw) = @_;
+
+  return "n/a" if (!defined $Secs);
+
+  my @Parts;
+  if (!$Raw)
+  {
+    my $Mins = int($Secs / 60);
+    $Secs -= 60 * $Mins;
+    my $Hours = int($Mins / 60);
+    $Mins -= 60 * $Hours;
+    my $Days = int($Hours / 24);
+    $Hours -= 24 * $Days;
+    push @Parts, "${Days}d" if ($Days);
+    push @Parts, "${Hours}h" if ($Hours);
+    push @Parts, "${Mins}m" if ($Mins);
+  }
+  if (!@Parts or int($Secs) != 0)
+  {
+    push @Parts, (@Parts or int($Secs) == $Secs) ?
+                 int($Secs) ."s" :
+                 sprintf('%.1fs', $Secs);
+  }
+  return join(" ", @Parts);
+}
+
+sub BuildEMailRecipient($$)
+{
+  my ($EMailAddress, $Name) = @_;
+
+  if (! defined($EMailAddress))
+  {
+    return undef;
+  }
+  my $Recipient = "<" . $EMailAddress . ">";
+  if ($Name)
+  {
+    $Recipient .= " ($Name)";
+  }
+
+  return $Recipient;
+}
+
+
+#
+# Temporary file helpers
+#
+
 sub GenerateRandomString($)
 {
   my ($Len) = @_;
@@ -119,50 +173,4 @@ sub CreateNewDir($$)
   }
 }

-sub DurationToString($;$)
-{
-  my ($Secs, $Raw) = @_;
-
-  return "n/a" if (!defined $Secs);
-
-  my @Parts;
-  if (!$Raw)
-  {
-    my $Mins = int($Secs / 60);
-    $Secs -= 60 * $Mins;
-    my $Hours = int($Mins / 60);
-    $Mins -= 60 * $Hours;
-    my $Days = int($Hours / 24);
-    $Hours -= 24 * $Days;
-    push @Parts, "${Days}d" if ($Days);
-    push @Parts, "${Hours}h" if ($Hours);
-    push @Parts, "${Mins}m" if ($Mins);
-  }
-  if (!@Parts or int($Secs) != 0)
-  {
-    push @Parts, (@Parts or int($Secs) == $Secs) ?
-                 int($Secs) ."s" :
-                 sprintf('%.1fs', $Secs);
-  }
-  return join(" ", @Parts);
-}
-
-sub BuildEMailRecipient($$)
-{
-  my ($EMailAddress, $Name) = @_;
-
-  if (! defined($EMailAddress))
-  {
-    return undef;
-  }
-  my $Recipient = "<" . $EMailAddress . ">";
-  if ($Name)
-  {
-    $Recipient .= " ($Name)";
-  }
-
-  return $Recipient;
-}
-
-
 1;