#!/usr/local/bin/perl # Upgrade all CSW packages require './software-lib.pl'; &ReadParse(); &ui_print_unbuffered_header(undef, $text{'csw_upgrade'}, ""); print "",&text('csw_updatedesc', "$pkg_get upgrade"),"
\n"; print "
"; &additional_log("exec", undef, "$pkg_get upgrade"); &clean_environment(); $flag = $pkg_get =~ /pkgutil/ ? "--upgrade" : "upgrade"; open(CMD, "yes y | $pkg_get $flag 2>&1 ) { print &html_escape($_); } close(CMD); &reset_environment(); print "\n"; &ui_print_footer("", $text{'index_return'});