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 < $Lang::tr{'pakfire system state'}: $Lang::tr{'pakfire core update level'}: $core_release
$Lang::tr{'pakfire last update'} $core_update_age ago
$Lang::tr{'pakfire last serverlist update'} $server_update_age ago
$Lang::tr{'pakfire last core list update'} $corelist_update_age ago
$Lang::tr{'pakfire last package update'} $packages_update_age ago$Lang::tr{'pakfire available addons'} $Lang::tr{'pakfire installed addons'} $Lang::tr{'pakfire install description'}
$Lang::tr{'pakfire uninstall description'}
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'} on / off $Lang::tr{'pakfire core update auto'} on / off $Lang::tr{'pakfire register'} on / off