[pve-devel] [PATCH v2 pve-manager 28/42] add PVE::Notify module
Lukas Wagner
l.wagner at proxmox.com
Wed May 24 15:56:35 CEST 2023
The PVE::Notify module is a very thin wrapper around the
Proxmox::RS::Notify module, feeding the configuration from the
new 'notifications.cfg' and 'priv/notifications.cfg' files into
it.
Also, PVE::Notify contains some useful helpers.
Signed-off-by: Lukas Wagner <l.wagner at proxmox.com>
---
PVE/Makefile | 1 +
PVE/Notify.pm | 84 +++++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 85 insertions(+)
create mode 100644 PVE/Notify.pm
diff --git a/PVE/Makefile b/PVE/Makefile
index 48b85d33..d6317dde 100644
--- a/PVE/Makefile
+++ b/PVE/Makefile
@@ -13,6 +13,7 @@ PERLSOURCE = \
HTTPServer.pm \
Jobs.pm \
NodeConfig.pm \
+ Notify.pm \
Report.pm \
VZDump.pm
diff --git a/PVE/Notify.pm b/PVE/Notify.pm
new file mode 100644
index 00000000..01609b83
--- /dev/null
+++ b/PVE/Notify.pm
@@ -0,0 +1,84 @@
+package PVE::Notify;
+
+use strict;
+use warnings;
+
+use PVE::Cluster;
+use PVE::RS::Notify;
+
+PVE::Cluster::cfs_register_file(
+ 'notifications.cfg',
+ \&parse_notification_config,
+ \&write_notification_config,
+);
+
+PVE::Cluster::cfs_register_file(
+ 'priv/notifications.cfg',
+ \&parse_notification_config,
+ \&write_notification_config,
+);
+
+sub parse_notification_config {
+ my ($filename, $raw) = @_;
+
+ $raw = '' if !defined($raw);
+ return $raw;
+}
+
+sub write_notification_config {
+ my ($filename, $config) = @_;
+ return $config;
+}
+
+sub lock_config {
+ my ($code, $timeout) = @_;
+
+ PVE::Cluster::cfs_lock_file('notifications.cfg', $timeout, sub {
+ PVE::Cluster::cfs_lock_file('priv/notifications.cfg', $timeout, $code);
+ die $@ if $@;
+ });
+ die $@ if $@;
+}
+
+sub read_config {
+ my $config = PVE::Cluster::cfs_read_file('notifications.cfg');
+ my $priv_config = PVE::Cluster::cfs_read_file('priv/notifications.cfg');
+
+ return PVE::RS::Notify->parse_config($config, $priv_config);
+}
+
+sub write_config {
+ my ($rust_config) = @_;
+
+ my ($config, $priv_config) = $rust_config->write_config();
+ PVE::Cluster::cfs_write_file('notifications.cfg', $config);
+ PVE::Cluster::cfs_write_file('priv/notifications.cfg', $priv_config);
+}
+
+sub send_notification {
+ my ($channel, $severity, $title, $message, $properties, $config) = @_;
+ $config = read_config() if !defined($config);
+ $config->send($channel, $severity, $title, $message, $properties);
+}
+
+sub info {
+ my ($channel, $title, $message, $properties, $config) = @_;
+ send_notification($channel, 'info', $title, $message, $properties, $config);
+}
+
+sub notice {
+ my ($channel, $title, $message, $properties, $config) = @_;
+ send_notification($channel, 'notice', $title, $message, $properties, $config);
+}
+
+sub warning {
+ my ($channel, $title, $message, $properties, $config) = @_;
+ send_notification($channel, 'warning', $title, $message, $properties, $config);
+}
+
+sub error {
+ my ($channel, $title, $message, $properties, $config) = @_;
+ send_notification($channel, 'error', $title, $message, $properties, $config);
+}
+
+1;
--
2.30.2
More information about the pve-devel
mailing list