Proxmox helper script to load custom cloudinit user-data

proxmox-cloudinit-custom-userdata.pm

#!/usr/bin/perl

use strict;
use warnings;

use PVE::Tools qw(file_get_contents);
use PVE::QemuConfig;
use PVE::QemuServer;
use PVE::QemuServer::Cloudinit;

my $vmid = shift or die("Missing VMID argument");
my $userdatafile = shift or die("Missing user-data file argument");
my $conf = PVE::QemuConfig->load_config($vmid);

# Monkey-patch the PVE::QemuServerCloudinit::cloudinit_userdata function
#  to simply return the contents of the supplied file
*{PVE::QemuServer::Cloudinit::cloudinit_userdata} = sub {
    return file_get_contents($userdatafile);
};
PVE::QemuServer::Cloudinit::generate_cloudinitconfig($conf, $vmid);

# Reload the cloudinit drive
PVE::QemuServer::foreach_drive($conf, sub {
    my ($ds, $drive) = @_;
    my ($storeid, $volname) = PVE::Storage::parse_volume_id($drive->{file}, 1);
    return if !$volname || $volname !~ m/vm-$vmid-cloudinit/;
    my $storecfg = PVE::Storage::config();
    my $path = PVE::QemuServer::get_iso_path($storecfg, $vmid, $drive->{file});
    PVE::QemuServer::vm_mon_cmd($vmid, "eject", force => JSON::true, device => "drive-$ds");
    PVE::QemuServer::vm_mon_cmd($vmid, "change", device => "drive-$ds", target => "$path");
});