1 files changed, 19 insertions, 0 deletions
diff --git a/show-patches.pl b/show-patches.pl
new file mode 100644
index 0000000..5d8dede
--- /dev/null
+++ b/show-patches.pl
@@ -0,0 +1,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);