view release on metacpan or  search on metacpan

bin/salsaconfig  view on Meta::CPAN

sub server_choice {
	my $string = shift;

	my $answer = "";
	do {
		$answer = &get_answer("$string [$_[0]]: ");
	} while(!(length($answer) == 0 or &check_server($answer)));

	$_[0] = $answer ? $answer : $_[0];

	return();
}

sub time_choice {
	my $string = shift;

	my $answer = "";
	do {
		$answer = &get_answer("$string [$_[0]]: ");
	} while(!(length($answer) == 0 or $answer =~ /^\d+$/));

	$_[0] = $answer eq "" ? $_[0] : $answer;

	return();
}

sub whereis_cucaracha {
	my $string = shift;

	my $answer = "";
	do {
		$answer = &get_answer("$string [$_[0]]: ");
		$answer = $_[0] unless(length($answer));
	} while(!(-e $answer));
	$_[0] = $answer ? $answer : $_[0];
	return();
}

sub dir_choice {
	my $string = shift;

	my $answer = "";
	do {
		$answer = &get_answer("$string [$_[0]]: ");
		$answer = $_[0] unless(length($answer));
	} while(!(&init_make_dir($answer)));

	$_[0] = $answer ? $answer : $_[0];
	return();
}

sub init_make_dir {
	my $dir = shift;

	return(1) if(-d $dir);
	my $answer = &get_answer("Create the directory \"$dir\"? [y/N]: ");
	if($answer eq "Y" or $answer eq "y") {
		make_dir_rec($dir);
		-d $dir or return(0);
		chown($userid, $groupid, $dir);
	}
	return(1);
}

sub get_answer {
	my $string = shift;

	print $string;
	my $answer = <>;
	chomp $answer;
	return($answer);
}

1;