do_install.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# do_install.cgi
# Do the actual installation of a package from a file

require './software-lib.pl';
&ReadParse();
&error_setup(&text('do_err', $in{'package'}));
$| = 1;

&header($text{'do_title'}, "");

foreach $p (&file_packages($in{'file'})) {
	# attempt to install
	print "<hr>\n";
	($package, $desc) = split(/\s+/, $p, 2);
	$error = &install_package($in{'file'}, $package);
	if ($error) {
		print "<h3>",&text('do_efailed', $error),"</h3>\n";
		print $text{'do_efailedmsg1'},"<p>\n";
		if ($in{'need_unlink'}) {
			print &text('do_efailedmsg2',
				"delete_file.cgi?file=".
				&urlize($in{'file'})),"<p>\n";
			}
		print "<hr>\n";
		&footer("", $text{'index_return'});
		exit;
		}
	if ($in{'need_unlink'}) { unlink($in{'file'}); }

	# display information
	@pinfo = &package_info($package);
	print "<h3>",&text('do_success', $package),"</h3>\n";
	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$text{'do_details'}</b></td> </tr>\n";
	print "<tr $cb> <td><table width=100%>\n";
	print "<tr> <td valign=top width=20%><b>$text{'do_desc'}</b></td>\n";
	print "<td colspan=3><font size=+1><pre>$pinfo[2]</pre></font></td> </tr>\n";

	print "<tr> <td width=20%><b>$text{'do_pack'}</b></td> <td>$pinfo[0]</td>\n";
	print "<td width=20%><b>$text{'do_class'}</b></td> <td>",
		$pinfo[1] ? $pinfo[1] : $text{'do_none'},"</td> </tr>\n";

	print "<tr> <td width=20%><b>$text{'do_ver'}</b></td> <td>$pinfo[4]</td>\n";
	print "<td width=20%><b>$text{'do_vend'}</b></td> <td>$pinfo[5]</td> </tr>\n";

	print "<tr> <td width=20%><b>$text{'do_arch'}</b></td> <td>$pinfo[3]</td>\n";
	print "<td width=20%><b>$text{'do_inst'}</b></td> <td>$pinfo[6]</td> </tr>\n";
	print "</table></td></tr></table><p>\n";

	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$text{'do_files'}</b></td> </tr>\n";
	print "<tr $cb> <td><table width=100%>\n";
	$n = &check_files($package);
	for($i=0; $i<$n; $i++) {
		if ($i%2 == 0) { print "<tr>\n"; }
		print "<td width=50%>$files{$i,'path'}</td>\n";
		if ($i%2 == 1) { print "</tr>\n"; }
		}
	print "</table></td></tr></table><p>\n";
	}

print "<hr>\n";
&footer("", $text{'index_return'});