package PVE::QemuServer::MetaInfo;

use strict;
use warnings;

use PVE::JSONSchema;

use PVE::QemuServer::Helpers;

our $meta_info_fmt = {
    'ctime' => {
        type => 'integer',
        description => "The guest creation timestamp as UNIX epoch time",
        minimum => 0,
        optional => 1,
    },
    'creation-qemu' => {
        type => 'string',
        description => "The QEMU (machine) version from the time this VM was created.",
        pattern => '\d+(\.\d+)+',
        optional => 1,
    },
};

sub parse_meta_info {
    my ($value) = @_;

    return if !$value;

    my $res = eval { PVE::JSONSchema::parse_property_string($meta_info_fmt, $value) };
    warn $@ if $@;
    return $res;
}

sub new_meta_info_string {
    my () = @_; # for now do not allow to override any value

    return PVE::JSONSchema::print_property_string(
        {
            'creation-qemu' => PVE::QemuServer::Helpers::kvm_user_version(),
            ctime => "" . int(time()),
        },
        $meta_info_fmt,
    );
}

1;