X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fdump.cgi;h=3b60b20efc300a93439ac9210abfc16c337b8c45;hp=486b66568baf55db26c454610e3e0f7d4ed53edc;hb=560af69840e7e3fcebf65d5d56ca4efc0851efec;hpb=718f65eee1c797ea90a315b5f03fae75c80a5112

diff --git a/httemplate/misc/dump.cgi b/httemplate/misc/dump.cgi
index 486b66568..3b60b20ef 100644
--- a/httemplate/misc/dump.cgi
+++ b/httemplate/misc/dump.cgi
@@ -1,3 +1,5 @@
+%  die "access denied"
+%    unless $FS::CurrentUser::CurrentUser->access_right('Export');
 %
 %  if ( driver_name =~ /^Pg$/ ) {
 %    my $dbname = (split(':', datasrc))[2];
@@ -16,5 +18,3 @@
 %    print $_;
 %  }
 %  close DUMP;
-%
-