webmin/pserver/index.cgi

#!/usr/local/bin/perl
# index.cgi
# Display a table of icons for cvs server options

require './pserver-lib.pl';
&ReadParse();

if (!$cvs_path) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
	print "<p>",&text('index_ecvs', "<tt>$config{'cvs'}</tt>",
		  "@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

$ver = &get_cvs_version(\$out);
if (!$ver) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
	print "<p>",&text('index_eversion', "<tt>$config{'cvs'} -v</tt>",
			  "<pre>$out</pre>"),"<p>\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Go direct to one icon, if it is the only one available
@avfeatures = grep { $access{$_} } @features;
if (@avfeatures == 1 && !$access{'setup'}) {
	&redirect($featureprog{$avfeatures[0]});
	exit;
	}

&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, undef,
	&help_search_link("cvs", "man", "doc"), undef, undef,
	&text('index_version', $ver));

if (!-d "$config{'cvsroot'}/CVSROOT") {
	# No CVS root .. offer to setup
	print "<p>",&text('index_eroot',
		"@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";

	if ($access{'init'}) {
		print &text('index_initdesc',
			    "<tt>$config{'cvsroot'}</tt>"),"<p>\n";
		print "<form action=init.cgi>\n";
		print "<input type=submit value='$text{'index_init'}'>\n";
		print "</form>\n";
		}

	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Show configuration icons
@icons = map { "images/$_.gif" } @avfeatures;
@links = map { $featureprog{$_} } @avfeatures;
@titles = map { $text{$_."_title"} } @avfeatures;
&icons_table(\@links, \@titles, \@icons, 4);

if ($access{'setup'}) {
	# Check if run from inetd or xinetd
	print &ui_hr();
	print "<table width=100%><tr>\n";
	$inet = &check_inetd();
	if ($inet && $inet->{'args'} =~ /\s(\/\S+)\s+pserver$/) {
		$inetdir = $1;
		}
	if (!$inet) {
		print "<form action=setup.cgi>\n";
		print "<td><input type=submit value='$text{'index_setup'}'></td>\n";
		print "<td>",&text('index_setupdesc',
		   $has_xinetd ? "<tt>xinetd</tt>" : "<tt>inetd</tt>"),"<br>\n";
		print "<b>$text{'index_asuser'}</b>\n";
		print &ui_user_textbox("user", "root"),"\n";
		print "</td>\n";
		print "</form>\n";
		}
	elsif (!$inet->{'active'}) {
		print "<form action=setup.cgi>\n";
		print "<td><input type=submit value='$text{'index_act'}'></td>\n";
		if ($inetdir) {
			print "<td>",&text('index_actdesc2',
				"<tt>$inet->{'type'}</tt>",
				"<tt>$inetdir</tt>");
			}
		else {
			print "<td>",&text('index_actdesc',
				"<tt>$inet->{'type'}</tt>");
			}
		print "<br>\n";
		print "<b>$text{'index_asuser'}</b>\n";
		print &ui_user_textbox("user", $inet->{'user'}),"\n";
		print "</td>\n";
		print "</form>\n";
		}
	else {
		print "<form action=setup.cgi>\n";
		print "<td><input type=submit value='$text{'index_deact'}'></td>\n";
		if ($inetdir) {
			print "<td>",&text('index_deactdesc2',
				"<tt>$inet->{'type'}</tt>",
				"<tt>$inetdir</tt>"),"</td>\n";
			}
		else {
			print "<td>",&text('index_deactdesc',
				"<tt>$inet->{'type'}</tt>"),"</td>\n";
			}
		print "</form>\n";
		}
	print "</tr></table>\n";
	if ($inetdir && $inetdir ne $config{'cvsroot'}) {
		print "<p><center><b>$text{'index_einetroot'}</b></center>\n";
		}
	}

&ui_print_footer("/", $text{'index'});