\n"; print "
";
&additional_log('exec', undef, "$cmd $update");
local $qm = join(" ", map { quotemeta($_) } split(/\s+/, $update));
&open_execute_command(CMD, "$cmd $qm ) {
s/\r|\n//g;
if (/installing\s+(\S+)\s+from/) {
# Found a package
local $pkg = $1;
$pkg =~ s/\-\d.*//; # remove version
push(@rv, $pkg);
}
print &html_escape($_."\n");
}
close(CMD);
print "\n";
if ($?) {
print "$text{'urpmi_failed'}\n"; return ( ); } else { print "$text{'urpmi_ok'}
\n";
return &unique(@rv);
}
}
# update_system_form()
# Shows a form for updating all packages on the system
sub update_system_form
{
print &ui_subheading($text{'urpmi_form'});
print &ui_form_start("urpmi_upgrade.cgi");
print &ui_submit($text{'urpmi_update'}, "update"),"
\n";
print &ui_submit($text{'urpmi_upgrade'}, "upgrade"),"
\n";
print &ui_form_end();
}
# update_system_resolve(name)
# Converts a standard package name like apache, sendmail or squid into
# the name used by YUM.
sub update_system_resolve
{
local ($name) = @_;
return $name eq "dhcpd" ? "dhcp-server" :
$name eq "mysql" ? "mariadb" :
$name eq "openldap" ? "openldap openldap-servers" :
$name eq "postgresql" ? "postgresql postgresql-server" :
$name eq "samba" ? "samba-client samba-server" :
$name;
}
# update_system_available()
# Returns a list of package names and versions that are available from URPMI
sub update_system_available
{
local @rv;
local %done;
&open_execute_command(PKG, "urpmq -f --list", 1, 1);
while(