286 { |
286 { |
287 my($dir,$obyfile,$nonsisFileArray,$renameArray,$aliasArray,$hideArray,$verboseOpt,$keepgoingOpt) = @_; |
287 my($dir,$obyfile,$nonsisFileArray,$renameArray,$aliasArray,$hideArray,$verboseOpt,$keepgoingOpt) = @_; |
288 open (OBEY ,$obyfile) or die($obyfile."\n"); |
288 open (OBEY ,$obyfile) or die($obyfile."\n"); |
289 while(my $line =<OBEY>) |
289 while(my $line =<OBEY>) |
290 { |
290 { |
291 if( $line =~ /^(file|data)\s*=\s*(\S+)\s+(\S+)/i ) |
291 if( $line =~ /^(file|data)\s*=\s*(\"[^"]+\")\s+(\"[^"]+\")/i || |
|
292 $line =~ /^(file|data)\s*=\s*(\"[^"]+\")\s+(\S+)/i || |
|
293 $line =~ /^(file|data)\s*=\s*(\S+)\s+(\"[^"]+\")/i || |
|
294 $line =~ /^(file|data)\s*=\s*(\S+)\s+(\S+)/i ) |
292 { |
295 { |
293 my $keyWord=$1; |
296 my $keyWord=$1; |
294 my $source=$2; |
297 my $source=$2; |
295 my $dest=$3; |
298 my $dest=$3; |
296 |
299 |
297 if( $source !~ /(\S+):(\S+)/ ) |
300 if( $source !~ /(\S+):([^"]+)/ ) |
298 { |
301 { |
299 $source = get_drive().$2; |
302 $source = get_drive().$2; |
300 } |
303 } |
301 my $var = ©FilesToFolders( $source,$dest,$dir,$verboseOpt); |
304 my $var = ©FilesToFolders( $source,$dest,$dir,$verboseOpt); |
302 if($var) |
305 if($var) |
303 { |
306 { |
304 $var = $keyWord."=".$var; |
307 $line = $keyWord."=".$var."\t".$dest."\n"; |
305 $line =~ s/^(\S+)=(\S+)/$var/; |
|
306 push(@$nonsisFileArray,$line); |
308 push(@$nonsisFileArray,$line); |
307 } |
309 } |
308 else |
310 else |
309 { |
311 { |
310 exit(1)if(!$keepgoingOpt); |
312 exit(1)if(!$keepgoingOpt); |