Viewing file:  update.pl (1.86 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/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
@todo = &list_possible_updates();
foreach $a (@todo) {
$a->{'level'} = $a->{'security'} ? 1 : 2;
}
# Install packages that are needed
$tellcount = 0;
%already = ( );
foreach $t (@todo) {
next if ($already{$t->{'update'}});
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";
}
foreach $p (@$done) {
$already{$p}++;
}
}
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;
}
}
|