software/edit_pack.cgi

   1 #!/usr/local/bin/perl
   2 # edit_pack.cgi
   3 # Displays the details of an existing package, with links to uninstall and
   4 # other options
   5
   6 require './software-lib.pl';
   7 &ReadParse();
   8 @pinfo = &package_info($in{'package'}, $in{'version'});
   9 $pinfo[0] || &error($text{'edit_egone'});
  10 &ui_print_header(undef, $text{'edit_title'}, "", "edit_pack");
  11
  12 @pinfo = &show_package_info($in{'package'}, $in{'version'}, 1);
  13 print "<table><tr>\n";
  14
  15 # Show button to list files, if supported
  16 if (!$pinfo[8]) {
  17         print &ui_form_start("list_pack.cgi");
  18         print &ui_hidden("package", $pinfo[0]);
  19         print &ui_hidden("version", $pinfo[4]);
  20         print &ui_hidden("search", $in{'search'});
  21         print "<td>",&ui_submit($text{'edit_list'}),"</td>\n";
  22         print &ui_form_end();
  23         }
  24
  25 # Show button to un-install (if possible)
  26 if (!$pinfo[7]) {
  27         print &ui_form_start("delete_pack.cgi");
  28         print &ui_hidden("package", $pinfo[0]);
  29         print &ui_hidden("version", $pinfo[4]);
  30         print &ui_hidden("search", $in{'search'});
  31         print "<td>",&ui_submit($text{'edit_uninst'}),"</td>\n";
  32         print &ui_form_end();
  33         }
  34
  35 print "</tr></table>\n";
  36
  37 if ($in{'search'}) {
  38         &ui_print_footer("search.cgi?search=$in{'search'}", $text{'search_return'});
  39         }
  40 else {
  41         &ui_print_footer("tree.cgi#$pinfo[1]", $text{'index_treturn'});
  42         }
  43
  44