From cb24c5433cefc0d82c834520b5bdc1ad855e58e2 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Wed, 10 Jul 2002 11:49:41 +0000
Subject: Moved from XML to Data::Dumper

---
 tools/convert-xml-to-datadumper | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 tools/convert-xml-to-datadumper

(limited to 'tools')

diff --git a/tools/convert-xml-to-datadumper b/tools/convert-xml-to-datadumper
new file mode 100755
index 0000000..26d8c27
--- /dev/null
+++ b/tools/convert-xml-to-datadumper
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+use strict;
+use XML::Parser;
+use XML::Dumper;
+use Data::Dumper;
+
+
+my $parser = new XML::Parser(Style => 'Tree');
+my $tree = $parser->parse( join ('', <stdin>) );
+my $dump = new XML::Dumper;
+my $CONFIG = $dump->xml2pl($tree);
+
+print Data::Dumper->Dump([ $CONFIG ], [ $ARGV[0] ]);
-- 
cgit v1.2.3