From 2d53d2ebdce80d0f0dc7f75ccf506a06c2f852f9 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 13 Jan 2008 21:08:27 +0000
Subject: ACLs

---
 httemplate/misc/email_events.cgi | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'httemplate/misc/email_events.cgi')

diff --git a/httemplate/misc/email_events.cgi b/httemplate/misc/email_events.cgi
index c6efa7dc9..e7a0e77f8 100644
--- a/httemplate/misc/email_events.cgi
+++ b/httemplate/misc/email_events.cgi
@@ -1,4 +1,9 @@
-%
-%my $server = new FS::UI::Web::JSRPC 'FS::cust_event::process_reemail', $cgi;
-%
 <% $server->process %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Resend invoices');
+
+my $server = new FS::UI::Web::JSRPC 'FS::cust_event::process_reemail', $cgi;
+
+</%init>
-- 
cgit v1.2.1