src/test/scripts/test-broadcast-kv.pl

   1 #!/usr/bin/perl
   2
   3 use lib '../../';
   4
   5 use strict;
   6 use warnings;
   7
   8 use JSON;
   9
  10 use PVE::Tools;
  11 use PVE::Cluster;
  12
  13 ## first broadcast a value for a key then you can check if you get it back by
  14 # omitting the value, or directly querys an already exisitng value (e.g., ceph
  15 # stats)
  16
  17 my $k = shift // die "no key";
  18 my $v = shift;
  19
  20 if (defined $v) {
  21     print "broadcasting kv pair ($k, $v)\n";
  22     PVE::Cluster::broadcast_node_kv($k, $v);
  23 }
  24
  25 print "querying value for key: $k\n";
  26 my $res = PVE::Cluster::get_node_kv($k);
  27
  28 print "res: " . to_json($res, {utf8 => 1, pretty => 1}) ."\n";