mirror of
https://github.com/webmin/webmin.git
synced 2026-03-08 03:52:13 +00:00
123 lines
3.6 KiB
Perl
Executable File
123 lines
3.6 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# update.pl
|
|
# Find and install updated modules, and email out the result
|
|
|
|
$no_acl_check++;
|
|
require './webmin-lib.pl';
|
|
|
|
# Fetch the updates
|
|
@urls = $config{'upsource'} ? split(/\t+/, $config{'upsource'})
|
|
: ( $update_url );
|
|
foreach $url (@urls) {
|
|
($updates, $host, $port, $page, $ssl) = &fetch_updates($url, $config{'upuser'}, $config{'uppass'});
|
|
|
|
# Go through the results
|
|
foreach $u (@$updates) {
|
|
# Skip modules that are not for this version of Webmin, IF the module
|
|
# is a core module or is not installed
|
|
local %minfo = &get_module_info($u->[0]);
|
|
local %tinfo = &get_theme_info($u->[0]);
|
|
local %info = %minfo ? %minfo : %tinfo;
|
|
next if (($u->[1] >= &get_webmin_base_version() + .01 ||
|
|
$u->[1] < &get_webmin_base_version()) &&
|
|
(!%info || $info{'longdesc'} || !$config{'upthird'}));
|
|
|
|
if (!%info && !$config{'upmissing'}) {
|
|
$rv .= &text('update_mmissing', $u->[0])."\n"
|
|
if (!$config{'upquiet'});
|
|
next;
|
|
}
|
|
if (%info && $info{'version'} >= $u->[1]) {
|
|
$rv .= &text('update_malready', $u->[0])."\n"
|
|
if (!$config{'upquiet'});
|
|
next;
|
|
}
|
|
local $osinfo = { 'os_support' => $u->[3] };
|
|
if (!&check_os_support($osinfo)) {
|
|
$rv .= &text('update_mos', $u->[0])."\n"
|
|
if (!$config{'upquiet'});
|
|
next;
|
|
}
|
|
if ($itype = &get_module_install_type($u->[0])) {
|
|
# Module was installed from an RPM/DEB - only allow if
|
|
# update is in the same format
|
|
if ($u->[2] !~ /\.$itype$/i) {
|
|
$rv .= &text('update_mtype', "<b>$u->[0]</b>",
|
|
uc($itype))."\n"
|
|
if (!$config{'upquiet'});
|
|
next;
|
|
}
|
|
}
|
|
if ($config{'upshow'}) {
|
|
# Just tell the user what would be done
|
|
$rv .= &text('update_mshow', $u->[0], $u->[1])."\n".
|
|
($info{'longdesc'} ? "$text{'update_fixes'} : " : "").
|
|
$u->[4]."\n\n";
|
|
}
|
|
else {
|
|
# Actually do the update .. XXX remove html from comments
|
|
local (@mdescs, @mdirs, @msizes);
|
|
$rv .= &text('update_mok', $u->[0], $u->[1])."\n".
|
|
($info{'longdesc'} ? "$text{'update_fixes'} : " : "").
|
|
$u->[4]."\n\n";
|
|
($mhost, $mport, $mpage, $mssl) =
|
|
&parse_http_url($u->[2], $host, $port, $page, $ssl);
|
|
($mfile = $mpage) =~ s/^(.*)\///;
|
|
$mtemp = &transname($mfile);
|
|
&http_download($mhost, $mport, $mpage, $mtemp, \$error,
|
|
undef, $mssl,
|
|
$config{'upuser'}, $config{'uppass'});
|
|
if ($error) {
|
|
$rv .= "$error\n\n";
|
|
last;
|
|
}
|
|
else {
|
|
$irv = &install_webmin_module($mtemp, 1, 0,
|
|
[ "admin", "root" ]);
|
|
if (!ref($irv)) {
|
|
$rv .= &text('update_failed', $irv)."\n\n";
|
|
}
|
|
else {
|
|
$rv .= &text('update_mdesc', $irv->[0]->[0],
|
|
$irv->[2]->[0])."\n\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# Check if a new version of webmin itself is available
|
|
$file = &transname();
|
|
&http_download('www.webmin.com', 80, '/', $file);
|
|
open(FILE, $file);
|
|
while(<FILE>) {
|
|
if (/webmin-([0-9\.]+)\.tar\.gz/) {
|
|
$version = $1;
|
|
last;
|
|
}
|
|
}
|
|
close(FILE);
|
|
unlink($file);
|
|
if ($version > &get_webmin_version()) {
|
|
$rv .= &text('update_version', $version)."\n";
|
|
}
|
|
|
|
# Send off a results email
|
|
if ($config{'upemail'} && $rv && &foreign_check("mailboxes")) {
|
|
# Construct and send the email
|
|
&foreign_require("mailboxes", "mailboxes-lib.pl");
|
|
local $data;
|
|
local $type = $gconfig{'real_os_type'} || $gconfig{'os_type'};
|
|
local $version = $gconfig{'real_os_version'} || $gconfig{'os_version'};
|
|
local $myhost = &get_system_hostname();
|
|
$data .= "$myhost ($type $version)\n\n";
|
|
$data .= &text('update_rv', "http://$host:$port$page")."\n\n";
|
|
$data .= $rv;
|
|
&mailboxes::send_text_mail(&mailboxes::get_from_address(),
|
|
$config{'upemail'},
|
|
undef,
|
|
$text{'update_subject'},
|
|
$data);
|
|
}
|
|
|