last minute fixes -- frozen now for all time, as the data is in the DB
[Evergreen.git] / Evergreen / src / extras / import / libfixup.pl
1 #!/usr/bin/perl
2
3 use strict;
4
5 my $new = shift;
6 my $old = shift;
7
8 open N, $new;
9 open O, $old;
10
11 my %oldlibs;
12 while (<O>) {
13         chomp;
14         my ($sname, $lib, $sys) = split /\t/;
15         my ($sys_prefix) = split /-/;
16
17         $oldlibs{$sys_prefix} = $sys;
18 }
19
20 while (<N>) {
21         chomp;
22         my ($sname,$lib) = split /\|/;
23         my ($sys_prefix) = split /-/, $sname;
24         $lib =~ s/^[^-]+-(.+)/$1/o;
25         print "$sname\t$lib\t$oldlibs{$sys_prefix}\n";
26 }