summaryrefslogtreecommitdiffstats
path: root/security/nss/tests/clean_tbx
diff options
context:
space:
mode:
authorMatt A. Tobin <mattatobin@localhost.localdomain>2018-02-02 04:16:08 -0500
committerMatt A. Tobin <mattatobin@localhost.localdomain>2018-02-02 04:16:08 -0500
commit5f8de423f190bbb79a62f804151bc24824fa32d8 (patch)
tree10027f336435511475e392454359edea8e25895d /security/nss/tests/clean_tbx
parent49ee0794b5d912db1f95dce6eb52d781dc210db5 (diff)
downloadUXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.gz
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.lz
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.xz
UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.zip
Add m-esr52 at 52.6.0
Diffstat (limited to 'security/nss/tests/clean_tbx')
-rwxr-xr-xsecurity/nss/tests/clean_tbx172
1 files changed, 172 insertions, 0 deletions
diff --git a/security/nss/tests/clean_tbx b/security/nss/tests/clean_tbx
new file mode 100755
index 000000000..4de955576
--- /dev/null
+++ b/security/nss/tests/clean_tbx
@@ -0,0 +1,172 @@
+#! /bin/perl
+
+#######################################################################
+#
+# /u/sonmi/bin/clean_tbx.pl
+#
+# this script is supposed to remove tinderbox QA if:
+# QA has passed, there are 2+ newer QA dirs of the same machine and
+# platform (32/64) and it is older than 2 hours
+# QA has failed, there are 2+ newer QA dirsof the same machine and
+# platform (32/64) with _identical failures and it is older than
+# 2 hours
+# directory is older than 48 hours
+#
+#######################################################################
+
+use Time::Local;
+
+$ANY_TBX_KEEP_HOURS=48;
+$NOT_FAILED_TBX_KEEP_HOURS=24;
+$PASSED_TBX_KEEP_HOURS=2;
+$IF_TBX_KEEP_HOURS=2;
+$PASSED_NEWER_DIRS=2;
+$IF_NEWER_DIRS=2;
+$verbose = 1;
+
+$TBX_TESTDIR="/share/builds/mccrel3/nss/nsstip/tinderbox/tests_results/security";
+$FTP_STAGE="/u/sonmi/tmp/ftp_stage/tinderbox";
+
+@tbx_dirs = ();
+
+$eANY_TBX_KEEP=$ANY_TBX_KEEP_HOURS*60*60;
+$ePASSED_TBX_KEEP=$PASSED_TBX_KEEP_HOURS*60*60;
+$eIF_TBX_KEEP=$IF_TBX_KEEP_HOURS*60*60;
+$eNOT_FAILED_TBX_KEEP=$NOT_FAILED_TBX_KEEP_HOURS*60*60;
+
+$year, $month, $days, $hours, $minutes, $seconds;
+$efulldate=0;
+
+$fulldate=0;
+
+$no_bits="";
+$last_no_bits="";
+
+$host="";
+$last_host="";
+
+@tbx_dirs = `ls -r $TBX_TESTDIR`; #sort first by host,
+ #then 64,
+ #then newest - oldest
+debug ("found $#tbx_dirs directories ");
+
+($seconds, $minutes, $hours, $days, $month, $year) = localtime;
+
+debug ("$seconds, $minutes, $hours, $days, $month, $year");
+
+$enow = timelocal(localtime);
+
+sub debug;
+sub warning;
+sub error;
+sub msg;
+sub init;
+sub check_tbx_dirs;
+
+sub check_tbx_dirs
+{
+ my $platform_idx=0; # counts directories per platform, newest
+ # to oldest (ignores incomplete)
+ my $passed_idx=0; # counts passed directories newest to oldest
+ my $QAstatus="unknown";
+ foreach $tbx_dir (@tbx_dirs) {
+ $tbx_dir =~ s/\n//g;
+ $fulldate = $tbx_dir;
+ $fulldate =~ s/^.*-(20.*-..\...$)/$1/;
+ $day = $month = $year = $hour = $min = $fulldate;
+ $host = $tbx_dir;
+ $host =~ s/-20.*//;
+ $no_bits = $host;
+ $host =~ s/64$//;
+ $no_bits =~ s/.*64$/64/;
+ $no_bits =~ s/^[^6].*/other/;
+ $year =~ s/(....).*/$1/;
+ $month =~ s/....(..).*/$1/;
+ $day =~ s/......(..).*/$1/;
+ $hour =~ s/........-(..).*/$1/;
+ $min =~ s/.*\.(..)$/$1/;
+
+
+ if ( -f "$TBX_TESTDIR/$tbx_dir/QAstatus" ) {
+ $QAstatus=`cat $TBX_TESTDIR/$tbx_dir/QAstatus 2>/dev/null`;
+ $QAstatus =~ s/\n$//g;
+ } else {
+ $QAstatus="unknown";
+ }
+
+ $efulldate = timelocal( 0, $min, $hour, $day, $month-1, $year-1900);
+ if ( "$host" !~ "$last_host" || "$no_bits" !~ "$last_no_bits" ) {
+ if ( $QAstatus !~ "QA running" ) {
+ $platform_idx = 0;
+ } else {
+ $platform_idx = -1;
+ }
+ $passed_idx = 0;
+
+ $last_host = $host;
+ $last_no_bits = $no_bits;
+ } else {
+ $platform_idx ++;
+ $passed_idx++ if ( $QAstatus =~ "QA passed" ) ;
+ }
+
+ debug ("$tbx_dir host $host date $fulldate bits $no_bits $year/$month/$day $hour:$min QAstatus $QAstatus pli $platform_idx pai $passed_idx");
+
+ if ( $passed_idx > $PASSED_NEWER_DIRS && $QAstatus =~ "QA passed" ) {
+ $ekeeptime=$efulldate + $ePASSED_TBX_KEEP;
+ #($s, $m, $h, $d, $mo, $y) = localtime($ekeeptime);
+ #debug ("$passed_idx > $PASSED_NEWER_DIRS ekeeptime ($s, $m, $h, $d, $mo, $y) == $ekeeptime");
+ rm_tbx ("Passed $PASSED_TBX_KEEP_HOURS + hours old") if ( $ekeeptime <= $enow );
+ } elsif ( $QAstatus !~ "QA failed" ) {
+ $ekeeptime=$efulldate + $eNOT_FAILED_TBX_KEEP;
+ rm_tbx ("Not failed $NOT_FAILED_TBX_KEEP_HOURS + hours old") if ( $ekeeptime <= $enow );
+ } else {
+ $ekeeptime=$efulldate + $eANY_TBX_KEEP;
+ rm_tbx ("Passed 2+ hours old") if ( $ekeeptime <= $enow );
+ }
+ if ( $QAstatus =~ "QA failed" ) {
+ $ekeeptime=$efulldate + $eIF_TBX_KEEP;
+ #FIXME - compare to the previous failure by filtering and
+ #FIXME diffing the results.html files (first grep failed)
+ }
+ }
+
+}
+
+sub rm_tbx()
+{
+
+debug ("DELETING $tbx_dir... (@_[0]) ");
+system("rm -rf $TBX_TESTDIR/$tbx_dir");
+#debug ("rm -rf $TBX_TESTDIR/$tbx_dir");
+
+}
+
+sub msg
+{
+ my $i;
+ for ($i = 0; $i <= $#_ ; $i++ ) {
+ print "@_[$i] ";
+ }
+ print "\n";
+
+}
+sub error
+{
+ msg ("ERROR: " ,@_ );
+}
+
+sub warning
+{
+ msg ("WARNING:" ,@_ );
+}
+sub debug
+{
+ if ( $verbose == 1 ) {
+ msg ("DEBUG: " ,@_ );
+ } elsif ( $verbose == 2 ) {
+ msg (@_ );
+ }
+}
+
+check_tbx_dirs;