#!/usr/local/bin/perl # Upgrade all packages, or update the database of URPMI packages require './software-lib.pl'; &ReadParse(); # Work out what we are doing if ($in{'upgrade'}) { $cmd = "urpmi --force --auto-select"; $mode = "upgrade"; } else { $cmd = "urpmi.update main updates contrib"; $mode = "update"; } &ui_print_unbuffered_header(undef, $text{'urpmi_title_'.$mode}, ""); print "",&text('urpmi_updatedesc', "$cmd"),"
\n"; print "
"; &additional_log("exec", undef, $cmd); &clean_environment(); open(CMD, "$cmd 2>&1 ) { print &html_escape($_); } close(CMD); &reset_environment(); print "\n"; if ($?) { print "$text{'uprmi_upgradefailed'}
\n"; } else { print "$text{'urpmi_upgradeok'}
\n"; &webmin_log("urpmi", $mode) } &ui_print_footer("", $text{'index_return'});