#!\Interwoven\TeamSite\iw-perl\bin\perl -w

use strict;
use warnings;
use diagnostics;

# 
# Purpose: Crawl directories recursively
# 
# Description: This script counts all files within directories and rename appropriate files respectively.
#
# Author: 
# 

use Cwd; # module for finding the current working directory

use File::Find;  # a core module (no installation needed) #

# The location of the PERL executable
my $iwperl = "c:\\perl\\bin\\perl -pi.bak -e";
# my $iwperl = "E:\\Interwoven\\TeamSite\\iw-perl\\bin\\iwperl -pi.bak -e";

my @root= (
## Workareas ###
"Y:\\default\\main\\test.com\\WORKAREA\\www\\templatedata",
);  #an array of starting directories

my $final_total = 0; # final sum of total files
my $dummy = ""; # <enter> to start program

# run process
my $run = "";

# simulation mode yes (files not modified) or no (files modified)
my $sim = "";

# get hostname
my $hostname_cmd = "hostname";
`$hostname_cmd`;
my $hostname = `$hostname_cmd`;
chomp $hostname; # remove carriage return from hostname cmd

# Verify correct server
# if ($hostname eq "AUTO-CMS") {
	# call starting sub to begin process on correct serer
	&press_enter;
} else {
	# Process terminated, incorrect server
	print "\nReplace production hard code references on global test server process not executed, incorrect server \"$hostname\". Should only run process on global test server \"AUTO-CMS\".\n"; 
}

my $date = localtime;
$date =~ s/\b(\d)\b/0$1/g; #pad single digits with zero
                           #this seemed to be a requirement for some
                           #reason

my %options = (preprocess =>\&new_dir, wanted=>\&wanted);

## just to make sure the file is emptied before we start
my $output_file = qq|C:\\tmp\\prod_ref_results.txt|;
open(MYFILE, ">$output_file") || die "opening $output_file: $!";  # overwrite

# program started
if ($run =~ m/y|Y|yes|YES/) {
	print MYFILE "Replace production hard code references on test server process started $date\n";
	print MYFILE "-----------------------------------------------------------------------------------------------------\n";
	print "\nReplace prod hard code references on GT process started $date\n";
	print "--------------------------------------------------------------------\n";

	foreach(@root) {
		print "Scanning directory: $_\n";
		print MYFILE "Scanning directory: $_\n";
		&ScanDirectory($_);
	}	
		
	find ( \%options, @root);
END:
	print "FINAL TOTAL FILES MODIFIED: $final_total\n"; # return total files per directory
	print MYFILE "FINAL TOTAL FILES MODIFIED: $final_total\n"; # return total files per directory
} 

close MYFILE;

####################################################
# put up a message and wait for user to press ENTER
####################################################
sub press_enter
{
	print "\nThis process replaces prod hard code references on test. When run in simulation mode files are not modified, in non-simulation mode files are modified. A report is created on screen and a more detailed report in output file \"C:\\tmp\\prod_ref_results\.txt\"\. To stop program execution press ctrl c.\n\n";
	print "Press Enter to Continue . . .\n";
	$dummy = <STDIN>;	
	get_yes_no();
} # End of sub press_enter {

#####################################################################
# get user response to 1st question (Run process in simulation mode)
#####################################################################
sub get_yes_no
{
	print "Run process in simulation mode, files will NOT be modified\?\n";
	print "yes/no (y/n)\n";
	chomp ( my $res = <STDIN>);			
	if ($res =~ m/n|N|no|NO/) {
		get_yes_no2();
	} elsif ($res =~ m/y|Y|yes|YES/) {
		print "Process running in simulation mode, files will NOT be modified . . .\n";
		$sim = "yes";
		$run = "yes";
		return $sim;
		return $run;
	} else {
		print "Inappropriate answer, process terminated.\n";
		exit 0;			
	}
} # End of sub get_yes_no {

#########################################################################
# get user response to 2nd question (Run process in non simulation mode)
#########################################################################
sub get_yes_no2 {
	print "Run process in non simulation mode, FILES WILL BE MODIFIED\?\n";
	print "yes/no (y/n)\n";
	chomp ( my $res = <STDIN>);		
	if ($res =~ m/n|N|no|NO/) {
		print "Process running in simulation mode, files will NOT be modified . . .\n";
		$sim = "yes";
		$run = "yes";
		return $sim;
		return $run;
	} elsif ($res =~ m/y|Y|yes|YES/) {
		print "Process running in non simulation mode, FILES WILL BE MODIFIED . . .\n";
		$sim = "no";
		$run = "yes";
		return $sim;
		return $run;
	} else {
		print "Inappropriate answer, process terminated.\n";
		exit 0;			
	}		
} # End of sub get_yes_no2 {

sub ScanDirectory {
	my ($path) = shift; 
	my($startdir) = &cwd; # keep track of where we began
	chdir($path) or die "Unable to enter dir $path:$!\n";
	opendir(DIR, ".") or die "Unable to open $path:$!\n";
	my @names = readdir(DIR);
	closedir(DIR);	
}

sub new_dir
{   
	my @files = @_;  # the readdir() output 
                    # contains both (files and directories)
					
	my $num_files = grep{-f}@files; #-f are simple files	
	
	my $file_count = 0;	# add files
	my $total_count = 0; # total files
	
		# sort files 
		@files = sort(@files);
		
		foreach my $name (@files) {
		
			if (-d $name) {
				next if($name !~ m|(^[a-zA-Z0-9])|);
				next;
			}
		
			if (-e $name) {
				
				# skipped
				next if ($name eq "."); 
				next if ($name eq "..");	
			
				# $count++;

				open(WEBFILE, "$name") || die "opening $name: $!";  # read
				my @file = <WEBFILE>;			
				close(WEBFILE);
				
				my @change_file = qw();
				my @pre_change_file = qw();
				my %file_seen;
				my $ctr = 0;
				foreach my $line (@file) {
					$ctr++;
					if($line =~ m|www\.test\.com|i || $line =~ m|24\.130\.71\.100|i) {
						push (@pre_change_file, "$name");
						foreach my $pre_tag_file (@pre_change_file) {
							next if $file_seen{ $pre_tag_file }++; #remove duplicate files
								push(@change_file, $pre_tag_file);
								
							}
						}
					}
				}	
				
				foreach my $tag_file (@change_file) {
						$file_count++;
						if ($sim eq "no") {
							my $replace_cmd1 = "$iwperl \"s|24.130.71.100|24.130.71.10|g\" \"$File::Find::dir\\$name\""; # replace "24.130.71.100" string cmd1 
							`$replace_cmd1`; 
							# print "replace_cmd: $replace_cmd1\n";
							# print MYFILE "replace_cmd1: $replace_cmd1\n";
							my $replace_cmd2 = "$iwperl \"s|www.test.com|12.130.71.10|g\" \"$File::Find::dir\\$name\""; # replace "www.test.com" string cmd2
							`$replace_cmd2`;	
							# print "replace_cmd: $replace_cmd2\n";
							# print MYFILE "replace_cmd2: $replace_cmd2\n";
							# print "FILE MODIFIED: $File::Find::dir\\$name\n";
							# print ".BAK FILE DELETED: $path/$name\.bak\n\n";
							# print MYFILE ".BAK FILE DELETED: $path/$name\.bak\n\n\n";
							unlink("$File::Find::dir\\$name\.bak"); # delete .bak file created from replace cmd1 and cmd2
						}
						print MYFILE "FILE MODIFIED: $File::Find::dir\\$name\n";
						$total_count = $file_count;
						# print "totalcount: $total_count\n";
				}
			}
		}
	if ($file_count > 0) {
	
		# sum all files modified in all directories
		$total_count += $file_count;
		
		print "total files modified in \"$File::Find::dir\" directory: $file_count\n"; # return total files per directory
		print MYFILE "total files modified in \"$File::Find::dir\" directory: $file_count\n"; # return total files per directory
		
		if ($total_count > 5) {
			goto END;
		}
	}
	return @files;   #return the list to continue processing
}

sub wanted
{
	# not used here, but dummy sub is needed for syntax
	# this routine is called for each file/directory
	# if we wanted to do something special for each one
	# maybe get a size or whatever...

	# the full path name of this file would be in $File::Find::name 
}