package Support::GenreMap::Command::Export;

use Data::Dumper;
use IO::File;
use POSIX qw(tmpnam);

use strict;
use lib '/app/tools/common/lib';
use Common::Log;
use RSApache::Response::DownloadStream;

use lib '/app/tools/support/lib';
use Support::Command;
use Support::GenreMap::Exporter::Excel;

use base 'Support::Command';

sub cmd  { return 'export_genre_map' }
sub area { return 'cm' }

use constant kTemplate => "/app/tools/support/templates/genre_map/show.xsl";

sub execute {
    my ($self) = @_;

    my $response = $self->SUPER::execute();
    return $response if $response;

    my $excel = Support::GenreMap::Exporter::Excel->ExportToVariable();

    $response = RSApache::Response::DownloadStream->new( $excel, "application/octet-stream", "rs_genre_map.xls" );

    return $response;
}

1;