delete_pack.cgi

Unix下基于Web的管理工具

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

require './software-lib.pl';
&ReadParse();
$p = $in{'package'};
&error_setup(&text('delete_err', $p));
(@pinfo = &package_info($p)) ||
	&error(&text('delete_epack', $p));

if ($in{'sure'}) {
	# do the deletion
	if ($error = &delete_package($in{'package'})) {
		&error($error);
		}
	&redirect("");
	}
else {
	# Ask if the user is sure..
	&header($text{'delete_title'}, "", "delete");
	print "<hr>\n";

	$n = &check_files($p);
	$sz = 0;
	for($i=0; $i<$n; $i++) {
		if ($files{$i,'type'} == 0) { $sz += $files{$i,'size'}; }
		}
	print "<center>\n";
	print &text('delete_rusure', "<b>$p</b>", $n, $sz),"<br>\n";
	print "<form action=delete_pack.cgi>\n";
	print "<input type=hidden name=package value=\"$p\">\n";
	print "<input type=hidden name=sure value=1>\n";
	print "<input type=submit value='$text{'delete_ok'}'></center>\n";
	print "</form>\n";

	print "<hr>\n";
	&footer("edit_pack.cgi?package=".&urlize($p), $text{'edit_return'});
	}