[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index] [Xen-devel] [PATCH OSSTEST v2 2/3] TestSupport: Add interface to compress stash files
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
|
Lists.xenproject.org is hosted with RackSpace, monitoring our |