| 1 |
#!/usr/bin/env perl
|
| 2 |
use strict;
|
| 3 |
#===================================================================================================
|
| 4 |
# Assume a list of local files is found to be broken. Go through the list and recover one by one.
|
| 5 |
#===================================================================================================
|
| 6 |
my $file = "$ARGV[0]";
|
| 7 |
my $flag = "$ARGV[1]";
|
| 8 |
my $line = "";
|
| 9 |
|
| 10 |
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 |
|
| 17 |
#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
|
