package RSApache::Response::XSLTDownload;

use strict;
use warnings;

use Apache2::Const qw(OK);

use CGI;

use lib '/app/tools/common/lib';
use Common::WriteXML;
use Common::Assert;
use Common::Log;
use RSApache::Response::XML;

use RSApache::Response;
use base 'RSApache::Response';

sub _init {
    my ( $self, $xmlHash, $xslFile, $fileName ) = @_;
    assert( defined $xmlHash );
    assert( defined $xslFile );

    $fileName = 'RoyaltyShareFileDownload' unless $fileName;

    $self->{xml}  = Common::WriteXML::GetXMLString($xmlHash);
    $self->{file} = $xslFile;

    $self->{fileName} = $fileName;
}

sub respond {
    my ( $self, $apache ) = @_;

    my $cgi = new CGI;

    my $xml_parser  = new XML::LibXML();
    my $xslt_parser = new XML::LibXSLT();

    my $xsl_source = $xml_parser->parse_file( $self->{file} );
    assert($xsl_source);

    my $xml_source = $xml_parser->parse_string( $self->{xml} );
    assert($xml_source);

    my $stylesheet = $xslt_parser->parse_stylesheet($xsl_source);
    die "no stylesheet produced: file = " . $self->{file} if !$stylesheet;

    $apache->content_type("application/octet-stream");
    $apache->headers_out->set( 'Content-Disposition' => "attachment; filename=\"$self->{fileName}\"" );

    $apache->send_http_header();

    my $result = $stylesheet->transform($xml_source);
    print $stylesheet->output_string($result);

    return OK;
}

sub respondRaw {
    my ( $self, $apache ) = @_;

    # $apache->content_type("application/xml");
    #$apache->content_type("text/xml");
    $apache->content_type("text/plain");
    $apache->send_http_header();
    print $self->{xml};

    return OK;
}

###
1;    # Play nicely.
###