Added a small script to query versions.idx for its version information
authorSteinar H. Gunderson <sesse@rietz>
Wed, 7 Mar 2007 12:00:32 +0000 (12:00 +0000)
committerSteinar H. Gunderson <sesse@rietz>
Wed, 7 Mar 2007 12:00:32 +0000 (12:00 +0000)
about a specific package.

get-version [new file with mode: 0644]

diff --git a/get-version b/get-version
new file mode 100644 (file)
index 0000000..1867cdd
--- /dev/null
@@ -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);
+