diff options
Diffstat (limited to 'rebuild-scripts/gen_nr_2')
-rwxr-xr-x | rebuild-scripts/gen_nr_2 | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/rebuild-scripts/gen_nr_2 b/rebuild-scripts/gen_nr_2 new file mode 100755 index 0000000..343b968 --- /dev/null +++ b/rebuild-scripts/gen_nr_2 @@ -0,0 +1,26 @@ +#!/usr/bin/env perl +# $Id: gen_nr_2,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $ +use strict; +local *IN; +my %OWN; +open IN, "/home/chris/src/isrec/fedora/owners/owners.list" + or die "Couldn't open owners.list: $!"; +while ( <IN> ) { + next if /^#/; + s/\s+$//; + my @F = split /\|/; + next if $F[1] eq ""; + $OWN{$F[1]} = \@F; +} +close IN; +while ( <> ) { + my @F = split; + my $name = $F[0]; + my $e = $OWN{$name}; + my $o = "UNKNOWN"; + if (defined $e) { + $o = $$e[3]; + } + print "$o ", join(" ", @F), "\n"; +} +exit 0; |