diff options
author | Yaakov Nemoy <loupgaroublond@gmail.com> | 2008-09-28 10:29:00 -0400 |
---|---|---|
committer | Yaakov M. Nemoy <loupgaroublond@gmail.com> | 2008-09-28 10:29:00 -0400 |
commit | d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65 (patch) | |
tree | 9940bed9d7c8edd1d416659f23b5c56c929ef8c9 /rebuild-scripts/add_owner | |
parent | 40119a669a625b839503d91aa5d40e112f7e46e2 (diff) | |
download | fedora-devshell-d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65.tar.gz fedora-devshell-d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65.tar.xz fedora-devshell-d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65.zip |
Make the shell functions a bit more modular for scripting
Diffstat (limited to 'rebuild-scripts/add_owner')
-rwxr-xr-x | rebuild-scripts/add_owner | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/rebuild-scripts/add_owner b/rebuild-scripts/add_owner new file mode 100755 index 0000000..e419d42 --- /dev/null +++ b/rebuild-scripts/add_owner @@ -0,0 +1,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; |