rebuild-scripts/check_rebuild


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;