software/csw_upgrade.cgi

   1 #!/usr/local/bin/perl
   2 # Upgrade all CSW packages
   3
   4 require './software-lib.pl';
   5 &ReadParse();
   6
   7 &ui_print_unbuffered_header(undef, $text{'csw_upgrade'}, "");
   8
   9 print "<b>",&text('csw_updatedesc',
  10                   "<tt>$pkg_get upgrade</tt>"),"</b><p>\n";
  11 print "<pre>";
  12 &additional_log("exec", undef, "$pkg_get upgrade");
  13 &clean_environment();
  14 $flag = $pkg_get =~ /pkgutil/ ? "--upgrade" : "upgrade";
  15 open(CMD, "yes y | $pkg_get $flag 2>&1 </dev/null |");
  16 while(<CMD>) {
  17         print &html_escape($_);
  18         }
  19 close(CMD);
  20 &reset_environment();
  21 print "</pre>\n";
  22
  23 &ui_print_footer("", $text{'index_return'});
  24