165 lines
3.8 KiB
Perl
165 lines
3.8 KiB
Perl
BEGIN { push(@INC, ".."); };
|
|
use WebminCore;
|
|
init_config();
|
|
|
|
use File::Basename;
|
|
|
|
sub get_acugis_es_config
|
|
{
|
|
my $lref = &read_file_lines($config{'postgis_config'});
|
|
my @rv;
|
|
my $lnum = 0;
|
|
foreach my $line (@$lref) {
|
|
my ($n, $v) = split(/\s+/, $line, 2);
|
|
if ($n) {
|
|
push(@rv, { 'name' => $n, 'value' => $v, 'line' => $lnum });
|
|
}
|
|
$lnum++;
|
|
}
|
|
return @rv;
|
|
}
|
|
|
|
sub process_file_source{
|
|
my $file = '';
|
|
|
|
if (($in{'source'} == 0) && ($in{'file'} ne "")) { # from local file
|
|
&error_setup(&text('source_err0', $in{'file'}));
|
|
$file = $in{'file'};
|
|
if (!(-r $file)){
|
|
&inst_error($text{'source_err0'});
|
|
}
|
|
|
|
}elsif (($in{'source'} == 1) && ($in{'upload_filename'} ne "")) { # from uploaded file
|
|
&error_setup($text{'source_err1'});
|
|
$need_unlink = 1;
|
|
if ($no_upload) {
|
|
&inst_error($text{'source_err1.2'});
|
|
}
|
|
$file = transname(file_basename($in{'upload_filename'}));
|
|
open(MOD, ">$file");
|
|
binmode(MOD);
|
|
print MOD $in{'upload'};
|
|
close(MOD);
|
|
|
|
}elsif ($in{'source'} == 2 and $in{'url'} ne '') { # from ftp or http url (possible third-party)
|
|
$url = $in{'url'};
|
|
&error_setup(&text('source_err2', $url));
|
|
$file = &transname(file_basename($url));
|
|
$need_unlink = 1;
|
|
my $error;
|
|
$progress_callback_url = $url;
|
|
if ($url =~ /^(http|https):\/\/([^\/]+)(\/.*)$/) {
|
|
$ssl = $1 eq 'https';
|
|
$host = $2; $page = $3; $port = $ssl ? 443 : 80;
|
|
if ($host =~ /^(.*):(\d+)$/) { $host = $1; $port = $2; }
|
|
my %cookie_headers = ('Cookie'=>'oraclelicense=accept-securebackup-cookie');
|
|
&http_download($host, $port, $page, $file, \$error,
|
|
\&progress_callback, $ssl, undef, undef, 0, 0, 1, \%cookie_headers);
|
|
} elsif (
|
|
$url =~ /^ftp:\/\/([^\/]+)(:21)?\/(.*)$/) {
|
|
$host = $1; $ffile = $3;
|
|
&ftp_download($host, $ffile, $file, \$error, \&progress_callback);
|
|
}else {
|
|
&inst_error($text{'source_err3'});
|
|
}
|
|
&inst_error($error) if ($error);
|
|
}
|
|
return $file;
|
|
}
|
|
|
|
sub exec_cmd{
|
|
my $cmd = $_[0];
|
|
my $cmd_out='';
|
|
|
|
my $rv = &execute_command($cmd, undef, \$cmd_out, \$cmd_out, 0, 0);
|
|
if($cmd_out){
|
|
$cmd_out = &html_escape($cmd_out);
|
|
$cmd_out =~ s/[\r\n]/<\/br>/g;
|
|
print $cmd_out;
|
|
}
|
|
return $rv;
|
|
}
|
|
|
|
sub unzip_me{
|
|
my $file = $_[0];
|
|
my @suffixlist = ('\.zip');
|
|
($file_name,$path,$lib_suffix) = fileparse($file,@suffixlist);
|
|
|
|
my $unzip_dir = "/tmp/.webmin/$file_name";
|
|
|
|
#if old temp extension dir exist, remove it
|
|
#if( -d $unzip_dir and rmtree($unzip_dir) == 0){
|
|
# &error("Failed to remove temp extension dir");
|
|
# &ui_print_footer("", $text{'index_return'});
|
|
# exit;
|
|
#}
|
|
&make_dir($unzip_dir, 0754, 1);
|
|
|
|
my $unzip_out;
|
|
my $unzip_err;
|
|
print "<hr>Unzipping to $unzip_dir ...<br>";
|
|
exec_cmd("unzip -u \"$file\" -d \"$unzip_dir\"");
|
|
|
|
return $unzip_dir;
|
|
}
|
|
|
|
sub download_file{
|
|
my $url = $_[0];
|
|
|
|
my ($proto, $x, $host, $path) = split('/', $url, 4);
|
|
my @paths = split('/', $url);
|
|
my $filename = $paths[-1];
|
|
if($filename eq ''){
|
|
$filename = 'index.html';
|
|
}
|
|
|
|
my $sslmode = $proto eq 'https:';
|
|
my $port = 80;
|
|
if($sslmode){
|
|
$port = 443;
|
|
}
|
|
|
|
&error_setup(&text('install_err3', $url));
|
|
my $tmpfile = &transname($filename);
|
|
$progress_callback_url = $url;
|
|
|
|
&http_download($host, $port, '/'.$path, $tmpfile, \$error, \&progress_callback, $sslmode);
|
|
|
|
if($error){
|
|
print &html_escape($error);
|
|
return '';
|
|
}
|
|
return $tmpfile;
|
|
}
|
|
|
|
sub search_pkg{
|
|
my $pattern = $_[0];
|
|
|
|
my @avail = ();
|
|
if (defined(&software::update_system_search)) {
|
|
# Call the search function
|
|
@avail = &software::update_system_search($pattern);
|
|
} else {
|
|
# Scan through list manually
|
|
@avail = &software::update_system_available();
|
|
@avail = grep { $_->{'name'} =~ /\Q$pattern\E/i } @avail;
|
|
}
|
|
return sort @avail;
|
|
}
|
|
|
|
sub app_is_running(){
|
|
my $app=$_[0];
|
|
my $rv = 0;
|
|
|
|
&open_execute_command(CMD, '/bin/ps -ef', 1);
|
|
while(my $line = <CMD>) {
|
|
if ($line =~ /${app}/i) {
|
|
$rv = 1;
|
|
last;
|
|
}
|
|
}
|
|
close(CMD);
|
|
|
|
return $rv;
|
|
}
|