httemplate/misc/process/template_image-upload.cgi

   1 <% $server->process %>
   2
   3 <%init>
   4
   5 my $curuser = $FS::CurrentUser::CurrentUser;
   6
   7 die "access denied"
   8   unless $curuser->access_right([ 'Edit templates', 'Edit global templates' ]);
   9
  10 my %arg = $cgi->param('arg');
  11 my $agentnum = $arg{'agentnum'};
  12
  13 if (!$agentnum) {
  14   die "access denied"
  15     unless $curuser->access_right([ 'Edit global templates' ]);
  16 } else {
  17   die "bad agentnum"
  18     unless $agentnum =~ /^\d+$/;
  19   die "access denied"
  20     unless $curuser->agentnum($agentnum);
  21 }
  22
  23 my $server =
  24   new FS::UI::Web::JSRPC 'FS::template_image::process_image_upload', $cgi;
  25
  26 </%init>