summaryrefslogtreecommitdiff
path: root/httemplate/misc/email_events.cgi
diff options
context:
space:
mode:
authorivan <ivan>2008-01-13 21:08:27 +0000
committerivan <ivan>2008-01-13 21:08:27 +0000
commit2d53d2ebdce80d0f0dc7f75ccf506a06c2f852f9 (patch)
tree4f9f63364374cb63729bf393de6f7780ff708202 /httemplate/misc/email_events.cgi
parentfdbdabb698b904cfb8cdc8befb87a76aa71642e9 (diff)
ACLs
Diffstat (limited to 'httemplate/misc/email_events.cgi')
-rw-r--r--httemplate/misc/email_events.cgi11
1 files changed, 8 insertions, 3 deletions
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>