1
package Lire::OutputFormats::XML;
5
use base qw/Lire::OutputFormat/;
7
use Locale::TextDomain 'lire';
9
use File::Copy qw/copy/;
10
eval "use MIME::Entity";
16
Lire::OutputFormats::XML - XML output format.
20
my $format = Lire::PluginManager->get_plugin( 'output_format', 'xml' );
21
$format->format_report( $xml_file, $xml_file );
25
Lire::OutputFormat implementation which saves the report as LRML XML.
38
return '<para>' . __( 'Native XML format. This keeps the report in Lire Report Markup Language.' ) . '</para>';
42
my ( $self, $report_file, $output_file ) = @_;
44
copy( $report_file, $output_file );
50
my ( $self, $report_file, $cfg ) = @_;
52
return MIME::Entity->build( 'Type' => 'text/xml',
54
'Encoding' => 'quoted-printable',
55
'Path' => $report_file
67
Lire::PluginManager(3pm) Lire::OutputFormat(3pm)
71
Francis J. Lacoste <flacoste@logreport.org>
75
$Id: XML.pm,v 1.1 2004/08/28 03:41:08 flacoste Exp $
79
Copyright (C) 2004 Stichting LogReport Foundation LogReport@LogReport.org
81
This file is part of Lire.
83
Lire is free software; you can redistribute it and/or modify
84
it under the terms of the GNU General Public License as published by
85
the Free Software Foundation; either version 2 of the License, or
86
(at your option) any later version.
88
This program is distributed in the hope that it will be useful,
89
but WITHOUT ANY WARRANTY; without even the implied warranty of
90
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
91
GNU General Public License for more details.
93
You should have received a copy of the GNU General Public License
94
along with this program (see COPYING); if not, check with
95
http://www.gnu.org/copyleft/gpl.html or write to the Free Software
96
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.