Make the shell functions a bit more modular for scripting

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;