Added a small script to query versions.idx for its version information

[bugscan.git] / get-version

diff --git a/get-version b/get-version
new file mode 100644 (file)
index 0000000..1867cdd
--- /dev/null
+++ b/get-version
@@ -0,0 +1,7 @@
+use Data::Dumper;
+use MLDBM qw(DB_File Storable);
+my %v;
+tie %v, "MLDBM", "/org/bugs.debian.org/versions/indices/versions.idx", 0;
+my $z = $v{$ARGV[0]};
+print Data::Dumper::Dumper($z);
+