blob: e419d422a3922f8d3a67c8f55a32b22f10625971 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env perl
# $Id: add_owner,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 ( <> ) {
s/\s+$//;
my @F = split;
my $name = $F[5];
my $e = $OWN{$name};
if (defined $e) {
push @F, $$e[3];
} else {
push @F, "Unknown";
}
print join(" ", @F), "\n";
}
exit 0;
|