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 (executable)
--- 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 (file)
--- 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