Make the shell functions a bit more modular for scripting

1 files changed, 17 insertions, 0 deletions

diff --git a/rebuild-scripts/check_rebuild b/rebuild-scripts/check_rebuild
new file mode 100755
index 0000000..863bbf3
--- /dev/null
+++ b/rebuild-scripts/check_rebuild
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# $Id: check_rebuild,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $
+use strict;
+my %B;
+my $base_time = 1156678565;
+while ( <> ) {
+  my @F = split;
+  my $name = $F[1];
+  $name =~ s/-[^-]+-[^-]+\.src\.rpm$//;
+  if ($F[0] >= $base_time) {
+    $B{$name} = 1;
+    next;
+  }
+  next if defined $B{$name};
+  print;
+}
+exit 0;