From: Ton Voon Date: Thu, 3 Nov 2005 15:21:31 +0000 (+0000) Subject: Adding new tinderbox build script X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=9d6f48dd417d00b3410023a35f4e39bed9b96ed4;p=nagiosplug.git Adding new tinderbox build script git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@1272 f882894a-f735-0410-b71e-b25c423dba1c --- diff --git a/Makefile.am b/Makefile.am index e89e4b0..a4664aa 100644 --- a/Makefile.am +++ b/Makefile.am @@ -6,7 +6,8 @@ EXTRA_DIST = config.rpath \ ABOUT-NLS ACKNOWLEDGEMENTS AUTHORS BUGS CHANGES CODING FAQ LEGAL \ REQUIREMENTS SUPPORT THANKS \ NPTest.pm contrib pkg nagios-plugins.spec \ - config_test/Makefile config_test/run_tests config_test/child_test.c + config_test/Makefile config_test/run_tests config_test/child_test.c \ + tools/tinderbox_build ACLOCAL_AMFLAGS = -I m4 diff --git a/tools/tinderbox_build b/tools/tinderbox_build new file mode 100755 index 0000000..0fdaf03 --- /dev/null +++ b/tools/tinderbox_build @@ -0,0 +1,279 @@ +#!/usr/bin/perl +# tinderbox_build.pl +# This script builds the nagiosplugins and then sends +# logs back to the master tinderbox server +# +# This script is based on mozilla-unix.pl which comes with tinderbox2 +# +# See http://tinderbox.altinity.org for more details + +require 5.000; + +use strict; +use Sys::Hostname; +use Cwd; +use Time::Local; + +my $Version = '$Revision$'; + +my $myhost = hostname; +chomp($myhost); +my ($host, $junk) = split(/\./, $myhost); + +my $BuildAdministrator = $ENV{TINDERBOX_BUILD_ADMIN} || "$ENV{'USER'}\@$myhost"; + +#Default values of cmdline opts +my $ReportStatus = 0; # Do not send results to server + +# Set these to what makes sense for your system + +# Set these proper values for your tinderbox server +my $Tinderbox_server = 'tinderbox2@tinderbox.altinity.org'; + +# These shouldn't really need to be changed +my $BuildTree = 'nagiosplug'; +my $BuildName = ''; +my $ConfigureArgs = $ENV{CONFIGURE_ARGS}; + +my $OS = `uname -s`; +my $OSVer = `uname -r`; + +chop($OS, $OSVer); + +if ( $OS eq 'AIX' ) { + $OSVer = `uname -v`; + chop($OSVer); + $OSVer = $OSVer . "." . `uname -r`; + chop($OSVer); +} + +if ( $OS eq 'IRIX64' ) { + $OS = 'IRIX'; +} + +if ( $OS eq 'SCO_SV' ) { + $OS = 'SCOOS'; + $OSVer = '5.0'; +} + +if ( "$host" ne "" ) { + $BuildName = $host . ' '; +} +$BuildName .= $OS . ' ' . $OSVer; +$_ = $BuildName; +s/ /_/g; + +my $logfile = "$_.log"; + +sub BuildIt { + my ($fe, @felist, $EarlyExit, $LastTime); + + my $StartDir = getcwd(); + $LastTime = 0; + + print "Starting dir is : $StartDir\n"; + + my $EarlyExit = 0; + + chdir("$StartDir"); + + my $StartTime = time; + if (-e (my $file = "nagios-plugins.spec")) { + open F, $file; + while () { + if (/^Version: HEAD-(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) { + $StartTime = timelocal(0, $5, $4, $3, ($2 - 1), ($1 - 1900)); + last; + } + } + } + + print "Start time is $StartTime",$/; + + my $CurrentDir = getcwd(); + if ( $CurrentDir ne $StartDir ) { + print "startdir: $StartDir, curdir $CurrentDir\n"; + die "curdir != startdir"; + } + + unlink( "$logfile" ); + + print "opening $logfile\n"; + open( LOG, ">$logfile" ) || print "can't open $?\n"; + print LOG "current dir is -- $host:$CurrentDir\n"; + print LOG "Build Administrator is $BuildAdministrator\n"; + &PrintEnv; + + my $BuildStatus; + if (&configure) { + if (&make) { + if (&maketest) { + $BuildStatus = "success"; + } else { + $BuildStatus = "test_failed"; + } + } else { + $BuildStatus = "build_failed"; + } + } else { + $BuildStatus = "busted"; + } + + print LOG "\nBuild Status = $BuildStatus\n"; + + close(LOG); + chdir("$StartDir"); + +# TV: Leaving this in, because process mail program probably has some +# limitation retained + +# this fun line added on 2/5/98. do not remove. Translated to english, +# that's "take any line longer than 1000 characters, and split it into less +# than 1000 char lines. If any of the resulting lines is +# a dot on a line by itself, replace that with a blank line." +# This is to prevent cases where a . occurs in the log file. Sendmail +# interprets that as the end of the mail, and truncates the log before +# it gets to Tinderbox. (terry weismann, chris yeh) +# +# This was replaced by a perl 'port' of the above, writen by +# preed@netscape.com; good things: no need for system() call, and now it's +# all in perl, so we don't have to do OS checking like before. + + open(LOG, "$logfile") || die "Couldn't open logfile: $!\n"; + open(OUTLOG, ">${logfile}.last") || die "Couldn't open logfile: $!\n"; + + print OUTLOG $/; + print OUTLOG "tinderbox: tree: $BuildTree\n"; + print OUTLOG "tinderbox: builddate: $StartTime\n"; + print OUTLOG "tinderbox: status: $BuildStatus\n"; + print OUTLOG "tinderbox: build: $BuildName $fe\n"; + print OUTLOG "tinderbox: errorparser: unix\n"; + print OUTLOG "tinderbox: buildfamily: unix\n"; + print OUTLOG "tinderbox: END\n"; + print OUTLOG $/; + + while () { + my $q = 0; + + for (;;) { + my $val = $q * 1000; + my $Output = substr($_, $val, 1000); + + last if $Output eq undef; + + $Output =~ s/^\.$//g; + $Output =~ s/\n//g; + print OUTLOG "$Output\n"; + $q++; + } #EndFor + + } #EndWhile + + close(LOG); + close(OUTLOG); + + if ($ReportStatus) { + system( "ssh $Tinderbox_server tinderbox_receive < ${logfile}.last" ) + } else { + print "Not sending logs to tinderbox",$/; + } + + unlink("$logfile"); + print "Finished building for tinderbox",$/; + +} #EndSub-BuildIt + +sub ParseArgs { + my($i); + + $i = 0; + while( $i < @ARGV ) { + if ($ARGV[$i] eq '--version' || $ARGV[$i] eq '-v') { + die "$0: version $Version\n"; + } elsif ($ARGV[$i] eq '-y') { + $ReportStatus = 1; + } else { + &PrintUsage; + } + + $i++; + } #EndWhile + +} #EndSub-ParseArgs + +sub PrintUsage { + die "usage: $0 [-v | --version ] [-t do not send report to tinderbox server]\n"; +} + +sub PrintEnv { + my ($key); + foreach $key (keys %ENV) { + print LOG "$key = $ENV{$key}\n"; + print "$key = $ENV{$key}\n"; + } + + # Print the NPTest variables + if (-e "/var/tmp/NPTest.cache") { + open F, "/var/tmp/NPTest.cache"; + print LOG "NPTest variables:\n"; + print LOG ; + close F; + } + +} #EndSub-PrintEnv + +sub SetupPath { + my($Path); + $Path = $ENV{PATH}; + print "Path before: $Path\n"; + + if ( $OS eq 'SunOS' ) { + $ENV{'PATH'} = '/usr/ccs/bin:' . $ENV{'PATH'}; + } + + $Path = $ENV{PATH}; + print "Path After: $Path\n"; +} #EndSub-SetupPath + +sub configure { + # Configure + print LOG "./configure $ConfigureArgs\n"; + open (CONFIGURE, "./configure $ConfigureArgs 2>&1 |") || die "../configure: $!\n"; + while () { + print $_; + print LOG $_; + } + close(CONFIGURE); + return ! $?; +} + +sub make { + # Building + print LOG "make 2>&1\n"; + open( MAKE, "make 2>&1 |"); + while ( ) { + print $_; + print LOG $_; + } + close( MAKE); + return ! $?; +} + +sub maketest { + # Tests + print LOG "LANG=C make test 2>&1\n"; + open( MAKE, "LANG=C make test 2>&1 |"); + while ( ) { + print $_; + print LOG $_; + } + close( MAKE); + return ! $?; +} + +# Main function +&ParseArgs; +&SetupPath; +&BuildIt; + +1;