/*
 * This file is part of a proprietary work.
 *
 * Copyright (c) 2025-2026 Fossorial, Inc.
 * All rights reserved.
 *
 * This file is licensed under the Fossorial Commercial License.
 * You may not use this file except in compliance with the License.
 * Unauthorized use, copying, modification, or distribution is strictly prohibited.
 *
 * This file is not licensed under the AGPLv3.
 */

import { hashPassword } from "@server/auth/password";
import {
    db,
    orgs,
    resourcePolicies,
    resourcePolicyHeaderAuth,
    resourcePolicyPassword,
    resourcePolicyPincode,
    resourcePolicyRules,
    resourcePolicyWhiteList,
    rolePolicies,
    roles,
    userOrgs,
    userPolicies,
    users,
    type ResourcePolicy
} from "@server/db";
import { getUniqueResourcePolicyName } from "@server/db/names";
import { idpExistsForOrg } from "@server/lib/idp/idpExistsForOrg";
import { addMtlsCertificates } from "@server/lib/mtls";
import {
    MAX_MTLS_CERTIFICATES_PER_RESOURCE,
    parseCaCertificates
} from "@server/lib/mtlsCertificate";
import response from "@server/lib/response";
import {
    getResourceRuleValueValidationError,
    RESOURCE_RULE_MATCH_TYPES
} from "@server/lib/validators";
import logger from "@server/logger";
import { OpenAPITags, registry } from "@server/openApi";
import HttpCode from "@server/types/HttpCode";
import { and, eq, inArray, type InferInsertModel } from "drizzle-orm";
import { NextFunction, Request, Response } from "express";
import createHttpError from "http-errors";
import z from "zod";
import { fromError } from "zod-validation-error";

const createResourcePolicyParamsSchema = z.strictObject({
    orgId: z.string()
});

const ruleSchema = z.strictObject({
    action: z.enum(["ACCEPT", "DROP", "PASS"]).openapi({
        type: "string",
        enum: ["ACCEPT", "DROP", "PASS"],
        description: "rule action"
    }),
    match: z.enum(RESOURCE_RULE_MATCH_TYPES).openapi({
        type: "string",
        enum: [...RESOURCE_RULE_MATCH_TYPES],
        description: "rule match"
    }),
    value: z.string().min(1),
    priority: z.int().openapi({
        type: "integer",
        description: "Rule priority"
    }),
    enabled: z.boolean().optional()
});

const createResourcePolicyBodySchema = z.strictObject({
    name: z.string().min(1).max(255),
    // Access control
    sso: z.boolean().default(true),
    skipToIdpId: z
        .int()
        .positive()
        .optional()
        .nullable()
        .openapi({ type: "integer" }),
    roleIds: z
        .array(z.string().transform(Number).pipe(z.int().positive()))
        .optional()
        .default([]),
    userIds: z.array(z.string()).optional().default([]),
    // auth methods
    password: z.string().min(4).max(100).nullable().optional(),
    pincode: z
        .string()
        .regex(/^\d{6}$/)
        .or(z.null())
        .optional(),
    headerAuth: z
        .object({
            user: z.string().min(4).max(100),
            password: z.string().min(4).max(100),
            extendedCompatibility: z.boolean()
        })
        .nullable()
        .optional(),
    // email OTP
    emailWhitelistEnabled: z.boolean().optional().default(false),
    emails: z
        .array(
            z.email().or(
                z.string().regex(/^\*@[\w.-]+\.[a-zA-Z]{2,}$/, {
                    error: "Invalid email address. Wildcard (*) must be the entire local part."
                })
            )
        )
        .transform((v) => v.map((e) => e.toLowerCase()))
        .optional()
        .default([]),
    // rules
    applyRules: z.boolean().default(false),
    rules: z.array(ruleSchema).optional().default([]),
    // mTLS
    mtlsEnabled: z
        .boolean()
        .optional()
        .default(false)
        .describe(
            "Require clients to present a certificate signed by one of mtlsCaCertificates. Only takes effect on resources with SSL enabled (not TCP/UDP)."
        ),
    mtlsCaCertificates: z
        .array(
            z.strictObject({
                certificate: z.string().min(1).max(100_000),
                name: z.string().min(1).max(255).optional()
            })
        )
        .optional()
        .default([])
        .describe(
            "PEM-encoded trusted CA certificates for mTLS. Each certificate may be a bundle; the name is only kept for a single certificate."
        )
});

registry.registerPath({
    method: "post",
    path: "/org/{orgId}/resource-policy",
    description: "Create a resource policy.",
    tags: [OpenAPITags.PublicResourcePolicy],
    request: {
        params: createResourcePolicyParamsSchema,
        body: {
            content: {
                "application/json": {
                    schema: createResourcePolicyBodySchema
                }
            }
        }
    },
    responses: {}
});

export async function createResourcePolicy(
    req: Request,
    res: Response,
    next: NextFunction
) {
    try {
        // Validate request params
        const parsedParams = createResourcePolicyParamsSchema.safeParse(
            req.params
        );
        if (!parsedParams.success) {
            return next(
                createHttpError(
                    HttpCode.BAD_REQUEST,
                    fromError(parsedParams.error).toString()
                )
            );
        }
        const { orgId } = parsedParams.data;

        if (req.user && req.userOrgRoleIds?.length === 0) {
            return next(
                createHttpError(HttpCode.FORBIDDEN, "User does not have a role")
            );
        }

        // get the org
        const org = await db
            .select()
            .from(orgs)
            .where(eq(orgs.orgId, orgId))
            .limit(1);

        if (org.length === 0) {
            return next(
                createHttpError(
                    HttpCode.NOT_FOUND,
                    `Organization with ID ${orgId} not found`
                )
            );
        }

        const parsedBody = createResourcePolicyBodySchema.safeParse(req.body);
        if (!parsedBody.success) {
            return next(
                createHttpError(
                    HttpCode.BAD_REQUEST,
                    fromError(parsedBody.error).toString()
                )
            );
        }

        const {
            name,
            sso,
            userIds,
            roleIds,
            skipToIdpId,
            applyRules,
            emailWhitelistEnabled,
            password,
            pincode,
            headerAuth,
            emails,
            rules,
            mtlsEnabled,
            mtlsCaCertificates
        } = parsedBody.data;

        // Validate the CA certificates up front so bad input is a 400
        const mtlsFingerprints = new Set<string>();
        for (const { certificate } of mtlsCaCertificates) {
            try {
                for (const cert of parseCaCertificates(certificate)) {
                    if (mtlsFingerprints.has(cert.fingerprint)) {
                        return next(
                            createHttpError(
                                HttpCode.BAD_REQUEST,
                                "The same CA certificate was provided more than once"
                            )
                        );
                    }
                    mtlsFingerprints.add(cert.fingerprint);
                }
            } catch (e) {
                return next(
                    createHttpError(
                        HttpCode.BAD_REQUEST,
                        e instanceof Error ? e.message : "Invalid certificate"
                    )
                );
            }
        }
        if (mtlsFingerprints.size > MAX_MTLS_CERTIFICATES_PER_RESOURCE) {
            return next(
                createHttpError(
                    HttpCode.BAD_REQUEST,
                    `At most ${MAX_MTLS_CERTIFICATES_PER_RESOURCE} trusted CA certificates can be added`
                )
            );
        }
        if (mtlsEnabled && mtlsFingerprints.size === 0) {
            return next(
                createHttpError(
                    HttpCode.BAD_REQUEST,
                    "Add at least one trusted CA certificate before enabling mTLS."
                )
            );
        }

        // Check if Identity provider in `skipToIdpId` exists
        if (skipToIdpId) {
            const providerExists = await idpExistsForOrg(skipToIdpId, orgId);

            if (!providerExists) {
                return next(
                    createHttpError(
                        HttpCode.INTERNAL_SERVER_ERROR,
                        "Identity provider not found in this organization"
                    )
                );
            }
        }

        const adminRole = await db
            .select()
            .from(roles)
            .where(and(eq(roles.isAdmin, true), eq(roles.orgId, orgId)))
            .limit(1);

        if (adminRole.length === 0) {
            return next(
                createHttpError(HttpCode.NOT_FOUND, `Admin role not found`)
            );
        }

        const existingRoles = await db
            .select()
            .from(roles)
            .where(and(inArray(roles.roleId, roleIds)));

        const hasAdminRole = existingRoles.some((role) => role.isAdmin);

        if (hasAdminRole) {
            return next(
                createHttpError(
                    HttpCode.BAD_REQUEST,
                    "Admin role cannot be assigned to resource policy"
                )
            );
        }

        const existingUsers = await db
            .select()
            .from(users)
            .innerJoin(userOrgs, eq(userOrgs.userId, users.userId))
            .where(
                and(eq(userOrgs.orgId, orgId), inArray(users.userId, userIds))
            );

        const niceId = await getUniqueResourcePolicyName(orgId);

        for (const rule of rules) {
            const validationError = getResourceRuleValueValidationError(
                rule.match,
                rule.value
            );
            if (validationError) {
                return next(
                    createHttpError(HttpCode.BAD_REQUEST, validationError)
                );
            }
        }

        const policy = await db.transaction(async (trx) => {
            const [newPolicy] = await trx
                .insert(resourcePolicies)
                .values({
                    niceId,
                    orgId,
                    name,
                    sso,
                    idpId: skipToIdpId,
                    applyRules,
                    emailWhitelistEnabled,
                    mtlsEnabled
                })
                .returning();

            const rolesToAdd = [
                {
                    roleId: adminRole[0].roleId,
                    resourcePolicyId: newPolicy.resourcePolicyId
                }
            ] satisfies InferInsertModel<typeof rolePolicies>[];

            rolesToAdd.push(
                ...existingRoles.map((role) => ({
                    roleId: role.roleId,
                    resourcePolicyId: newPolicy.resourcePolicyId
                }))
            );

            await trx.insert(rolePolicies).values(rolesToAdd);

            const usersToAdd: InferInsertModel<typeof userPolicies>[] = [];

            if (
                req.user &&
                !req.userOrgRoleIds?.includes(adminRole[0].roleId)
            ) {
                // make sure the user can access the policy
                usersToAdd.push({
                    userId: req.user?.userId!,
                    resourcePolicyId: newPolicy.resourcePolicyId
                });
            }

            usersToAdd.push(
                ...existingUsers.map(({ user }) => ({
                    userId: user.userId,
                    resourcePolicyId: newPolicy.resourcePolicyId
                }))
            );

            if (usersToAdd.length > 0) {
                await trx.insert(userPolicies).values(usersToAdd);
            }

            if (password) {
                const passwordHash = await hashPassword(password);

                await trx.insert(resourcePolicyPassword).values({
                    resourcePolicyId: newPolicy.resourcePolicyId,
                    passwordHash
                });
            }

            if (pincode) {
                const pincodeHash = await hashPassword(pincode);

                await trx.insert(resourcePolicyPincode).values({
                    resourcePolicyId: newPolicy.resourcePolicyId,
                    pincodeHash,
                    digitLength: 6
                });
            }

            if (headerAuth) {
                const headerAuthHash = await hashPassword(
                    Buffer.from(
                        `${headerAuth.user}:${headerAuth.password}`
                    ).toString("base64")
                );

                await trx.insert(resourcePolicyHeaderAuth).values({
                    resourcePolicyId: newPolicy.resourcePolicyId,
                    headerAuthHash,
                    extendedCompatibility: headerAuth.extendedCompatibility
                });
            }

            if (emailWhitelistEnabled && emails.length > 0) {
                await trx.insert(resourcePolicyWhiteList).values(
                    emails.map((email) => ({
                        email,
                        resourcePolicyId: newPolicy.resourcePolicyId
                    }))
                );
            }

            if (rules.length > 0) {
                await trx.insert(resourcePolicyRules).values(
                    rules.map((rule) => ({
                        resourcePolicyId: newPolicy.resourcePolicyId,
                        ...rule
                    }))
                );
            }

            for (const { certificate, name } of mtlsCaCertificates) {
                await addMtlsCertificates(
                    {
                        type: "policy",
                        resourcePolicyId: newPolicy.resourcePolicyId
                    },
                    certificate,
                    name,
                    trx
                );
            }

            return newPolicy;
        });

        if (!policy) {
            return next(
                createHttpError(
                    HttpCode.INTERNAL_SERVER_ERROR,
                    "Failed to create policy"
                )
            );
        }
        return response<ResourcePolicy>(res, {
            data: policy,
            success: true,
            error: false,
            message: "resource policy created successfully",
            status: HttpCode.CREATED
        });
    } catch (error) {
        logger.error(error);
        return next(
            createHttpError(HttpCode.INTERNAL_SERVER_ERROR, "An error occurred")
        );
    }
}