Make the shell functions a bit more modular for scripting

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;