diff options
Diffstat (limited to 'rebuild-scripts/check_rebuild')
-rwxr-xr-x | rebuild-scripts/check_rebuild | 17 |
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; |