diff options
Diffstat (limited to 'rebuild-scripts/check_rebuild2')
-rwxr-xr-x | rebuild-scripts/check_rebuild2 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/rebuild-scripts/check_rebuild2 b/rebuild-scripts/check_rebuild2 new file mode 100755 index 0000000..c71c25a --- /dev/null +++ b/rebuild-scripts/check_rebuild2 @@ -0,0 +1,20 @@ +#!/usr/bin/env perl +# $Id: check_rebuild2,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $ +use strict; +my %B; +my $cur = <>; +while ( $cur ) { + my @F = split /\s+/, $cur; + last if $F[1] eq "Sep" and $F[2] == 26; + $B{$F[5]} = 1; + $cur = <>; +} +while ( $cur ) { + my @F = split /\s+/, $cur; + last if $F[1] eq "Sep" and $F[2] == 17; + unless (defined $B{$F[5]}) { + print $cur; + } + $cur = <>; +} +exit 0; |