[PATCH] testbot/CheckForWinetestUpdate: Document the task types.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 testbot/bin/CheckForWinetestUpdate.pl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/testbot/bin/CheckForWinetestUpdate.pl b/testbot/bin/CheckForWinetestUpdate.pl
index 95cb13d8e..590226cde 100755
--- a/testbot/bin/CheckForWinetestUpdate.pl
+++ b/testbot/bin/CheckForWinetestUpdate.pl
@@ -65,8 +65,11 @@ my %WineTestUrls = (
     "exe64" => "http://test.winehq.org/builds/winetest64-latest.exe"
 );

-my %TaskTypes = (build => 1, base32 => 1, winetest32 => 1, all64 => 1,
-                 wine => 1);
+my %TaskTypes = (build => "Update and rebuild Wine on the build VMs.",
+                 base32 => "Run WineTest on the 32 bit Windows VMs with the 'base' role.",
+                 winetest32 => "Run WineTest on the 32 bit Windows VMs with the 'winetest' role.",
+                 all64 => "Run WineTest on the all the 64 bit Windows VMs.",
+                 wine => "Update, rebuild and run WineTest on the Wine VMs.");

my $Debug;
@@ -441,7 +444,11 @@ if (defined $Usage)
 {
   print "Usage: $Name0 [--debug] [--log-only] [--help] [--create] [TASKTYPE] ...\n";
   print "\n";
-  print "Where TASKTYPE is one of: ", join(" ", sort keys %TaskTypes), "\n";
+  print "Where TASKTYPE is one of:\n";
+  foreach my $TaskType (sort keys %TaskTypes)
+  {
+    printf(" %-15s %s\n", $TaskType, $TaskTypes{$TaskType});
+  }
   exit $Usage;
 }