mirror of
https://git.proxmox.com/git/pve-manager
synced 2025-07-10 15:06:00 +00:00
97 lines
2.0 KiB
Perl
97 lines
2.0 KiB
Perl
package PVE::Status::Plugin;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PVE::JSONSchema;
|
|
use PVE::Cluster qw(cfs_register_file);
|
|
use PVE::SectionConfig;
|
|
|
|
use base qw(PVE::SectionConfig);
|
|
|
|
cfs_register_file('status.cfg',
|
|
sub { __PACKAGE__->parse_config(@_); },
|
|
sub { __PACKAGE__->write_config(@_); }
|
|
);
|
|
|
|
my $defaultData = {
|
|
propertyList => {
|
|
type => {
|
|
description => "Plugin type.",
|
|
type => 'string', format => 'pve-configid',
|
|
},
|
|
disable => {
|
|
description => "Flag to disable the plugin.",
|
|
type => 'boolean',
|
|
optional => 1,
|
|
},
|
|
server => {
|
|
type => 'string', format => 'address',
|
|
description => "server dns name or IP address",
|
|
},
|
|
port => {
|
|
type => 'integer',
|
|
description => "server network port",
|
|
},
|
|
},
|
|
};
|
|
|
|
sub private {
|
|
return $defaultData;
|
|
}
|
|
|
|
sub parse_section_header {
|
|
my ($class, $line) = @_;
|
|
|
|
if ($line =~ m/^(\S+):\s*(\S+)?\s*$/) {
|
|
my $type = lc($1);
|
|
my $id = $2 // $type;
|
|
my $errmsg = undef; # set if you want to skip whole section
|
|
eval { PVE::JSONSchema::pve_verify_configid($id) };
|
|
$errmsg = $@ if $@;
|
|
my $config = {}; # to return additional attributes
|
|
return ($type, $id, $errmsg, $config);
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
sub _connect {
|
|
my ($class, $cfg) = @_;
|
|
die "please implement inside plugin";
|
|
}
|
|
|
|
sub _disconnect {
|
|
my ($class, $connection) = @_;
|
|
|
|
$connection->close(); # overwrite if not a simple socket
|
|
}
|
|
|
|
sub send {
|
|
my ($class, $connection, $data) = @_;
|
|
|
|
defined($connection->send($data))
|
|
or die "failed to send metrics: $!\n";
|
|
}
|
|
|
|
sub update_node_status {
|
|
my ($class, $txn, $node, $data, $ctime) = @_;
|
|
die "please implement inside plugin";
|
|
}
|
|
|
|
sub update_qemu_status {
|
|
my ($class, $txn, $vmid, $data, $ctime, $nodename) = @_;
|
|
die "please implement inside plugin";
|
|
}
|
|
|
|
sub update_lxc_status {
|
|
my ($class, $txn, $vmid, $data, $ctime, $nodename) = @_;
|
|
die "please implement inside plugin";
|
|
}
|
|
|
|
sub update_storage_status {
|
|
my ($class, $txn, $nodename, $storeid, $data, $ctime) = @_;
|
|
die "please implement inside plugin";
|
|
}
|
|
|
|
1;
|