anchor.diff:                   'POST' ->
                        case PathTokens of
                            ["uilogin"] ->
  -                             {done, handle_uilogin(Req)};
  +                             {ui, IsSSL, fun handle_uilogin/1};
                            ["uilogout"] ->
                                {done, handle_uilogout(Req)};
                            ["sampleBuckets", "install"] ->
  
positive.code:              end,
      case Action of
          {done, RV} -> RV;
          {auth_ro, F} -> auth_ro(Req, F, []);
          {auth_ro, F, Args} -> auth_ro(Req, F, Args);
          {auth_special, F, Args} -> auth_special(Req, F, Args);
  
negative.code: is_throttled_request(_) ->
      true.
  
  loop_inner(Req, {AppRoot, IsSSL}, Path, PathTokens) ->
      Action = case Req:get(method) of
                   Method when Method =:= 'GET'; Method =:= 'HEAD' ->
                       case PathTokens of
  