From a8466af86c3bc73b99b6278aa16855204200cbc3 Mon Sep 17 00:00:00 2001 From: Lorenz Kästle <12514511+RincewindsHat@users.noreply.github.com> Date: Tue, 25 Feb 2025 18:01:51 +0100 Subject: Remove tinderbox related stuff Tinderbox ist quite dead (and has been for a while now). Removing the related files. --- tools/tinderbox_build | 290 -------------------------------------------------- 1 file changed, 290 deletions(-) delete mode 100755 tools/tinderbox_build (limited to 'tools') diff --git a/tools/tinderbox_build b/tools/tinderbox_build deleted file mode 100755 index 1a41f577..00000000 --- a/tools/tinderbox_build +++ /dev/null @@ -1,290 +0,0 @@ -#!/usr/bin/perl -# tinderbox_build.pl -# This script builds the monitoringplugins 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 = `git describe --abbrev=4 HEAD`; - -my $myhost = hostname; -chomp($myhost); -my ($host, $junk) = split(/\./, $myhost); - -my $BuildAdministrator = $ENV{TINDERBOX_BUILD_ADMIN} || "$ENV{'USER'}\@$myhost"; -my $TmpDir = $ENV{TMPDIR} || "/tmp"; - -#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 -# Have the StrictHostKeyChecking=no so that a new host will automatically add hostkey without -# prompting. If host key changes, then will get error, so this should still be secure -my $Tinderbox_server = '-p 1022 -o StrictHostKeyChecking=no tinderbox2@tinderbox.opsera.com'; - -# These shouldn't really need to be changed -my $BuildTree = 'monitoringplug'; -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 = "monitoring-plugins.spec")) { - open F, $file; - while () { - if (/^Version: trunk-(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) { - $StartTime = timegm(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, written 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 <<"EOF" -Not sending logs to http://tinderbox.altinity.org -If you have SSH keys setup on the tinderbox server, you can manually send -with 'ssh $Tinderbox_server tinderbox_receive < ${logfile}.last' -EOF - } - - 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"; - - # Don't alter path if we're building off a repository tree; - # SunOS make will be used only for snapshots and releases. - if ( $OS eq 'SunOS' && !( -e '.svn' || -e '.git' )) { - $ENV{'PATH'} = '/usr/ccs/bin:' . $ENV{'PATH'}; - } - - $Path = $ENV{PATH}; - print "Path After: $Path\n"; -} #EndSub-SetupPath - -sub configure { - # Configure - print LOG "./configure --enable-extra-opts --enable-libtap $ConfigureArgs 2>&1\n"; - open (CONFIGURE, "./configure --enable-extra-opts --enable-libtap $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 && make install DESTDIR=$TmpDir/tinderbox_build.$$ 2>&1 && make install-strip DESTDIR=$TmpDir/tinderbox_build2.$$ 2>&1\n"; - open( MAKE, "LANG=C make test 2>&1 && make install DESTDIR=$TmpDir/tinderbox_build.$$ 2>&1 && make install-strip DESTDIR=$TmpDir/tinderbox_build2.$$ 2>&1 |"); - while ( ) { - print $_; - print LOG $_; - } - close( MAKE); - my $rc = $?; - system("rm -fr $TmpDir/tinderbox_build.$$ $TmpDir/tinderbox_build2.$$"); - return ! $rc; -} - -# Main function -&ParseArgs; -&SetupPath; -&BuildIt; - -1; -- cgit v1.2.3-74-g34f1