view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/RestoreProject.pl  view on Meta::CPAN

}
else {
	# NADA
#	print("NADA RestoreProject.pl\n");
}

=head2 STEP 1.

Does configuration information exist?

TODO: get_PROJECT_exists seems always=false ??

=cut

$PROJECT_exists = $L_SU_local_user_constants->get_PROJECT_exists();

=head2 Create an ACTIVE_PROJECT

This is the first time user runs SUG
and no .LSU directory exists

=cut 

if ( not $PROJECT_exists
	and $tutorial_name eq $default_tutorial_name )
{

	$L_SU_local_user_constants->makconfig();

	my $tar_input = $HOME . '/' . $tutorial_name;
#	print("Confirmation: PROJECT does not exist\n");
	
	my $old_Project_config_file = $tar_input . '/Project.config';
	my $new_Project_config_file =
	  $CONFIGURATION . '/' . $tutorial_name . '/Project.config';

=head2 Untar a project
	
=cut

	my $perl_instruction = ("cd $HOME; tar $untar_options $tar_input.tz");

	#	print("$perl_instruction\n");
	system($perl_instruction);

=head2
  
  Replace old username from backed-up Project.config file,
  (new_project_config_file)
  with the current user's name
  
  config_superflows has a special configuration file
  for program with a name=Project
  
=cut

	my ( $ref_parameter, $ref_value ) =
	  $readfiles->configs($old_Project_config_file);

	my @value                    = @$ref_value;
	my $old_username_from_backup = $value[7];

	$config_superflows->set_program_name( \$prog_name );    # needed

	# remove ticks around critical values
	$control->set_infection( $value[0] );
	my $home_value = $control->get_ticksBgone();

	$control->set_infection( $value[1] );
	my $project_value = $control->get_ticksBgone();

	$control->set_infection( $value[7] );
	my $subuser_value = $control->get_ticksBgone();

	$control->set_infection($old_username_from_backup);
	$old_username_from_backup = $control->get_ticksBgone();

	my $dir2find = $old_username_from_backup;

	my $instruction3;

	# for updating new_Project_config file
	$home_value    =~ s/$old_username_from_backup/$current_username/;
	$project_value =~ s/$old_username_from_backup/$current_username/;
	$subuser_value =~ s/$old_username_from_backup/$current_username/;

#	print(" home_value    = $home_value\n");
#	print(" project_value = $project_value\n");
#	print(" subuser_value = $subuser_value\n");

	$value[0] = $home_value;
	$value[1] = $project_value;
	$value[7] = $subuser_value;

	my $hash_ref = {
		_names_aref     => $ref_parameter,
		_values_aref    => \@value,
		_prog_name_sref => \$prog_name,
	};

=head2

	Updates new Project_config file
	in ACTIVE_PROJECT (no ticks)
	AND in the Servilleta
	subdirectory (with ticks)
	
=cut

	$config_superflows->save($hash_ref);

=pod	

Replace the Project_config file
within the ACTIVE_PROJECT,
because all its parameters have ticks
		
To do this, copy newly created Project.config, 
created above
by config_superflows_>save, in Servilleta subdirectory
to .LSU/configuration/active/Project.config

=cut

#	my $from1 = $new_Project_config_file;    # has the current user name
#	my $to1   = $ACTIVE_PROJECT;
#
##	print("Copying $from1 to $to1\n");
#
#	copy( $from1, $to1 );

	if ( $old_username_from_backup ne $current_username ) {

		# Replace old folder names with current username
		my $starting_point = $HOME . '/' . $tutorial_name;

		# print(" RestoreProject.pl,project_directory=$tutorial_name\n");

	 # print(" Looking for directories within the project to be restored...\n");
	 # print("old_username_from_backup=$old_username_from_backup\n");

		my @original_list =
		  `(find $starting_point -name $dir2find -type d -print 2>/dev/null)`;
		my $original_list_length = scalar @original_list;
		my @new_list             = @original_list;

		#	print("list is $original_list_length\n");
		print("@new_list\n");

=pod

Change folder names to the new user's

=cut

		#		print("current_username = $current_username\n");
		#		print("dir2find= $dir2find\n");

		for ( my $i = 0 ; $i < $original_list_length ; $i++ ) {

			my $old_directory = $original_list[$i];
			my $new_directory = $original_list[$i];

			# remove ambiguous substitutions by making sure
			# the directory name found has no extra letters
			# at the start or the end
			$new_directory =~
			  s/(?<=\b)(?=$dir2find\b)$dir2find/$current_username/g;
			chomp $old_directory;
			$instruction3 = `(mv $old_directory $new_directory 2>/dev/null)`;
			system($instruction3);

			# print(" new_directory=$new_directory\n");
			#		print("$instruction3\n ");

		}
	}

}

elsif ( not length $ARGV[0] ) {

=head2 STEP 2

Running Seismic Unix Gui's RestoreProject Tool option
Pre-existing project contains
RestoreProject.config file in ~pl/username directory

=cut

	# collect new project name from local RestoreProject.config
	my ( $CFG_h, $CFG_aref ) = $RestoreProject_config->get_values();
	my $new_project_dir_name = $CFG_h->{RestoreProject}{1}{directory_name};

	$control->set_infection($new_project_dir_name);
	$new_project_dir_name = $control->get_ticksBgone();

 #  print("RestoreProject.pl, new_project_dir_name = $new_project_dir_name \n");

	my $ACTIVE_PROJECT = $L_SU_local_user_constants->get_ACTIVE_PROJECT();

lib/App/SeismicUnixGui/big_streams/RestoreProject.pl  view on Meta::CPAN

		system($instruction2);

		#		print("$instruction1\n");
		#		print("$instruction2\n");

		#		print("First time a SUG Project is created\n");

		$length_projects = 1;
	}

=head2

 CASE 2
 N.B. At least one previous project directory
 (just created or not) must exist
 A Project.config file does not exist

=cut

	if ( $length_projects >= 1
		and not $same_project_exists )
	{

		print("This seems like a real SeismicUnixGui project!\n");

=head2

For all newly restored folders,
replace folder names = username with the current username

STEPS
1. Find old user name, in backed-up Project.config file
2. Find the current user's name ( see start of this module)
3. Replace the old with current user's name in the  Project.config file
4. Replace any restored folder names to the current user's name
5. Create folder in the configuration directory
6. Copy new Project.config file to the configuration directory



=pod
Make configuration directory
Copy the backed-up copy of
Project.config into the configuration
subfolder

=cut

		system($instruction2);

		#		print("$instruction2\n");
		my $from = $old_Project_config_file;
		my $to   = $new_Project_config_file;
		copy( $from, $to );

		print("RestoreProject.pl, Copying from $from to $to\n");

		my ( $ref_parameter, $ref_value ) =
		  $readfiles->configs($old_Project_config_file);
		my @value                    = @$ref_value;
		my $old_username_from_backup = $value[7];

#	print(" RestoreProject.pl,old username=$value[7]\n");
#	print(" RestoreProject.pl,old old_username_from_backup=$old_username_from_backup\n");

=head2
  
  Replace old username from backup-up Project.config file
  with the name of the current username
  
  config_superflows has a special configuration file
  for program with a name=Project
  
=cut

		$config_superflows->set_program_name( \$prog_name );    # needed

		$control->set_infection( $value[0] );
		my $home_value = $control->get_ticksBgone();

		$control->set_infection( $value[1] );
		my $project_value = $control->get_ticksBgone();

		$control->set_infection( $value[7] );
		my $subuser_value = $control->get_ticksBgone();

		$control->set_infection($old_username_from_backup);
		$old_username_from_backup = $control->get_ticksBgone();

		my $dir2find = $old_username_from_backup;

		$home_value    =~ s/$old_username_from_backup/$current_username/;
		$project_value =~ s/$old_username_from_backup/$current_username/;
		$subuser_value =~ s/$old_username_from_backup/$current_username/;

		#	print(" home_value   = $home_value\n");
		#	print(" project_value= $project_value\n");
		#	print(" subuser_value = $subuser_value\n");

		# restore ticks to the strings
		$control->set_first_name_string($home_value);
		$home_value = $control->get_w_single_quotes();

		$control->set_first_name_string($project_value);
		$project_value = $control->get_w_single_quotes();

		$control->set_first_name_string($subuser_value);
		$subuser_value = $subuser_value;

		$value[0] = $home_value;
		$value[1] = $project_value;
		$value[7] = $subuser_value;

		my $hash_ref = {
			_names_aref     => $ref_parameter,
			_values_aref    => \@value,
			_prog_name_sref => \$prog_name,
		};

		$config_superflows->save($hash_ref);


=pod	

Replace the Project_config file
within the ACTIVE_PROJECT,
because all its parameters have ticks
		
To do this, copy newly created Project.config, 
created above
by config_superflows_>save, in Servilleta subdirectory
to .LSU/configuration/active/Project.config

=cut


#	my $from1 = $new_Project_config_file;    # has the current user name
#	my $to1   = $ACTIVE_PROJECT;
#
##	print("Copying $from1 to $to1\n");
#
#	copy( $from1, $to1 );

		# avoid extra work
		if ( $old_username_from_backup ne $current_username ) {

			# Replace old folder names with current username
			my $starting_point = $HOME . '/' . $new_project_dir_name;

	   #		print(" RestoreProject.pl,project_directory=$new_project_dir_name\n");

	 #	print(" Looking for directories within the project to be restored...\n");
	 #		print("old_username_from_backup=$old_username_from_backup\n");

			my @original_list =
`(find $starting_point -name $dir2find -type d -print 2>/dev/null)`;
			my $original_list_length = scalar @original_list;
			my @new_list             = @original_list;

			#		print("list is $original_list_length\n");
			my $instruction3;

			# perform replacement here

			#	print("current_username = $current_username\n");
			#	print("dir2find= $dir2find\n");

			for ( my $i = 0 ; $i < $original_list_length ; $i++ ) {

				my $old_directory = $original_list[$i];
				my $new_directory = $original_list[$i];

				#			print("old_directory= $old_directory\n");

				# remove ambiguous substitutions by makign sure
				# the directory name found has no extra letters
				# at the start or the end
				$new_directory =~
				  s/(?<=\b)(?=$dir2find\b)$dir2find/$current_username/g;
				chomp $old_directory;
				$instruction3 = ("mv $old_directory $new_directory ");
				system($instruction3);

				#			print(" new_directory=$new_directory\n");
				#			print("$instruction3\n");

			}

			#	print("replaced list is @new_list\n");
			
		} # if current suername ne old_username
	}
	else {
		print("RestoreProject.pl,unsuccessful\n");
		print("You either have never run SUG before or\n");
		print(
			"you are trying to overwrite another project with the same name\n");
	}

}
else {
	print("RestoreProject.pl, possible missing project name to restore\n");

}