====== Search_script ======

=====Search for a String (piece of text) in a Directory=====
 #!/usr/bin/perl
 <br>
 #Folder to Begin Search
 #Mine First
 $phpdir = "/home/steviewdr/";
 #$phpdir = "/home/";
 <br>
 #Log File
 $logfile = "/home/steviewdr/mysql_php.log";
 <br>
 #What to Search for
 $search = "localhost";
 #What to Replace if Required
 $replace = "mysql.server.ie";
 <br>
 # Find all the php files we're looking for
 $findcommand = "find $phpdir -name \"*.php\" -exec grep -q $search {} \\; -print";
 print $findcommand;
 $findphpfiles = `$findcommand`;
 print "Here's what it found:\n";
 print $findphpfiles;
 print "\n";
 <br>
 @phpfiles = split(/\n/, $findphpfiles);
 open (LOG, "> $logfile") or die "Can't open $logfile: $!\n";
 print "Checking each file......\n"; 
 <br>
 # go through each file and see if it says localhost in there
 # if so, we may need to edit and check it
 $ans = "n";
 foreach $file (@phpfiles)
 {
 	print "$file\n";
 	# read in all the lines
 	open (PHPFILE, $file) or die "Can't open $file: $!\n";
 	@phplines = <PHPFILE>;
 	close PHPFILE;
 	<br>
 	$lineno = 1;
 	foreach $line (@phplines)
 	{
 		#$found = 0;
 		<br>
 		if ($line =~ m/$search/)
 		{
 			#$newline =~ s/$othersearch/$replace/g;
 			print LOG "$file:$lineno\n\t$line";
 			#$found = 1;
 		}
 		$lineno = $lineno + 1;
 	}
 	close PHPFILE;
 }
 close (LOG);