iam: authorize IAM management actions as IAM actions (#10593)

* s3: keep a non-S3 action out of the request-shape resolver

ResolveS3Action reads the request shape before it looks at the base action, so
an iam: or sts: action on a request that happens to carry an S3 query parameter
came back as the S3 action for that parameter. An action that already names its
service is resolved; there is no S3 request shape to read for it.

* iam: authorize the standalone IAM server's actions as IAM, not as S3

The standalone `weed iam` server wrapped its single POST / route in the generic
S3 Auth middleware with ACTION_ADMIN. The route has no {bucket}, so the check
ran with an empty bucket and resolved to a coarse S3 action rather than the IAM
one. The embedded IAM surface checks iam:<Action>; the standalone one was never
updated to match.

Both now go through one authorization function, so they cannot drift apart
again. It also rejects the anonymous identity, which has no user of its own to
run a self-service action against, and reads UserName from the body only, where
the handlers read it from.

weed/s3api/s3_action_resolver_test.go

@@ -113,3 +113,28 @@ func TestResolveS3Action_AttributesBeforeVersionId(t *testing.T) {
 		})
 	}
 }
+
+// A base action naming another service carries no S3 request shape, so a query
+// parameter on the request must not redirect it to an S3 action.
+func TestResolveS3ActionKeepsNonS3Service(t *testing.T) {
+	tests := []struct {
+		name       string
+		method     string
+		url        string
+		baseAction string
+	}{
+		{"iam action with batch delete query", http.MethodPost, "http://localhost/?delete", "iam:CreateUser"},
+		{"iam action with acl query", http.MethodPut, "http://localhost/?acl", "iam:AttachUserPolicy"},
+		{"iam action with tagging query", http.MethodGet, "http://localhost/?tagging", "iam:ListUsers"},
+		{"sts action with batch delete query", http.MethodPost, "http://localhost/?delete", "sts:AssumeRole"},
+	}
+
+	for _, tt := range tests {
+		t.Run(tt.name, func(t *testing.T) {
+			r, _ := http.NewRequest(tt.method, tt.url, nil)
+			if got := ResolveS3Action(r, tt.baseAction, "", ""); got != tt.baseAction {
+				t.Errorf("ResolveS3Action() = %q, want %q", got, tt.baseAction)
+			}
+		})
+	}
+}