From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Mon, 7 Apr 2014 15:29:34 +0000 (+0100)
Subject: sg-report-flight: mkdir the per-job directories
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=b27091795e7c5d7a9656886c274d0b4d05fc3fa8;p=osstest.git

sg-report-flight: mkdir the per-job directories

This makes sure the per-job pages always get created.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---

diff --git a/sg-report-flight b/sg-report-flight
index e6f3339..1a7c316 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -27,6 +27,7 @@ use URI::Escape;
 use POSIX;
 use IPC::Open2;
 use Data::Dumper;
+use File::Path;
 
 use Osstest;
 use Osstest::Executive;
@@ -757,11 +758,12 @@ sub htmloutjob ($$) {
     my ($fi,$job) = @_;
     return unless defined $htmldir;
 
-    my $htmlfile= "$htmldir/$job/$htmlleaf";
-    if (!open H, "> $htmlfile.new") {
-        return if $!==&ENOENT;
-        die "$htmlfile.new $!";
-    }
+    my $jobhtmldir = "$htmldir/$job";
+    mkpath $jobhtmldir;
+
+    my $htmlfile= "$jobhtmldir/$htmlleaf";
+    open H, "> $htmlfile.new" or die "$htmlfile.new $!";
+
     my $title= "Info on flight $fi->{Flight} job $job";
     my $branch= $fi->{FlightInfo}{branch};