#!/bin/sh

# Copyright (C) 2024-2025 Internet Systems Consortium, Inc. ("ISC")
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

# Exit with error if commands exit with non-zero and if undefined variables are
# used.
set -eu

# shellcheck disable=SC2034
# SC2034: ... appears unused. Verify use (or export if used externally).
prefix="@prefix@"

# Include utilities based on location of this script. Check for sources first,
# so that the unexpected situations with weird paths fall on the default
# case of installed.
script_path=$(cd "$(dirname "${0}")" && pwd)
if test "${script_path}" = "@abs_top_builddir@/src/share/database/scripts/mysql"; then
    # shellcheck source=./src/bin/admin/admin-utils.sh.in
    . "@abs_top_builddir@/src/bin/admin/admin-utils.sh"
else
    # shellcheck source=./src/bin/admin/admin-utils.sh.in
    . "@datarootdir@/@PACKAGE_NAME@/scripts/admin-utils.sh"
fi

# Check only major version to allow for intermediary backported schema changes.
version=$(mysql_version "${@}" | cut -d '.' -f 1)
if test "${version}" != '26'; then
    printf 'This script upgrades 26.* to 27.0. '
    printf 'Reported version is %s. Skipping upgrade.\n' "${version}"
    exit 0
fi

# Get the schema name from database argument. We need this to
# query information_schema for the right database.
for arg in "${@}"
do
    if ! printf '%s' "${arg}" | grep -Eq -- '^--'
    then
        schema="$arg"
        break
    fi
done

# Make sure we have the schema.
if [ -z "$schema" ]
then
    printf "Could not find database schema name in cmd line args: %s\n" "${*}"
    exit 255
fi

mysql "$@" <<EOF

-- This line starts the schema upgrade to version 27.0.

SET @disable_audit = 1;

DROP FUNCTION IF EXISTS textToJSONList;
DELIMITER $$
CREATE FUNCTION textToJSONList(orig TEXT)
RETURNS  TEXT
DETERMINISTIC
BEGIN
    IF orig = '' OR orig IS NULL THEN
        RETURN NULL;
    END IF;

    RETURN CONCAT('[ "', orig, '" ]');
END $$
DELIMITER ;

ALTER TABLE dhcp4_shared_network
    CHANGE client_class client_classes LONGTEXT DEFAULT NULL;

UPDATE dhcp4_shared_network SET client_classes = textToJSONList(client_classes);

ALTER TABLE dhcp4_subnet
    CHANGE client_class client_classes LONGTEXT DEFAULT NULL;

UPDATE dhcp4_subnet SET client_classes = textToJSONList(client_classes);

ALTER TABLE dhcp4_pool
    CHANGE client_class client_classes LONGTEXT DEFAULT NULL;

UPDATE dhcp4_pool SET client_classes = textToJSONList(client_classes);

ALTER TABLE dhcp6_shared_network
    CHANGE client_class client_classes LONGTEXT DEFAULT NULL;

UPDATE dhcp6_shared_network SET client_classes = textToJSONList(client_classes);

ALTER TABLE dhcp6_subnet
    CHANGE client_class client_classes LONGTEXT DEFAULT NULL;

UPDATE dhcp6_subnet SET client_classes = textToJSONList(client_classes);

ALTER TABLE dhcp6_pool
    CHANGE client_class client_classes LONGTEXT DEFAULT NULL;

UPDATE dhcp6_pool SET client_classes = textToJSONList(client_classes);

ALTER TABLE dhcp6_pd_pool
    CHANGE client_class client_classes LONGTEXT DEFAULT NULL;

UPDATE dhcp6_pd_pool SET client_classes = textToJSONList(client_classes);

DROP FUNCTION textToJSONList;

SET @disable_audit = 0;

-- Update the schema version number.
UPDATE schema_version
    SET version = '27', minor = '0';

-- This line concludes the schema upgrade to version 27.0.
EOF
