%PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY
Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/software/ |
Upload File : |
#!/usr/bin/perl # delete_packs.cgi # Ask if the user wants to delete multiple packages, and if so do it # XXX logging require './software-lib.pl'; &ReadParse(); &error_setup($text{'deletes_err'}); foreach $d (split(/\0/, $in{'del'})) { local ($p, $v) = split(/\s/, $d); local @pinfo; (@pinfo = &package_info($p, $v)) || &error(&text('delete_epack', $p)); push(@packs, $p); push(@vers, $v); push(@infos, \@pinfo); } @packs || &error($text{'deletes_enone'}); &ui_print_header(undef, $text{'deletes_title'}, "", "delete"); if ($in{'sure'}) { # do the deletion print "\n"; if (defined(&delete_packages)) { # Can just use one function print &text('deletes_desc', "<tt>".join(" ", @packs)."</tt>"), "\n"; $error = &delete_packages(\@packs, \%in, \@vers); if ($error) { print &text('deletes_failed2', $error),"\n"; } else { print "$text{'deletes_success2'}\n"; } } else { # Need to use a loop for($i=0; $i<@packs; $i++) { $error = &delete_package($packs[$i], \%in, $vers[$i]); if ($error) { print &text('deletes_failed1', "<tt>$packs[$i]</tt>", $error),"<br>\n"; } else { print &text('deletes_success1', "<tt>$packs[$i]</tt>"),"<br>\n"; } } } &webmin_log("deletes", "package", undef, { 'packs' => \@packs }); } else { # Ask if the user is sure.. print "<center>\n"; print &text('deletes_rusure', "<tt>".join(" ", @packs)."</tt>"), "<p>\n"; print &ui_form_start("delete_packs.cgi", "post"); foreach $d (split(/\0/, $in{'del'})) { print &ui_hidden("del", $d); } print &ui_hidden("sure", 1); print &ui_hidden("search", $in{'search'}); print &ui_submit($text{'deletes_ok'}),"<p>\n"; if (defined(&delete_options)) { &delete_options($packs[0]); } print &ui_form_end(),"</center>\n"; } &ui_print_footer("search.cgi?search=$in{'search'}", $text{'search_return'});