[-] fix the web action name. Add "aws_a" as valid name

David RENÉ
1 parent 42dd94b5
Showing 1 changed file with 6 additions and 5 deletions Show diff stats
web/making_a_web_site.anubis
@@ -2798,7 +2798,7 @@ define (List(Web_arg) lwa, HTTP_Info info) -&gt; Separated_Web_Args($State)
                       with name = if substr(n,0,4) = "amp;" then substr(n, 4, length(n) - 4) else n, 
                        if name = "a" then 
                          swa(ps1,success(value),op1) 
-                       else if name = "aws_action" then 
+                       else if name = "aws_action" | name = "aws_a" then 
                          swa(ps1,success(value),op1) 
                        //else if name = "t" then
                        //  swa(ps1,an1,[web_arg("target",value) . op1]) 
@@ -2873,12 +2873,13 @@ define ($State          previous,
                   else f(previous,action_name,http_info,lwa,is_https,others),
  
                 http_https_action(an,allow,do_it) then
-                  if an = action_name 
-                  then 
-                    //println("Action ["+action_name+"] found");
+                  if an = action_name then 
+                    println("Action ["+action_name+"] found");
                     if allow(previous)
                             then do_it(http_info,lwa,previous)
-                            else previous
+                            else
+                              println("user not allowed to execute that Action ["+action_name+"]");
+                              previous
                   else f(previous,action_name,http_info,lwa,is_https,others),
  
               }