software/delete_pack.cgi

   1 #!/usr/local/bin/perl
   2 # delete_pack.cgi
   3 # Ask if the user wants to delete a package, and if so do it
   4
   5 require './software-lib.pl';
   6 &ReadParse();
   7 $p = $in{'package'};
   8 $v = $in{'version'};
   9 &error_setup(&text('delete_err', $p));
  10 (@pinfo = &package_info($p, $v)) ||
  11         &error(&text('delete_epack', $p));
  12
  13 if ($in{'sure'}) {
  14         # do the deletion
  15         &list_packages($p);
  16         if ($error = &delete_package($p, \%in, $v)) {
  17                 &error($error);
  18                 }
  19         &webmin_log("delete", "package", $p, { 'desc' => $packages{0,'desc'} });
  20         if ($in{'search'}) {
  21                 &redirect("search.cgi?search=$in{'search'}");
  22                 }
  23         else {
  24                 &redirect("");
  25                 }
  26         }
  27 else {
  28         &ui_print_header(undef, $text{'delete_title'}, "", "delete");
  29
  30         # Sum up files
  31         $n = &check_files($p, $v);
  32         $sz = 0;
  33         for($i=0; $i<$n; $i++) {
  34                 if ($files{$i,'type'} == 0) { $sz += $files{$i,'size'}; }
  35                 }
  36         print "<center>\n";
  37         if ($n) {
  38                 print &text('delete_rusure', "<tt>$p</tt>", $n, $sz),"<br>\n";
  39                 }
  40         else {
  41                 print &text('delete_rusure2', "<tt>$p</tt>"),"<br>\n";
  42                 }
  43
  44         # Ask if the user is sure..
  45         print &ui_form_start("delete_pack.cgi");
  46         print &ui_hidden("package", $p);
  47         print &ui_hidden("version", $v);
  48         print &ui_hidden("sure", 1);
  49         print &ui_hidden("search", $in{'search'});
  50         print &ui_submit($text{'delete_ok'}),"<p>\n";
  51         if (defined(&delete_options)) {
  52                 &delete_options($p);
  53                 }
  54         print &ui_form_end(),"</center>\n";
  55
  56         &ui_print_footer(
  57                 "edit_pack.cgi?search=$in{'search'}&package=".&urlize($p).
  58                 "&version=".&urlize($v), $text{'edit_return'});
  59         }
  60