worker.pm (dba1a2e4) worker.pm (1ba1fd99)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 719 unchanged lines hidden (view full) ---

728
729 for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
730 {
731 my $oneitem = ${$itemsref}[$i];
732 my $styles = "";
733 if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'} };
734 if ( $styles =~ /\b$flag\b/ )
735 {
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 719 unchanged lines hidden (view full) ---

728
729 for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
730 {
731 my $oneitem = ${$itemsref}[$i];
732 my $styles = "";
733 if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'} };
734 if ( $styles =~ /\b$flag\b/ )
735 {
736 $installer::logger::Lang->printf("Attention: Removing from collector: %s\n", $oneitem->{'Name'});
737 if ($flag eq "BINARYTABLE_ONLY")
738 {
739 push(@installer::globals::binarytableonlyfiles, $oneitem);
740 }
736 $installer::logger::Lang->printf(
737 "Attention: Removing from collector '%s' because it has flag %s\n",
738 $oneitem->{'Name'},
739 $flag);
740 if ( $flag eq "BINARYTABLE_ONLY" ) { push(@installer::globals::binarytableonlyfiles, $oneitem); }
741 next;
742 }
743 push( @allitems, $oneitem );
744 }
745
746 return \@allitems;
747}
748

--- 1958 unchanged lines hidden (view full) ---

2707 my $max = 5000; # number of pathes in one file
2708
2709 my @pathcollector = ();
2710 my $startnumber = 0;
2711 my $counter = 0;
2712
2713 for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2714 {
741 next;
742 }
743 push( @allitems, $oneitem );
744 }
745
746 return \@allitems;
747}
748

--- 1958 unchanged lines hidden (view full) ---

2707 my $max = 5000; # number of pathes in one file
2708
2709 my @pathcollector = ();
2710 my $startnumber = 0;
2711 my $counter = 0;
2712
2713 for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2714 {
2715 my $filename = ${$filesref}[$i]->{'sourcepath'};
2716 push(@pathcollector, $filename . "\n");
2715 my $filename = ${$filesref}[$i]->{'sourcepath'};
2716 push(@pathcollector, $filename . "\n");
2717 $counter++;
2717 $counter++;
2718
2718
2719 if (( $i == $#{$filesref} ) || ((( $counter % $max ) == 0 ) && ( $i > 0 )))
2720 {
2721 my $tmpfilename = "cygwinhelper_" . $i . ".txt";
2722 my $temppath = $installer::globals::temppath;
2723 $temppath =~ s/\Q$installer::globals::separator\E\s*$//;
2724 $tmpfilename = $temppath . $installer::globals::separator . $tmpfilename;
2725 $infoline = "Creating temporary file for cygwin conversion: $tmpfilename (contains $counter pathes)\n";
2726 $installer::logger::Lang->print($infoline);

--- 9 unchanged lines hidden (view full) ---

2736 chomp @cyg_sourcepathlist;
2737
2738 # Validating the array, it has to contain the correct number of values
2739 my $new_pathes = $#cyg_sourcepathlist + 1;
2740 if ( $new_pathes == $counter ) { $success = 1; }
2741
2742 if ($success)
2743 {
2719 if (( $i == $#{$filesref} ) || ((( $counter % $max ) == 0 ) && ( $i > 0 )))
2720 {
2721 my $tmpfilename = "cygwinhelper_" . $i . ".txt";
2722 my $temppath = $installer::globals::temppath;
2723 $temppath =~ s/\Q$installer::globals::separator\E\s*$//;
2724 $tmpfilename = $temppath . $installer::globals::separator . $tmpfilename;
2725 $infoline = "Creating temporary file for cygwin conversion: $tmpfilename (contains $counter pathes)\n";
2726 $installer::logger::Lang->print($infoline);

--- 9 unchanged lines hidden (view full) ---

2736 chomp @cyg_sourcepathlist;
2737
2738 # Validating the array, it has to contain the correct number of values
2739 my $new_pathes = $#cyg_sourcepathlist + 1;
2740 if ( $new_pathes == $counter ) { $success = 1; }
2741
2742 if ($success)
2743 {
2744 $installer::logger::Lang->printf(
2744 $installer::logger::Lang->printf(
2745 "Successfully converted %d paths to cygwin notation\n",
2746 $counter);
2745 "Successfully converted %d paths to cygwin notation\n",
2746 $counter);
2747 $installer::logger::Lang->printf(
2748 "there where %d unique paths\n",
2749 scalar keys %paths);
2750 }
2751 else
2752 {
2753 $installer::logger::Lang->print("ERROR: Failed to convert to cygwin pathes!\n");
2754 installer::exiter::exit_program(
2755 "ERROR: Failed to convert to cygwin pathes!",
2756 "generate_cygwin_pathes");
2757 }

--- 696 unchanged lines hidden --- 		2747 }
2748 else
2749 {
2750 $installer::logger::Lang->print("ERROR: Failed to convert to cygwin pathes!\n");
2751 installer::exiter::exit_program(
2752 "ERROR: Failed to convert to cygwin pathes!",
2753 "generate_cygwin_pathes");
2754 }

--- 696 unchanged lines hidden ---