| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/software/ |
Upload File : |
#!/usr/bin/perl
# do_install.cgi
# Do the actual installation of a package from a file
require './software-lib.pl';
&ReadParse();
&error_setup(&text('do_err', $in{'package'}));
if ($show_install_progress) {
&ui_print_unbuffered_header(undef, $text{'do_title'}, "");
}
else {
&ui_print_header(undef, $text{'do_title'}, "");
}
# Save this CGI from being killed by a webmin or apache upgrade
$SIG{'TERM'} = 'IGNORE';
$SIG{'PIPE'} = 'IGNORE';
@packages = &file_packages($in{'file'});
if (defined(&install_packages) && @packages > 1) {
# Can install everything in one hit
&clean_environment();
$error = &install_packages($in{'file'}, \%in);
&reset_environment();
if ($error) { &install_error($error); }
if ($in{'need_unlink'}) { &unlink_file($in{'file'}); }
foreach $p (@packages) {
# Display package details
($package, $desc) = split(/\s+/, $p, 2);
@pinfo = &show_package_info($package);
# Display new files
@grid = ( );
$n = &check_files($package);
for($i=0; $i<$n; $i++) {
push(@grid, &html_escape($files{$i,'path'}));
}
print &ui_grid_table(\@grid, 2, 100, undef, undef,
$text{'do_files'});
&list_packages($package);
&webmin_log('install', 'package', $package,
{ 'desc' => $packages{0,'desc'},
'class' => $packages{0,'class'} });
}
}
else {
# Must install and show one by one
foreach $p (@packages) {
# attempt to install
print &ui_hr() if ($p ne $packages[0]);
($package, $desc) = split(/\s+/, $p, 2);
&clean_environment();
if ($show_install_progress) {
print "<pre>\n";
$error = &install_package(
$in{'file'}, &html_escape($package), \%in, 1);
print "</pre>\n";
}
else {
$error = &install_package(
$in{'file'}, &html_escape($package), \%in);
}
&reset_environment();
if ($error) { &install_error($error); }
if ($in{'need_unlink'}) { &unlink_file($in{'file'}); }
# display information
@pinfo = &show_package_info($package);
# Show files in package, if possible
$n = &check_files($package);
if ($n) {
@grid = ( );
for($i=0; $i<$n; $i++) {
push(@grid, &html_escape($files{$i,'path'}));
}
print &ui_grid_table(\@grid, 2, 100, undef, undef,
$text{'do_files'});
}
&list_packages($package);
&webmin_log('install', 'package', $package,
{ 'desc' => $packages{0,'desc'},
'class' => $packages{0,'class'} });
}
}
&ui_print_footer("", $text{'index_return'});
sub install_error
{
print "<b>",&text('do_efailed', @{[&html_escape($error)]}),"</b><p>\n";
print $text{'do_efailedmsg1'},"<p>\n";
if ($in{'need_unlink'}) {
print &text('do_efailedmsg2',
"delete_file.cgi?file=".
&urlize($in{'file'})),"<p>\n";
}
print &ui_hr();
&ui_print_footer("", $text{'index_return'});
exit;
}