view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/configs/big_streams/Project_config.pm  view on Meta::CPAN

	# Always create
	$manage_dirs_by->make_dir($DATA_SEISMIC_BIN);

	# CATEGORY resistivity data
	# location surface
	# and program R
	my $R_RESISTIVITY_SURFACE    = $Project->{_R_RESISTIVITY_SURFACE};
	my $DATA_RESISTIVITY_SURFACE = $Project->{_DATA_RESISTIVITY_SURFACE};
	my $DATA_RESISTIVITY_SURFACE_TXT =
	  $Project->{_DATA_RESISTIVITY_SURFACE_TXT};

	# $manage_dirs_by->make_dir($R_RESISTIVITY_SURFACE);
	$manage_dirs_by->make_dir($DATA_RESISTIVITY_SURFACE);
	$manage_dirs_by->make_dir($DATA_RESISTIVITY_SURFACE_TXT);

	# CATEGORY resistivity data
	# location well
	# and program R
	my $R_RESISTIVITY_WELL        = $Project->{_R_RESISTIVITY_WELL};
	my $DATA_RESISTIVITY_WELL     = $Project->{_DATA_RESISTIVITY_WELL};
	my $DATA_RESISTIVITY_WELL_TXT = $Project->{_DATA_RESISTIVITY_WELL_TXT};

	# CATEGORY resistivity data
	# location surface
	# and program PL
	$manage_dirs_by->make_dir($PL_RESISTIVITY_SURFACE);

	# CATEGORY GEOTECH well data
	# location well
	my $DATA_GEOTECH_WELL_TXT = $Project->{_DATA_GEOTECH_WELL_TXT};
	$manage_dirs_by->make_dir($DATA_GEOTECH_WELL_TXT);
	
	# CATEGORY GEOTECH well data
	# location well
	my $DATA_GEOTECH_WELL_XL = $Project->{_DATA_GEOTECH_WELL_XL};
	$manage_dirs_by->make_dir($DATA_GEOTECH_WELL_XL);

	# Always create new wells and their data
	my $DATA_SEISMIC_WELL_SYNSEIS = $Project->{_DATA_SEISMIC_WELL_SYNSEIS};
	$manage_dirs_by->make_dir($DATA_SEISMIC_WELL_SYNSEIS);

	return ();
}


=head2 sub get_max_index

max index = number of input variables -1

=cut

sub get_max_index {
	my ($self) = @_;

	my $max_index = 14;

	return ($max_index);
}

=head2 sub update_configuration_files

	saves the configuration file to:
		./L_SU/configuration/active/Project.config
	saves the configuration file to:
		 ./L_SU/configuration/Project_name/Project.config

=cut

sub update_configuration_files {
	my ($self) = @_;

	my $home_directory;

	use Shell qw(echo);

	$home_directory = ` echo \$HOME`;
	chomp $home_directory;

	my $HOME = $home_directory;

	use File::Copy;

	my $ACTIVE_CONFIGURATION = $HOME . '/.L_SU/configuration/active';
	my $inbound              = $ACTIVE_CONFIGURATION . '/Project.config';

	my $project = {
		_names_aref         => '',
		_values_aref        => '',
		_check_buttons_aref => '',
	};
#	print("L 2965 Project_config, $inbound\n");
	my ( $names_aref, $values_aref ) = $readfiles->configs($inbound);

	$project->{_names_aref}  = $names_aref;
	$project->{_values_aref} = $values_aref;
	my $Project_site = @{ $project->{_values_aref} }[2];

#	my $PROJECT_PATH = @{ $project->{_values_aref} }[1];
#	print("Project_config, update_configuration_files, Project site= $Project_site\n");
# print("Project_config, update_configuration_files,project->{_values_aref:@{$project->{_values_aref}}\n");

	if ( !( length($Project_site) ) ) {

		$Project_site = $var->{_no_dir};

		$dirs->set_path($Project_site);
		my $Project_name = $dirs->get_last_dirInpath();
		$control->set_infection($Project_name);
		$Project_name = $control->get_ticksBgone();

# print("Project_config,update_configuration_file, PROJECT_PATH: $PROJECT_PATH\n");
# print("Project_config,update_configuration_file, Project_name: $Project_name \n");

		my $FROM_project_config = $inbound;
		my $TO_project_config =
		  $HOME . '/.L_SU/configuration/' . $Project_name . '/Project.config';

# print("Project_config,update_configuration_files copying from $FROM_project_config to $TO_project_config\n");
		copy( $FROM_project_config, $TO_project_config );

	}
	elsif ( length $Project_site ) {

		$dirs->set_path($Project_site);
		my $Project_name = $dirs->get_last_dirInpath();
		$control->set_infection($Project_name);
		$Project_name = $control->get_ticksBgone();

# print("Project_config,update_configuration_file, PROJECT_PATH: $PROJECT_PATH\n");