File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/cluster-software

usr / libexec / webmin / cluster-software /

📁 ..
📄 CHANGELOG(1.01 KB)
📄 add.cgi(904 B)
📄 close.cgi(272 B)
📄 closeall.cgi(179 B)
📄 cluster-software-lib.pl(9.51 KB)
📄 compare.cgi(1.81 KB)
📄 compare_form.cgi(1.13 KB)
📄 config(25 B)
📄 config.info(108 B)
📄 config.info.ca(133 B)
📄 config.info.cs(82 B)
📄 config.info.de(125 B)
📄 config.info.es(90 B)
📄 config.info.fr(134 B)
📄 config.info.hr(0 B)
📄 config.info.ms(131 B)
📄 config.info.nl(130 B)
📄 config.info.no(129 B)
📄 config.info.pl(121 B)
📄 defaultacl(6 B)
📄 delete_host.cgi(254 B)
📄 delete_pack.cgi(3.15 KB)
📄 delete_packs.cgi(2.86 KB)
📄 do_install.cgi(7.11 KB)
📄 do_install_serial.cgi(3.55 KB)
📄 edit_host.cgi(3.84 KB)
📄 edit_pack.cgi(3.33 KB)
📁 help
📁 images
📄 index.cgi(4.87 KB)
📄 install_pack.cgi(4.82 KB)
📁 lang
📄 list_pack.cgi(2.28 KB)
📄 module.info(427 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(154 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(201 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(282 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(251 B)
📄 module.info.ca(155 B)
📄 module.info.ca.auto(31 B)
📄 module.info.cs(40 B)
📄 module.info.cs.auto(122 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(153 B)
📄 module.info.de(133 B)
📄 module.info.de.auto(25 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(263 B)
📄 module.info.es(39 B)
📄 module.info.es.auto(119 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(141 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(228 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(156 B)
📄 module.info.fr(41 B)
📄 module.info.fr.auto(139 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(186 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(155 B)
📄 module.info.hu(33 B)
📄 module.info.hu.auto(125 B)
📄 module.info.it(0 B)
📄 module.info.it.auto(147 B)
📄 module.info.ja(0 B)
📄 module.info.ja.auto(228 B)
📄 module.info.ko(0 B)
📄 module.info.ko.auto(193 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(181 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(165 B)
📄 module.info.ms(119 B)
📄 module.info.ms.auto(25 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(158 B)
📄 module.info.nl(35 B)
📄 module.info.nl.auto(122 B)
📄 module.info.no(35 B)
📄 module.info.no.auto(115 B)
📄 module.info.pl(132 B)
📄 module.info.pl.auto(33 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(154 B)
📄 module.info.pt_BR(0 B)
📄 module.info.pt_BR.auto(163 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(152 B)
📄 module.info.ru(0 B)
📄 module.info.ru.auto(278 B)
📄 module.info.sk(0 B)
📄 module.info.sk.auto(162 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(159 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(151 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(351 B)
📄 module.info.tr(0 B)
📄 module.info.tr.auto(159 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(272 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(235 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(162 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(131 B)
📄 module.info.zh_TW(0 B)
📄 module.info.zh_TW.auto(140 B)
📄 open.cgi(250 B)
📄 openall.cgi(427 B)
📄 prefs.info(28 B)
📄 refresh.cgi(1.61 KB)
📄 search.cgi(1.92 KB)

Editing: delete_pack.cgi

#!/usr/bin/perl
# delete_pack.cgi
# Ask if the user wants to delete a package, and if so do it

require './cluster-software-lib.pl';
&foreign_require("software", "software-lib.pl");
&ReadParse();

@servers = &list_servers();
@hosts = &list_software_hosts();
if ($in{'server'} < 0) {
	# Find servers that have the package
	foreach $h (@hosts) {
		foreach $p (@{$h->{'packages'}}) {
			if ($p->{'name'} eq $in{'package'}) {
				local ($s) = grep { $_->{'id'} == $h->{'id'} }
						  @servers;
				push(@got, $s);
				$gotmap{$s} = $h;
				$best = $s if (!$s->{'id'});
				last;
				}
			}
		}
	$s = $best ? $best : $got[0];
	}
else {
	($s) = grep { $_->{'id'} == $in{'server'} } @servers;
	($h) = grep { $_->{'id'} == $in{'server'} } @hosts;
	@got = ( $s );
	$gotmap{$s} = $h;
	}

&ui_print_header(undef, $text{'delete_title'}, "", "delete_pack");
if ($in{'sure'}) {
	# Do the deletion
	print "<b>",&text('delete_header', "<tt>$in{'package'}</tt>"),"</b><p>\n";
	&remote_multi_callback(\@got, $parallel_max, \&delete_callback, undef,
			       \@rvs, \@errs, "software", "software-lib.pl");

# Show the results
	$p = 0;
	foreach $g (@got) {
		local $d = $g->{'desc'} ? $g->{'desc'} : $g->{'host'};

if ($errs[$p] || $rvs[$p]) {
			print &text('delete_error', $d, $errs[$p] || $rvs[$p]),"<br>\n";
			}
		else {
			print &text('delete_success', $d),"<br>\n";
			local $h = $gotmap{$g};
			local @newpacks = grep { $_->{'name'} ne $in{'package'} } @{$h->{'packages'}};
			$h->{'packages'} = \@newpacks;
			&save_software_host($h);
			}
		$p++;
		}
	print "<p><b>$text{'delete_done'}</b><p>\n";
	}
else {
	# Sum up file sizes on best host
	&remote_foreign_require($s->{'host'}, "software", "software-lib.pl");
	if (!$gotmap{$s}->{'nofiles'}) {
		$n = &remote_foreign_call($s->{'host'}, "software",
					  "check_files", $in{'package'});
		$files = &remote_eval($s->{'host'}, "software", "\\%files");
		$sz = 0;
		for($i=0; $i<$n; $i++) {
			if ($files->{$i,'type'} == 0) {
				$sz += $files->{$i,'size'};
				}
			}
		}

# Ask if the user is sure..
	print "<center>\n";
	if ($in{'server'} < 0) {
		print &text($n ? 'delete_rusure' : 'delete_rusurenone',
			   "<tt>$in{'package'}</tt>", $n, $sz),"<br>\n";
		}
	else {
		print &text($n ? 'delete_rusure2' : 'delete_rusure2none',
			   "<tt>$in{'package'}</tt>", $n, $sz,
			   $s->{'desc'} ? $s->{'desc'} : $s->{'host'}),"<br>\n";
		}
	print "<form action=delete_pack.cgi>\n";
	print "<input type=hidden name=package value=\"$in{'package'}\">\n";
	print "<input type=hidden name=server value=\"$in{'server'}\">\n";
	print "<input type=hidden name=sure value=1>\n";
	print "<input type=hidden name=search value=\"$in{'search'}\">\n";
	print "<input type=submit value=\"$text{'delete_ok'}\"><p>\n";

# Show deletion options - but only if remote package system matches
	if (defined(&software::delete_options) &&
	    &same_package_system($gotmap{$s})) {
		&foreign_call("software", "delete_options", $p);
		}
	print "</center></form>\n";
	}

&remote_finished();
&ui_print_footer("", $text{'index_return'});

# delete_callback(&host)
sub delete_callback
{
local $error = &remote_foreign_call($_[0]->{'host'},
   "software", "delete_package", $in{'package'}, \%in);
return $error;
}

X7ROOT File Manager

Editing: delete_pack.cgi

Upload File

Create Folder