| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 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 : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/usr/share/webmin/software/ |
Upload File : |
# Functions for FreeBSD pkg repository
sub list_update_system_commands
{
return ("pkg");
}
# update_system_install([package], [&in], [no-force])
# Install some package with apt
sub update_system_install
{
my $update = $_[0] || $in{'update'};
my $in = $_[1];
my $force = !$_[2];
# Build and show command to run
$update = join(" ", map { quotemeta($_) } split(/\s+/, $update));
my $cmd = "pkg install ".$update;
print &text('pkg_install', "<tt>$cmd</tt>"),"\n";
print "<pre>";
&additional_log('exec', undef, $cmd);
# Run it
&open_execute_command(CMD, "yes | $cmd", 2);
while(<CMD>) {
if (/Installing\s+(\S+)\-(\d\S*)/i) {
# New package
push(@rv, $1);
}
elsif (/\s+(\S+):\s+(\S+)\s+->\s+(\S+)/) {
# Upgrading package
push(@rv, $1);
}
print &html_escape("$_");
}
close(CMD);
print "</pre>\n";
if ($?) { print "$text{'pkg_failed'}<p>\n"; }
else { print "$text{'pkg_ok'}<p>\n"; }
return @rv;
}
# update_system_search(text)
# Returns a list of packages matching some search
sub update_system_search
{
local (@rv, $pkg);
&clean_language();
&open_execute_command(DUMP, "pkg search -Q comment ".quotemeta($_[0])." 2>/dev/null", 1,1);
while(<DUMP>) {
if (/^(\S+)-(\d\S*)\s+(\S.*)/) {
push(@rv, { 'name' => $1,
'version' => $2,
'desc' => $3 });
}
}
close(DUMP);
&reset_environment();
return @rv;
}
# update_system_available()
# Returns a list of package names and versions that are available from YUM
sub update_system_available
{
return &update_system_search(".*");
}
# update_system_updates()
# Returns a list of available package updates
sub update_system_updates
{
my @rv;
&clean_language();
&open_execute_command(DUMP, "yes no | pkg upgrade 2>/dev/null", 1,1);
while(<DUMP>) {
if (/^\s+(\S+):\s+(\S+)\s+->\s+(\S+)/) {
push(@rv, { 'name' => $1,
'oldversion' => $2,
'version' => $3 });
}
}
close(DUMP);
&reset_environment();
return @rv;
}
# update_system_resolve(name)
# Converts a standard package name like apache, sendmail or squid into
# the name used by ports.
sub update_system_resolve
{
local ($name) = @_;
return $name eq "apache" ? "apache24 ap24-mod_.*" :
$name eq "dhcpd" ? "isc-dhcp42-server" :
$name eq "mysql" ? "mysql-server" :
$name eq "openssh" ? "openssh-portable" :
$name eq "postgresql" ? "postgresql-server" :
$name eq "openldap" ? "openldap-server openldap-client" :
$name eq "samba" ? "samba36 samba36-smbclient samba36-nmblookup" :
$name eq "spamassassin" ? "p5-Mail-SpamAssassin" :
$name;
}
1;