Item12180: Correct args for not authorized case

git-svn-id: http://svn.foswiki.org/trunk@16265 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Dec 24, 2012 · f262f84 · f262f84
1 parent f1d18a2
commit f262f84
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/core/lib/Foswiki/Configure/ImageTest.pm b/core/lib/Foswiki/Configure/ImageTest.pm
@@ -16,7 +16,7 @@ use Foswiki::Configure qw/:session/;
 
 #<<<
 
-# This module was machine-generated by resources/img2perl from resources/icon_ok.png Wed Dec 12 09:11:53 2012
+# This module was machine-generated by ./resources/img2perl from resources/icon_ok.png Sun Dec 23 19:17:57 2012
 # The base64 content is binary data.
 #
 # Do not edit this file; edit the generator program instead.
@@ -62,7 +62,7 @@ sub respond {
         $sid = $1;
     }
     else {
-        return text($req, $res, "Not authorized by configure");
+        return text($req, $res, 403, "Forbidden", "Not authorized by configure");
     }
     my $session =
       CGI::Session->load( SESSION_DSN, $sid,

diff --git a/core/lib/Foswiki/Configure/resources/img2perl b/core/lib/Foswiki/Configure/resources/img2perl
@@ -103,7 +103,7 @@ sub respond {
         $sid = $1;
     }
     else {
-        return text($req, $res, "Not authorized by configure");
+        return text($req, $res, 403, "Forbidden", "Not authorized by configure");
     }
     my $session =
       CGI::Session->load( SESSION_DSN, $sid,