show-patches.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl
#use Data::Dumper;
use warnings;
use strict;
use lib ".";
use PatchIndexer;

# Show patches for a given PN/PV
my $PN = $ARGV[0];
chomp $PN;
my $PV = $ARGV[1];
chomp $PV;

my ($FH, $index);
open $FH,'<',"000_index.txt";
my @index = parseIndex($FH);
my @newindex = selectPatches(\@index, $PN, $PV);
#print Dumper(@index);
print printIndex(\@newindex);