#!/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;