Processing/bin/fixFiles.sh

#!/usr/bin/env perl
use strict;
#===================================================================================================
# Assume a list of local files is found to be broken. Go through the list and recover one by one.
#===================================================================================================
my $file = "$ARGV[0]";
my $flag = "$ARGV[1]";
my $line = "";

open(INFO, $file) or die("Could not open file ($file).");
foreach $line (<INFO>)  {   
  print "\nNew file: $line";
  system("fixFile.sh $line $flag")
}
close(INFO);

#FILE="$1"
#FLAG="$2"
#
#while read line
#do
#
#  echo "LINE: $line"
#
#  fullFile=`echo $line | cut -d ' ' -f1`
#  echo fixFile.sh $fullFile $FLAG
#  #fixFile.sh $fullFile $FLAG
#
#done
Revision:	1.2
Committed:	Fri Jan 18 22:55:24 2013 UTC (12 years, 3 months ago) by paus
Content type:	application/x-sh
Branch:	MAIN
CVS Tags:	Mit_032, Mit_031, Mit_030, Mit_029c, Mit_030_pre1, Mit_029a, HEAD
Changes since 1.1:	+24 -9 lines
Log Message:	Adjustments.
#	User	Rev	Content
1	paus	1.2	#!/usr/bin/env perl
2			use strict;
3	paus	1.1	#===================================================================================================
4			# Assume a list of local files is found to be broken. Go through the list and recover one by one.
5			#===================================================================================================
6	paus	1.2	my $file = "$ARGV[0]";
7			my $flag = "$ARGV[1]";
8			my $line = "";
9	paus	1.1
10	paus	1.2	open(INFO, $file) or die("Could not open file ($file).");
11			foreach $line (<INFO>) {
12			print "\nNew file: $line";
13			system("fixFile.sh $line $flag")
14			}
15			close(INFO);
16	paus	1.1
17	paus	1.2	#FILE="$1"
18			#FLAG="$2"
19			#
20			#while read line
21			#do
22			#
23			# echo "LINE: $line"
24			#
25			# fullFile=`echo $line \| cut -d ' ' -f1`
26			# echo fixFile.sh $fullFile $FLAG
27			# #fixFile.sh $fullFile $FLAG
28			#
29			#done