[Xen-devel] [PATCH OSSTEST v2 2/3] TestSupport: Add interface to compress stash files

[Ian Campbell <ian.campbell@xxxxxxxxxx>]

Use it in ts-logs-capture
---
 Osstest/TestSupport.pm |    8 +++++++-
 ts-logs-capture        |    5 +----
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index f4ec055..dba5cef 100644
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -66,7 +66,7 @@ BEGIN {
                       serial_fetch_logs
                       propname_massage
          
-                      get_stashed open_unique_stashfile
+                      get_stashed open_unique_stashfile compress_stashed
                       dir_identify_vcs build_clone built_stash 
                       hg_dir_revision git_dir_revision vcs_dir_revision
                       store_revision store_vcs_revision
@@ -843,6 +843,12 @@ sub get_stashed ($$) {
     return "$c{Stash}/$oflight/$ojob/$path";
 }
 
+sub compress_stashed($) {
+    my ($path) = @_;
+    my $r= system 'gzip','-9vf','--',"$stash/$path";
+    die "$r $!" if $r;
+}
+
 #---------- other stuff ----------
 
 sub host_reboot ($) {
diff --git a/ts-logs-capture b/ts-logs-capture
index 2dd95ea..a0bd936 100755
--- a/ts-logs-capture
+++ b/ts-logs-capture
@@ -61,10 +61,7 @@ END
                 target_getfile_root($lho,60, $logfile,"$stash/$llogfile");
                if ($logfile !~ m/\.gz$/) {
                    stat("$stash/$llogfile") or die "$stash/$llogfile $!";
-                   if ((stat _)[7] > 100000) {
-                       my $r= system 'gzip','-9vf','--',"$stash/$llogfile";
-                       die "$r $!" if $r;
-                   }
+                   compress_stashed($llogfile) if(stat _)[7] > 100000;
                }
                 1;
             }) {
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel