#!/usr/local/bin/perl # apt_upgrade.cgi # Upgrade a debian system require './software-lib.pl'; &ReadParse(); &ui_print_unbuffered_header(undef, $text{'apt_upgrade'}, ""); if ($in{'update'}) { print "",&text('apt_updatedesc', "$apt_get_command update"),"
\n"; print "
"; &additional_log("exec", undef, "$apt_get_command update"); &clean_environment(); open(CMD, "$apt_get_command update 2>&1 ) { print &html_escape($_); } close(CMD); &reset_environment(); print "\n"; if ($?) { print "$text{'apt_updatefailed'}
\n"; &ui_print_footer("", $text{'index_return'}); exit; } else { print "$text{'apt_updateok'}
\n"; } } if ($in{'mode'}) { $opts = $in{'sim'} ? "-s -y -f" : "-y -f"; $cmd = $in{'mode'} == 2 ? "dist-upgrade" : $apt_get_command =~ /aptitude/ ? "safe-upgrade" : "upgrade"; print "",&text($in{'sim'} ? 'apt_upgradedescsim' : 'apt_upgradedesc', "$apt_get_command $opts $cmd"),"
\n"; print "
"; &additional_log("exec", undef, "$apt_get_command $opts $cmd"); &clean_environment(); open(CMD, "$apt_get_command $opts $cmd 2>&1 ) { if (/setting\s+up\s+(\S+)/i) { push(@packs, $1); } elsif (/packages\s+will\s+be\s+upgraded/i || /new\s+packages\s+will\s+be\s+installed/i) { print &html_escape($_); $line = $_ =\n"; if ($?) { print "$text{'apt_upgradefailed'}; $line =~ s/^\s+//; $line =~ s/\s+$//; push(@newpacks, split(/\s+/, $line)); } print; } close(CMD); &reset_environment(); if (!@rv && $config{'package_system'} ne 'debian' && !$?) { # Other systems don't list the packages installed! @packs = @newpacks; } print "
\n"; } else { print "$text{'apt_upgradeok'}
\n"; } foreach $p (@packs) { local @pinfo = &show_package_info($p); } &webmin_log("apt", "check", undef, { 'packages' => \@packs }) if (@packs); } &ui_print_footer("", $text{'index_return'});