equal
deleted
inserted
replaced
322 $in_file = $file; |
322 $in_file = $file; |
323 $file =~ /.*\\(.*)\\.*\\.*\\.*\\(.*)\\(.*)/i; |
323 $file =~ /.*\\(.*)\\.*\\.*\\.*\\(.*)\\(.*)/i; |
324 my $temp=$1; # lang code |
324 my $temp=$1; # lang code |
325 my $temp2=$3; # file name |
325 my $temp2=$3; # file name |
326 if ((lc $2) eq "sources") { |
326 if ((lc $2) eq "sources") { |
327 $out_file = "${out_path}\\$2\\$3"; |
327 $out_file = "${out_path}\\$3"; |
328 } else { |
328 } else { |
329 if (length($temp) > 4) { #skip extra files |
329 if (length($temp) > 4) { #skip extra files |
330 next; |
330 next; |
331 } |
331 } |
332 while (length($temp) < 4){ $temp = "0".$temp; } |
332 while (length($temp) < 4){ $temp = "0".$temp; } |
455 sub getFiles { |
455 sub getFiles { |
456 my $file_name = $File::Find::name; |
456 my $file_name = $File::Find::name; |
457 $file_name =~ s/\//\\/g; #Change / marks to \ |
457 $file_name =~ s/\//\\/g; #Change / marks to \ |
458 chomp $file_name; |
458 chomp $file_name; |
459 next if ( -d $file_name ); # Skip directories |
459 next if ( -d $file_name ); # Skip directories |
460 next if ((!($file_name =~ /o0000/i)) && (!($file_name =~ /\/sources\//i))); # Skip other then resource and source files |
460 next if ((!($file_name =~ /o0000/i)) && (!($file_name =~ /\\sources\\/i))); # Skip other then resource and source files |
461 push @find_files, $file_name; |
461 push @find_files, $file_name; |
462 } |
462 } |
463 |
463 |
464 sub write_what_file { |
464 sub write_what_file { |
465 my $out = shift; |
465 my $out = shift; |