Proxmox/pve-manager
5
0
Fork 0
Code Pull Requests Releases Activity

Allow to send notification mail about new packages.

Browse Source
This commit is contained in:
Dietmar Maurer 2013-06-19 13:01:10 +02:00
parent a481aebb96
commit a88002cf76
2 changed files with 53 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
PVE/API2/APT.pm
View File

@ -3,6 +3,7 @@ package PVE::API2::APT;
use strict;
use warnings;
use File::stat ();
use IO::File;
use File::Basename;
use LWP::UserAgent;
@ -223,6 +224,12 @@ __PACKAGE__->register_method({
additionalProperties => 0,
properties => {
node => get_standard_option('pve-node'),
notify => {
type => 'boolean',
description => "Send notification mail about new packages (to email address specified for user 'root\@pam').",
optional => 1,
default => 0,
},
},
},
returns => {
@ -244,7 +251,39 @@ __PACKAGE__->register_method({
PVE::Tools::run_command($cmd);
&$update_pve_pkgstatus();
my $pkglist = &$update_pve_pkgstatus();
if ($param->{notify} && scalar(@$pkglist)) {
my $usercfg = PVE::Cluster::cfs_read_file("user.cfg");
my $rootcfg = $usercfg->{users}->{'root@pam'} || {};
my $mailto = $rootcfg->{email};
if ($mailto) {
my $hostname = `hostname -f` || PVE::INotify::nodename();
chomp $hostname;
my $data = "Content-Type: text/plain;charset=\"UTF8\"\n";
$data .= "Content-Transfer-Encoding: 8bit\n";
$data .= "FROM: <root\@$hostname>\n";
$data .= "TO: $mailto\n";
$data .= "SUBJECT: New software packages available ($hostname)\n";
$data .= "\n";
$data .= "The following updates are available:\n\n";
foreach my $p (sort {$a->{Package} cmp $b->{Package} } @$pkglist) {
$data .= "$p->{Package}: $p->{OldVersion} ==> $p->{Version}\n";
}
my $fh = IO::File->new("|sendmail -B 8BITMIME $mailto") ||
die "unable to open 'sendmail' - $!";
print $fh $data;
$fh->close();
}
}
return;
};

15
bin/cron/daily/pve
View File

@ -29,13 +29,24 @@ my $nodename = PVE::INotify::nodename();
eval { PVE::API2::Subscription->update({ node => $nodename }); };
if (my $err = $@) {
syslog ('err', "update subscription info failed: $err");
syslog ('err', "update subscription info failed: $err");
}
my $dccfg = PVE::Cluster::cfs_read_file('datacenter.cfg');
eval { PVE::APLInfo::update($dccfg->{http_proxy}); };
if (my $err = $@) {
syslog ('err', "update appliance info failed - see /var/log/pveam.log for details");
syslog ('err', "update appliance info failed - see /var/log/pveam.log for details");
}
if (my $info = PVE::INotify::read_file('subscription')) {
# We assume that users with subscriptions want informations
# about new packages.
if ($info->{status} eq 'Active') {
eval { PVE::APL2::APT->update_database({ node => $nodename, notify => 1 }); };
if (my $err = $@) {
syslog ('err', "update apt database failed: $err");
}
}
}
sub cleanup_tasks {