[tools] testbot/Janitor: Allow 31 character session ids.

[Francois Gouget]

Some users still have obsolete 31 character session ids that have not
expired yet.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
 testbot/bin/Janitor.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/testbot/bin/Janitor.pl b/testbot/bin/Janitor.pl
index 8fa1782940..35a7e5d4f7 100755
--- a/testbot/bin/Janitor.pl
+++ b/testbot/bin/Janitor.pl
@@ -272,7 +272,8 @@ if (opendir(my $dh, "$DataDir/staging"))
     my $Age = int((-M $FileName) + 0.5);
     my $TTL = $JobPurgeDays ? $JobPurgeDays - $Age : undef;
 
-    if ($Entry =~ /^[0-9a-f]{32}-websubmit2?_/)
+    # FIXME: There are still some obsolete unexpired 31 characters session ids.
+    if ($Entry =~ /^[0-9a-f]{31,32}-websubmit2?_/)
     {
       # We get these files whenever a developer abandons a job submission.
       # So just delete them silently after a day.
-- 
2.20.1