mirror of
https://github.com/webmin/webmin.git
synced 2026-02-10 17:22:04 +00:00
76 lines
2.2 KiB
Perl
Executable File
76 lines
2.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Check for and install updates
|
|
|
|
$no_acl_check++;
|
|
require './package-updates-lib.pl';
|
|
|
|
if ($ARGV[0] eq "--debug" || $ARGV[0] eq "-debug") {
|
|
$debug = 1;
|
|
}
|
|
|
|
# See what needs doing
|
|
@current = &list_current(1);
|
|
@avail = &list_available(0);
|
|
foreach $c (sort { $a->{'name'} cmp $b->{'name'} } @current) {
|
|
($a) = grep { $_->{'name'} eq $c->{'name'} &&
|
|
$_->{'system'} eq $c->{'system'} } @avail;
|
|
if ($a->{'version'} && &compare_versions($a, $c) > 0) {
|
|
# An update is available
|
|
push(@todo, { 'name' => $c->{'name'},
|
|
'update' => $a->{'update'},
|
|
'oldversion' => $c->{'version'},
|
|
'version' => $a->{'version'},
|
|
'level' => $a->{'security'} ? 1 : 2 });
|
|
}
|
|
}
|
|
|
|
# Install packages that are needed
|
|
$tellcount = 0;
|
|
foreach $t (@todo) {
|
|
if ($t->{'level'} <= $config{'sched_action'}) {
|
|
# Can install
|
|
$body .= "An update to $t->{'name'} from $t->{'oldversion'} to $t->{'version'} is needed.\n";
|
|
($out, $done) = &capture_function_output(
|
|
\&package_install, $t->{'update'});
|
|
if (@$done) {
|
|
$body .= "This update has been successfully installed.\n\n";
|
|
}
|
|
else {
|
|
$body .= "However, this update could not be installed! Try the update manually\nusing the Package Updates module.\n\n";
|
|
}
|
|
}
|
|
else {
|
|
# Just tell the user about it
|
|
$body .= "An update to $t->{'name'} from $t->{'oldversion'} to $t->{'version'} is available.\n\n";
|
|
$tellcount++;
|
|
}
|
|
}
|
|
|
|
if ($tellcount) {
|
|
# Add link to Webmin
|
|
&get_miniserv_config(\%miniserv);
|
|
$proto = $miniserv{'ssl'} ? 'https' : 'http';
|
|
$port = $miniserv{'port'};
|
|
$url = $proto."://".&get_system_hostname().":".$port."/$module_name/";
|
|
$body .= "Updates can be installed at $url\n\n";
|
|
}
|
|
|
|
# Email the admin
|
|
if ($config{'sched_email'} && $body) {
|
|
&foreign_require("mailboxes", "mailboxes-lib.pl");
|
|
my $from = &mailboxes::get_from_address();
|
|
my $mail = { 'headers' =>
|
|
[ [ 'From', $from ],
|
|
[ 'To', $config{'sched_email'} ],
|
|
[ 'Subject', "Package updates on ".
|
|
&get_system_hostname() ] ],
|
|
'attach' =>
|
|
[ { 'headers' => [ [ 'Content-type', 'text/plain' ] ],
|
|
'data' => $body } ] };
|
|
&mailboxes::send_mail($mail, undef, 1, 0);
|
|
if ($debug) {
|
|
print STDERR $body;
|
|
}
|
|
}
|
|
|