From 16ac0d9bacf239ecbf24b4b7d2231981bd9efe89 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Thu, 13 May 2010 05:43:57 +0000
Subject: cope with poor tax liability report performance by allowing queuing
 of reports RT#8274

---
 httemplate/misc/queued_report.html | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 httemplate/misc/queued_report.html

(limited to 'httemplate/misc/queued_report.html')

diff --git a/httemplate/misc/queued_report.html b/httemplate/misc/queued_report.html
new file mode 100755
index 000000000..875404546
--- /dev/null
+++ b/httemplate/misc/queued_report.html
@@ -0,0 +1,29 @@
+<% include($report_comp) %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
+
+my $report = '';
+$cgi->param('report') =~ /^([.\w]+)$/ && ($report = $1);
+die "no such report" unless $report;
+
+my $prefix = "$FS::UID::cache_dir/cache.$FS::UID::datasrc";
+open my $fh, "$prefix/report.$report"
+  or die "can't open report: $!\n";
+
+my $reportvalue = '';
+{
+  local $/;
+  $reportvalue = <$fh>;
+}
+close $fh;
+
+#my ($interp, $other) = FS::Mason::mason_interps('standalone');
+my $interp = $m->interp;
+my $report_comp =
+  eval { $interp->make_component ( comp_source => $reportvalue ) };
+die $@ if $@;
+errorpage($@) if $@;
+
+</%init>
-- 
cgit v1.2.1