diff options
| author | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-10-31 20:22:51 +0000 |
|---|---|---|
| committer | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-10-31 20:22:51 +0000 |
| commit | 0ede98c11a10c541c739a0dd7677254fdb8cdc91 (patch) | |
| tree | 73f6945cb8a3783376980468718ed22f5648f2ad /bin/check_build_logs | |
| parent | 14978b4539829342932bd34e5788995c697df9f0 (diff) | |
| download | ATCD-0ede98c11a10c541c739a0dd7677254fdb8cdc91.tar.gz | |
ChangeLogTag: Tue Oct 31 14:21:11 2000 David L. Levine <levine@cs.wustl.edu>
Diffstat (limited to 'bin/check_build_logs')
| -rwxr-xr-x | bin/check_build_logs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/bin/check_build_logs b/bin/check_build_logs index f50add24bf1..39707d404da 100755 --- a/bin/check_build_logs +++ b/bin/check_build_logs @@ -19,12 +19,13 @@ my $find = -e '/pkg/gnu/bin/find' ? '/pkg/gnu/bin/find' : 'find'; my $mail = "mail -s '$subject'"; my $ostype = $ENV{'OSTYPE'} || `/bin/uname -s`; -if ( "$ostype" =~ /(solaris)|(SunOS)/i ) { +if ("$ostype" =~ /(solaris)|(SunOS)/i) { #### $mail = "/pkg/mh/bin/mhmail -subject '$subject'"; $mail = "/usr/bin/mailx -s '$subject'"; } -$ENV{'LD_LIBRARY_PATH'} = '/opt/SUNWspro_5.0/dt/lib:/usr/openwin/lib:/usr/lib:/project/danzon/pkg/egcs/lib:' unless $ENV{'LD_LIBRARY_PATH'}; +$ENV{'LD_LIBRARY_PATH'} = '/opt/SUNWspro_5.0/dt/lib:/usr/openwin/lib:' . + '/usr/lib:/project/danzon/pkg/egcs/lib:' unless $ENV{'LD_LIBRARY_PATH'}; $ENV{'TMPDIR'} = '/tmp'; $ENV{'USER'} = $ENV{'LOGNAME'}; @@ -87,7 +88,7 @@ while ($#ARGV >= $[) { chdir $log_directory || die "$0: unable to cd to \"$log_directory\"\n"; -(my $log_files = ( `$find . -name '*.log' -daystart -ctime 0 -print` )) =~ +(my $log_files = (`$find . -name '*.log' -daystart -ctime 0 -print | sort`)) =~ tr [\n] [ ]; $log_files =~ s%\./(make)%$1%g; #### Remove leading ./ from each filename. @@ -95,6 +96,7 @@ $log_files =~ s%\./(make)%$1%g; #### Remove leading ./ from each filename. #### #### Grep the log files for problems. #### +my $line_count = 0; my @output = (); open (EGREP, "egrep -n \'Error|errors|[^a]Stop|No rule to make|\(undefined symb\)|[Ww]arn|not exist|core dumped|: #[0-9]|cxx:\' $log_files /dev/null |") || die "$0: unable to open egrep\n"; @@ -102,6 +104,8 @@ while (<EGREP>) { push @output, $_ unless /calls, 0 errors$/ || /Found non-pic R_SPARC/ || /Purify engine: Error: .* Ignoring it\.$/; + ++$line_count; + last if $line_count > 2000; } close EGREP; |