+ 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;
+ }