software/urpmi_upgrade.cgi

   1 #!/usr/local/bin/perl
   2 # Upgrade all packages, or update the database of URPMI packages
   3
   4 require './software-lib.pl';
   5 &ReadParse();
   6
   7 # Work out what we are doing
   8 if ($in{'upgrade'}) {
   9         $cmd = "urpmi --force --auto-select";
  10         $mode = "upgrade";
  11         }
  12 else {
  13         $cmd = "urpmi.update main updates contrib";
  14         $mode = "update";
  15         }
  16
  17 &ui_print_unbuffered_header(undef, $text{'urpmi_title_'.$mode}, "");
  18
  19 print "<b>",&text('urpmi_updatedesc', "<tt>$cmd</tt>"),"</b><p>\n";
  20 print "<pre>";
  21 &additional_log("exec", undef, $cmd);
  22 &clean_environment();
  23 open(CMD, "$cmd 2>&1 </dev/null |");
  24 while(<CMD>) {
  25         print &html_escape($_);
  26         }
  27 close(CMD);
  28 &reset_environment();
  29 print "</pre>\n";
  30 if ($?) {
  31         print "<b>$text{'uprmi_upgradefailed'}</b><p>\n";
  32         }
  33 else {
  34         print "<b>$text{'urpmi_upgradeok'}</b><p>\n";
  35         &webmin_log("urpmi", $mode)
  36         }
  37
  38 &ui_print_footer("", $text{'index_return'});
  39