From: longinus <longinus@4e526526-5e11-4fc0-8910-f8fd03428081>
Date: Thu, 9 Aug 2012 23:58:25 +0000 (+0000)
Subject: first implementation of timeline table dump
X-Git-Url: http://git.osdn.net/view?p=rec10%2Frec10-git.git;a=commitdiff_plain;h=5aa7da0645202a0ccaef6e2636eeed7f188abd23

first implementation of timeline table dump


git-svn-id: svn+ssh://svn.sourceforge.jp/svnroot/rec10@945 4e526526-5e11-4fc0-8910-f8fd03428081
---

diff --git a/rectool/trunk/rectool.pl b/rectool/trunk/rectool.pl
index 1b28e19..e3e1e35 100755
--- a/rectool/trunk/rectool.pl
+++ b/rectool/trunk/rectool.pl
@@ -25,6 +25,8 @@ use Time::Piece;
 use Time::Seconds;
 use Time::HiRes;
 use Tie::IxHash;
+use XML::Generator::DBI;
+use XML::SAX::Writer;
 #require SVG Time::Simple XML::Atom Encode List::Compare List::Util
 use utf8;
 #%DB::packages = ( 'main' => 1 );
@@ -1735,6 +1737,25 @@ if ( $mode eq 'expert' ) {
 		goto end;
 	}
 
+	if ( $mode_sub eq 'dump' ) {
+		# id、epgXXを除外して出力
+		my $sth = $dbh->prepare(
+			"SELECT type, chtxt, title, btime, etime, deltatime, deltaday, opt, counter 
+			FROM timeline"
+		);
+		# my $yaw = XML::Handler::YAWriter->new;
+		my $output;
+		my $wri = XML::SAX::Writer->new( Output => \$output );
+		my $gen = XML::Generator::DBI->new(
+			Handler => $wri,
+			AsAttributes => 1,
+		);
+		$gen->execute($sth);
+		# $HTML .= join "\n", @{$yaw->{Strings}};
+		print "Content-Type: text/xml\n\n";
+		print $output;
+		exit;
+	}
 
 	my @ary = $dbh->selectrow_array(
 		"SELECT auto_jbk, auto_bayes, auto_del_tmp, auto_opt 
diff --git a/rectool/trunk/rectool.spec b/rectool/trunk/rectool.spec
index efcf05c..7fd51fe 100644
--- a/rectool/trunk/rectool.spec
+++ b/rectool/trunk/rectool.spec
@@ -14,7 +14,7 @@ BuildRoot:	%(mktemp -ud %{_tmppath}/%{name}-%{version}-%{release}-XXXXXX)
 BuildRequires:	make
 Requires:	perl-Algorithm-Diff perl-Archive-Zip perl-CGI perl-Config-Simple perl-Data-Dumper-Concise
 Requires:	perl-Date-Simple perl-DateTime perl-DBI perl-File-Slurp perl-Sort-Naturally perl-SVG
-Requires:	perl-Time-Piece perl-Tie-IxHash perl-List-Compare perl-XML-Atom
+Requires:	perl-Time-Piece perl-Tie-IxHash perl-List-Compare perl-XML-Atom perl-XML-Generator-DBI XML-SAX-Writer
 
 %description
 rectool-0.0.1