[Rt-commit] [svn] r1896 - in rt/branches/3.3-TESTING: . sbin

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Mon Nov 15 01:30:04 2004
New Revision: 1896

Modified:
   rt/branches/3.3-TESTING/   (props changed)
   rt/branches/3.3-TESTING/sbin/rt-dump-database.in
   rt/branches/3.3-TESTING/sbin/rt-test-dependencies.in
Log:
 r4158 at not:  autrijus | 2004-11-15T06:31:13.491985Z
 * Switch the rt-dump-database format from YAML to XML::Simple.
 


Modified: rt/branches/3.3-TESTING/sbin/rt-dump-database.in
==============================================================================
--- rt/branches/3.3-TESTING/sbin/rt-dump-database.in	(original)
+++ rt/branches/3.3-TESTING/sbin/rt-dump-database.in	Mon Nov 15 01:30:04 2004
@@ -47,7 +47,7 @@
 use strict;
 use lib "@RT_LIB_PATH@";
 use RT;
-use YAML;
+use XML::Simple;
 
 RT::LoadConfig();
 RT::Init();
@@ -142,7 +142,16 @@
     }
 }
 
-print(<< '.', YAML::Dump({ map { ($_ => ($RV{$_} || [])) } @classes }));
-no strict;use YAML;*_=YAML::Load(do{local$/;<DATA>});@$_=@{$_{$_}}for keys%_;1
+print(<< ".");
+no strict; use XML::Simple; *_ = XMLin(do { local \$/; readline(DATA) }, ForceArray => [qw(
+ @classes Values
+)]); *\$_=( \$_{\$_} || [] ) for keys \%_; 1; # vim: filetype=xml
 __DATA__
 .
+
+print XMLout(
+    { map { ($_ => ($RV{$_} || [])) } @classes },
+    RootName => 'InitialData',
+    AttrIndent => 1,
+    XMLDecl => '<?xml version="1.0" encoding="UTF-8"?>',
+);

Modified: rt/branches/3.3-TESTING/sbin/rt-test-dependencies.in
==============================================================================
--- rt/branches/3.3-TESTING/sbin/rt-test-dependencies.in	(original)
+++ rt/branches/3.3-TESTING/sbin/rt-test-dependencies.in	Mon Nov 15 01:30:04 2004
@@ -144,7 +144,7 @@
 Scalar::Util
 Module::Versions::Report
 Cache::Simple::TimedExpiry
-YAML
+XML::Simple
 .
 
 $deps{'MASON'} = [ _( << '.') ];