package mod_xls;

use strict;
use Apache::Constants qw(:common);
use Spreadsheet::WriteExcel;

my $counter = 0;

sub handler {
	my $r = shift;


	$r->content_type('application/vnd.ms-excel');
	$r->send_http_header;

	my $filename = "/tmp/".time.$$.$counter;
	my $workbook = Spreadsheet::WriteExcel->new($filename);

	my $worksheet   = $workbook->addworksheet("test");
	my $format      = $workbook->addformat();

	$format->set_bold();
	$format->set_color('red');
	$format->set_align('center');

	$worksheet->write(0, 0, "This is dynamic!");
	$worksheet->write(1, 1, time);
	$worksheet->write(2, 2, "Hello World!", $format);

	$workbook->close();

	open ( XLS, $filename );
	binmode(XLS);
	undef $/;
	my $sheet = <XLS>;
	$r->print($sheet);
	close XLS;
	unlink($filename);
	return OK;

	$counter ++;
}
1;