END foreach (@output) { print "$_\n"; } print <$Lang::tr{'pakfire accept all'} END &Header::closebox(); &Header::closebigbox(); &Header::closepage(); exit; } } elsif ($pakfiresettings{'ACTION'} eq 'remove') { $pakfiresettings{'DELPAKS'} =~ s/\|/\ /g; if ("$pakfiresettings{'FORCE'}" eq "on") { my $command = "/usr/local/bin/pakfire remove --non-interactive --no-colors $pakfiresettings{'DELPAKS'} &>/dev/null &"; system("$command"); sleep(2); } else { &Header::openbox("100%", "center", "Abfrage"); my @output = `/usr/local/bin/pakfire resolvedeps --no-colors $pakfiresettings{'DELPAKS'}`; print < $Lang::tr{'pakfire uninstall package'}.$pakfiresettings{'DELPAKS'}.$Lang::tr{'pakfire possible dependency'} END foreach (@output) { print "$_\n"; } print <$Lang::tr{'pakfire accept all'} END &Header::closebox(); &Header::closebigbox(); &Header::closepage(); exit; } } elsif ($pakfiresettings{'ACTION'} eq 'update') { system("/usr/local/bin/pakfire update --force --no-colors &>/dev/null"); } elsif ($pakfiresettings{'ACTION'} eq 'upgrade') { system("/usr/local/bin/pakfire upgrade -y --no-colors &>/dev/null"); } elsif ($pakfiresettings{'ACTION'} eq "$Lang::tr{'save'}") { if ($pakfiresettings{'AUTOUPDATE'} == "on") { system("/usr/local/bin/pakfire enable updates"); } else { system("/usr/local/bin/pakfire disable updates"); } if ($pakfiresettings{'AUTOUPGRADE'} == "on") { system("/usr/local/bin/pakfire enable upgrades"); } else { system("/usr/local/bin/pakfire disable upgrades"); } &General::writehash("${General::swroot}/pakfire/settings", \%pakfiresettings); } &General::readhash("${General::swroot}/pakfire/settings", \%pakfiresettings); my %selected=(); my %checked=(); $checked{'AUTOUPDATE'}{'off'} = ''; $checked{'AUTOUPDATE'}{'on'} = ''; $checked{'AUTOUPDATE'}{$pakfiresettings{'AUTOUPDATE'}} = "checked='checked'"; $checked{'AUTOUPGRADE'}{'off'} = ''; $checked{'AUTOUPGRADE'}{'on'} = ''; $checked{'AUTOUPGRADE'}{$pakfiresettings{'AUTOUPGRADE'}} = "checked='checked'"; $checked{'UUID'}{'off'} = ''; $checked{'UUID'}{'on'} = ''; $checked{'UUID'}{$pakfiresettings{'UUID'}} = "checked='checked'"; # DPC move error message to top so it is seen! if ($errormessage) { &Header::openbox('100%', 'left', $Lang::tr{'error messages'}); print "$errormessage \n"; &Header::closebox(); } my $return = `pidof pakfire`; chomp($return); if ($return) { &Header::openbox( 'Waiting', 1, "" ); print < $Lang::tr{'pakfire working'} END my @output = `tail -20 /var/log/pakfire.log`; foreach (@output) { print "$_"; } print <END &Header::closebox(); &Header::closebigbox(); &Header::closepage(); exit; } my $core_release = `cat /opt/pakfire/db/core/mine`; chomp($core_release); my $core_update_age = &General::age("/opt/pakfire/db/core/mine"); my $corelist_update_age = &General::age("/opt/pakfire/db/lists/core-list.db"); my $server_update_age = &General::age("/opt/pakfire/db/lists/server-list.db"); my $packages_update_age = &General::age("/opt/pakfire/db/lists/packages_list.db"); &Header::openbox("100%", "center", "Pakfire"); print < (TR) Your system's state: (TR) Core-Update-Level: $core_release
(TR) Last Update made $core_update_age ago
(TR) Last server list update made $server_update_age ago
(TR) Last core list update made $corelist_update_age ago
(TR) Last packages list update made $packages_update_age ago$Lang::tr{'pakfire available addons'} $Lang::tr{'pakfire installed addons'} (TR) Please choose one or more items from the list below and click the 'plus' to install.
(TR) Please choose one or more items from the list below and click the 'minus' to uninstall.
END &Header::closebox(); &Header::openbox("100%", "center", "$Lang::tr{'settings'}"); print <END &Header::closebox(); &Header::closebigbox(); &Header::closepage();
$Lang::tr{'basic options'} $Lang::tr{'pakfire update daily'} $Lang::tr{'pakfire register'} (TR) Apply core updates automatically?