mirror of
https://github.com/webmin/webmin.git
synced 2026-02-10 09:12:05 +00:00
82 lines
2.5 KiB
Perl
Executable File
82 lines
2.5 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# update.cgi
|
|
# Find and install modules that need updating
|
|
|
|
require './webmin-lib.pl';
|
|
&ReadParse();
|
|
&error_setup($text{'update_err'});
|
|
|
|
# Display the results and maybe take action
|
|
$| = 1;
|
|
$theme_no_table = 1;
|
|
&ui_print_header(undef, $text{'update_title'}, "");
|
|
|
|
print "<b>",&text('update_info'),"</b><p>\n";
|
|
|
|
# Fetch updates
|
|
@urls = $in{'source'} == 0 ? ( $update_url ) : split(/\r?\n/, $in{'other'});
|
|
$count = 0;
|
|
foreach $url (@urls) {
|
|
# Get updates from this URL, and filter to those for this system
|
|
($updates, $host, $port, $page, $ssl) =
|
|
&fetch_updates($url, $in{'upuser'}, $in{'uppass'});
|
|
$count += scalar(@$updates);
|
|
$updates = &filter_updates($updates, undef,
|
|
$in{'third'}, $in{'missing'});
|
|
foreach $u (@$updates) {
|
|
# Get module or theme's details
|
|
local %minfo = &get_module_info($u->[0]);
|
|
local %tinfo = &get_theme_info($u->[0]);
|
|
local %info = %minfo ? %minfo : %tinfo;
|
|
|
|
if ($in{'show'}) {
|
|
# Just tell the user what would be done
|
|
print &text('update_mshow', "<b>$u->[0]</b>", "<b>$u->[1]</b>"),
|
|
"<br>\n";
|
|
print " " x 10;
|
|
print "$text{'update_fixes'} : " if ($info{'longdesc'});
|
|
print $u->[4],"<p>\n";
|
|
$donemodule{$u->[0]} = 1;
|
|
}
|
|
else {
|
|
# Actually do the update ..
|
|
local (@mdescs, @mdirs, @msizes);
|
|
print &text('update_mok', "<b>$u->[0]</b>", "<b>$u->[1]</b>"),
|
|
"<br>\n";
|
|
print " " x 10;
|
|
print "$text{'update_fixes'} : " if ($info{'longdesc'});
|
|
print $u->[4],"<br>\n";
|
|
($mhost, $mport, $mpage, $mssl) =
|
|
&parse_http_url($u->[2], $host, $port, $page, $ssl);
|
|
($mfile = $mpage) =~ s/^(.*)\///;
|
|
$mtemp = &transname($mfile);
|
|
$progress_callback_url = $u->[2];
|
|
$progress_callback_prefix = " " x 10;
|
|
&http_download($mhost, $mport, $mpage, $mtemp, undef,
|
|
\&progress_callback, $mssl,
|
|
$in{'upuser'}, $in{'uppass'});
|
|
$irv = &install_webmin_module($mtemp, 1, 0,
|
|
[ $base_remote_user ]);
|
|
print " " x 10;
|
|
if (!ref($irv)) {
|
|
print &text('update_failed', $irv),"<p>\n";
|
|
}
|
|
else {
|
|
print &text('update_mdesc', "<b>$irv->[0]->[0]</b>",
|
|
"<b>$irv->[2]->[0]</b>"),"<p>\n";
|
|
$donemodule{$irv->[0]->[0]} = 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
print &text('update_none'),"<br>\n" if (!$count);
|
|
|
|
# Check if a new version of webmin itself is available
|
|
$version = &get_latest_webmin_version();
|
|
if ($version > &get_webmin_version()) {
|
|
print "<b>",&text('update_version', $version),"</b><p>\n";
|
|
}
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|