From f5277f0a49bfb6eb48c27de4d644b2f9e2f94e4f Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Fri, 25 Jan 2008 13:37:03 +0100
Subject: Minor script to query config files.

---
 lxr-stat | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 lxr-stat

diff --git a/lxr-stat b/lxr-stat
new file mode 100755
index 0000000..e77a19d
--- /dev/null
+++ b/lxr-stat
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Getopt::Long;
+
+use LXRng ROOT => $FindBin::Bin;
+use LXRng::Context;
+
+my $trees  = 0;
+
+GetOptions("trees" => \$trees)
+    or die "Failed to parse options";
+
+my @configs =  LXRng::Context->read_config();
+
+die("Unable to parse config") 
+    unless ref($configs[0]) eq 'HASH';
+
+if ($trees) {
+    print(map { "$_\n" } sort keys %{$configs[0]});
+}
+
+
+#use Data::Dumper;
+#warn Dumper(\@configs);
-- 
cgit v1.2.3