Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.01 KB	-rw-r--r--
add.cgi	904 B	-rwxr-xr-x
close.cgi	272 B	-rwxr-xr-x
closeall.cgi	179 B	-rwxr-xr-x
cluster-software-lib.pl	9.51 KB	-rwxr-xr-x
compare.cgi	1.81 KB	-rwxr-xr-x
compare_form.cgi	1.13 KB	-rwxr-xr-x
config	25 B	-rw-r--r--
config.info	108 B	-rw-r--r--
config.info.ca	131 B	-rw-r--r--
config.info.ca.UTF-8	133 B	-rw-r--r--
config.info.cz	73 B	-rw-r--r--
config.info.cz.UTF-8	82 B	-rw-r--r--
config.info.de	129 B	-rw-r--r--
config.info.de.UTF-8	129 B	-rw-r--r--
config.info.es	106 B	-rw-r--r--
config.info.es.UTF-8	106 B	-rw-r--r--
config.info.fr	75 B	-rw-r--r--
config.info.fr.UTF-8	77 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.ms_MY	131 B	-rw-r--r--
config.info.ms_MY.UTF-8	131 B	-rw-r--r--
config.info.nl	130 B	-rw-r--r--
config.info.nl.UTF-8	130 B	-rw-r--r--
config.info.no	133 B	-rw-r--r--
config.info.no.UTF-8	133 B	-rw-r--r--
config.info.pl	118 B	-rw-r--r--
config.info.pl.UTF-8	121 B	-rw-r--r--
defaultacl	6 B	-rw-r--r--
delete_host.cgi	254 B	-rwxr-xr-x
delete_pack.cgi	3.15 KB	-rwxr-xr-x
delete_packs.cgi	2.86 KB	-rwxr-xr-x
do_install.cgi	7.11 KB	-rwxr-xr-x
do_install_serial.cgi	3.55 KB	-rwxr-xr-x
edit_host.cgi	3.84 KB	-rwxr-xr-x
edit_pack.cgi	3.33 KB	-rwxr-xr-x
index.cgi	4.87 KB	-rwxr-xr-x
install_pack.cgi	4.82 KB	-rwxr-xr-x
list_pack.cgi	2.28 KB	-rwxr-xr-x
module.info	427 B	-rw-r--r--
module.info.ca	151 B	-rw-r--r--
module.info.ca.UTF-8	167 B	-rw-r--r--
module.info.cz	37 B	-rw-r--r--
module.info.cz.UTF-8	46 B	-rw-r--r--
module.info.de	137 B	-rw-r--r--
module.info.de.UTF-8	149 B	-rw-r--r--
module.info.es	39 B	-rw-r--r--
module.info.es.UTF-8	45 B	-rw-r--r--
module.info.fr	41 B	-rw-r--r--
module.info.fr.UTF-8	47 B	-rw-r--r--
module.info.hu	33 B	-rw-r--r--
module.info.hu.UTF-8	39 B	-rw-r--r--
module.info.ms_MY	125 B	-rw-r--r--
module.info.ms_MY.UTF-8	137 B	-rw-r--r--
module.info.nl	35 B	-rw-r--r--
module.info.nl.UTF-8	41 B	-rw-r--r--
module.info.no	35 B	-rw-r--r--
module.info.no.UTF-8	41 B	-rw-r--r--
module.info.pl	129 B	-rw-r--r--
module.info.pl.UTF-8	144 B	-rw-r--r--
open.cgi	250 B	-rwxr-xr-x
openall.cgi	427 B	-rwxr-xr-x
refresh.cgi	1.61 KB	-rwxr-xr-x
search.cgi	1.92 KB	-rwxr-xr-x

Code Editor : 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;
}

${this.title}

Code Editor : delete_pack.cgi