view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/developer/code/sunix/update_main_version_number.pl  view on Meta::CPAN

#print("replacement = $replacement[$i]\n");
$file[$i]        = 'L_SU.pl';
$path2file[$i]   = $local . $up3dirs . '/script';

$i = 1;
$line2find[$i] = "VERSION = '$old_version';";
#print("line2find   = $line2find[$i]\n");
$replacement[$i] = "VERSION = '$new_version';";
#print("replacement = $replacement[$i]\n");
$file[$i]      = 'About.pm';
$path2file[$i] = $local . $up3dirs . '/messages';

$i = 2;
$line2find[$i] =
  "_program_title                 => 'SeismicUnixGui V$old_version',";
#print("line2find   = $line2find[$i]\n");
$replacement[$i] =
  "_program_title                 => 'SeismicUnixGui V$new_version',";
#print("replacement = $replacement[$i]\n");
$file[$i]      = 'L_SU_global_constants.pm';
$path2file[$i] = $local . $up3dirs . '/misc';

$i = 3;
$line2find[$i] = "VERSION = '$old_version';";
#print("line2find   = $line2find[$i]\n");
$replacement[$i] = "VERSION = '$new_version';";
#print("replacement = $replacement[$i]\n");
$file[$i]      = 'SeismicUnixGui.pm';
$path2file[$i] = $local . $up4dirs;

$i = 4;
$line2find[$i]     = "'SeismicUnixGuiInstallationGuide$old_version.pdf';";
print("line2find   = $line2find[$i]\n");
$replacement[$i] = "'SeismicUnixGuiInstallationGuide$new_version.pdf';";
print("replacement = $replacement[$i]\n");
$file[$i]         = 'help_button_messages.pm';
$path2file[$i]    = $local . $up3dirs . '/messages';

$i = 5;
$line2find[$i]     = "'SeismicUnixGuiTutorial$old_version.pdf';";
print("line2find   = $line2find[$i]\n");
$replacement[$i] = "'SeismicUnixGuiTutorial$new_version.pdf';";
print("replacement = $replacement[$i]\n");
$file[$i]         = 'help_button_messages.pm';
$path2file[$i]    = $local . $up3dirs . '/messages';

=head2 Set files and paths

=cut

for ( my $count = 0 ; $count < $max_num_files; $count++ ) {

#for ( my $count = 2 ; $count < 3; $count++ ) {
	
	$file_bck[$count] = $file[$count] . '_bck';
	
	$inbound[$count]      = $path2file[$count] . '/' . $file[$count];
	$outbound[$count]     = $path2file[$count] . '/' . $file[$count];
	$outbound_bck[$count] = $path2file[$count] . '/archive/' . $file_bck[$count];

	# save a backup file
	system("cp $inbound[$count] $outbound_bck[$count]");

	# slurp every file
	$manage_files_by2->set_pathNfile( $inbound[$count] );
	my $slurp_ref = manage_files_by2->get_whole();

	my @slurp           = @$slurp_ref;
	my $length_of_slurp = scalar @slurp;

	for ( my $line_idx = 0 ; $line_idx < $length_of_slurp ; $line_idx++ ) {

		# CASE within each *.pm file
		my $string = $slurp[$line_idx];

		#  chomp $string;    # remove all newlines
		if ( $string =~ m/$line2find[$count]/) {
			
			$string =~ s/$line2find[$count]/$replacement[$count]/;
			print(" substitution successful: $string\n");
			print(" in file: $file[$count]\n");
			
		}

#		print(" string: $string\n");
		$slurp[$line_idx] = $string;

	}

	open( OUT, ">","$outbound[$count]" )
	  or die("File $outbound[$count] not found");

#     open( OUT, ">","junk" )
#	  or die("File junk not found");

	foreach my $text (@slurp) {

		print OUT $text . "\n";

#		print("$text \n");
	}
	close(OUT);

}

print("Do not forget to update the internal name of the SeismicUnixGuiInstallationGuide \n
       and SeismicUnixTutorial too.\n
	   As well, update other contents of the file as necessary");