#!/cygdrive/c/strawberry/perl/bin/perl
# Program to print out text files for looking at.
# I print out the name and then the contents of the file.
# Files (like places) that have google links are compressed.
#
# I ignore any files that end in ~ and I only check file that end
# in .txt
#
$root_dir = "/cygdrive/c/htdocs/birds/";		# root dir
$dir = "text_place";


{
			# first read in in_class and process all the
			# relevant lines into hash arrays
   $pr_dir = $root_dir . $dir;
   @files = `ls $pr_dir`;
   foreach (@files) {
	   chomp;
	   $file = $pr_dir . "/" . $_;
	   print `ls $file`;
	   @lines = `cat $file`;
	   print "\n$_\n";
	   while ( $line = shift(@lines) ) {
		  if ($line =~ m/<iframe/ ) {
			 $line = "google/n";
		   } 
	   print $line;
	   }
   }

}