This is an automated email from the ASF dual-hosted git repository.
mseidel pushed a commit to branch trunk
in repository https://gitbox.apache.org/repos/asf/openoffice.git
The following commit(s) were added to refs/heads/trunk by this push:
new a9dacd0244 pre-commit(mixed-line-ending): autofix more files; ini, pl,
pm (#324)
a9dacd0244 is described below
commit a9dacd0244e22e58099a70c93e0422639168e570
Author: John Bampton <[email protected]>
AuthorDate: Mon Mar 3 06:14:28 2025 +1000
pre-commit(mixed-line-ending): autofix more files; ini, pl, pm (#324)
---
.pre-commit-config.yaml | 2 +-
.../bin/modules/installer/patch/FileOperations.pm | 666 ++++++++++-----------
main/solenv/bin/patch_make_releases_xml.pl | 394 ++++++------
test/testuno/data/limit_cfg.ini | 44 +-
4 files changed, 553 insertions(+), 553 deletions(-)
diff --git a/.pre-commit-config.yaml b/.pre-commit-config.yaml
index 85b74e3806..699ad86f91 100644
--- a/.pre-commit-config.yaml
+++ b/.pre-commit-config.yaml
@@ -35,7 +35,7 @@ repos:
- id: end-of-file-fixer
files:
(m|M)akefile$|\.(bat|c|dxp|h|hrc|hxx|idl|in|ini|java|md|mk|pl|pm|py|rc|sh|xcs|xdl|xhp|xmi|xsd|ya?ml)$|^ext_libraries/.*$|^main/[a-z].*\.cxx$|^test/.*$
- id: mixed-line-ending
- files:
^main/.*\.(c|h)xx$|^main/.*\.mk$|^main/.*\.idl$|^main/.*\.java$|\.(sh|xcs|xdl|xhp|xmi|xsd|xslt?|ya?ml)$|^main/accessibility/.*$|^main/afms/.*$|^main/animations/.*$|^main/apache-commons/.*$
+ files:
^main/.*\.(c|h)xx$|^main/.*\.mk$|^main/.*\.java$|\.(idl|in|ini|pl|pm|py|sh|xcs|xdl|xhp|xmi|xsd|xslt?|ya?ml)$|^main/accessibility/.*$|^main/afms/.*$|^main/animations/.*$|^main/apache-commons/.*$
- id: trailing-whitespace
files: \.(bat|ini|pl|rc|sh|xcs|xdl|xmi|xsd|ya?ml)$
- repo: https://github.com/codespell-project/codespell
diff --git a/main/solenv/bin/modules/installer/patch/FileOperations.pm
b/main/solenv/bin/modules/installer/patch/FileOperations.pm
index cb2cd54cab..25281fec4f 100644
--- a/main/solenv/bin/modules/installer/patch/FileOperations.pm
+++ b/main/solenv/bin/modules/installer/patch/FileOperations.pm
@@ -1,333 +1,333 @@
-#**************************************************************
-#
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements. See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership. The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing,
-# software distributed under the License is distributed on an
-# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-# KIND, either express or implied. See the License for the
-# specific language governing permissions and limitations
-# under the License.
-#
-#**************************************************************
-
-package installer::patch::FileOperations;
-
-use File::Basename;
-use File::Copy;
-use IO::Compress::Bzip2;
-use IO::Uncompress::Bunzip2;
-
-my $CompressionMethod = "bzip2";
-
-
-=head1 NAME
-
- package installer::patch::FileOperations - Class for collecting, checking
and executing file operations.
-
-=cut
-
-
-sub new ($)
-{
- my ($class) = (@_);
-
- my $self = {
- 'operations' => []
- };
- bless($self, $class);
-
- return $self;
-}
-
-
-
-
-sub AddCopyOperation ($$$)
-{
- my ($self, $source_name, $target_name) = @_;
-
- push
- @{$self->{'operations'}},
- [
- 'copy',
- $source_name,
- $target_name
- ];
-}
-
-
-
-
-sub AddMakeDirectoryOperation ($$)
-{
- my ($self, $path) = @_;
-
- push
- @{$self->{'operations'}},
- [
- 'mkdir',
- $path
- ];
-}
-
-
-
-
-sub AddCompressOperation ($$)
-{
- my ($self, $filename) = @_;
-
- push
- @{$self->{'operations'}},
- [
- 'compress',
- $filename
- ];
-}
-
-
-
-
-sub AddUncompressOperation ($$$)
-{
- my ($self, $source_name, $target_name) = @_;
-
- push
- @{$self->{'operations'}},
- [
- 'uncompress',
- $source_name,
- $target_name
- ];
-}
-
-
-
-
-sub Check ($)
-{
- my ($self) = @_;
-
- # Keep track of which directories or files would be created to check if
- # operations that depend on these files will succeed.
- my %files = ();
- my %directories = ();
-
- my @error_messages = ();
- foreach my $operation (@{$self->{'operations'}})
- {
- my $command = $operation->[0];
-
- if ($command eq "copy")
- {
- my ($source_name, $destination_name) = ($operation->[1],
$operation->[2]);
- if ( ! -f $source_name)
- {
- push @error_messages, sprintf("%s is not a regular file and
can not be copied", $source_name);
- }
- my $destination_path = dirname($destination_name);
- if ( ! -d $destination_path && ! defined
$directories{$destination_path})
- {
- push @error_messages, sprintf("destination path %s does not
exist", $destination_path);
- }
- if ( -f $destination_name)
- {
- # The destination file already exists. We have to overwrite it.
- if ( ! -w $destination_name)
- {
- push @error_messges, sprintf("destination file %s exists
but can not be overwritten", $destination_name);
- }
- }
- $files{$destination_name} = 1;
- }
- elsif ($command eq "mkdir")
- {
- my $path = $operation->[1];
- if ( -d $path)
- {
- # Directory already exists. That is OK, the mkdir command
will be silently ignored.
- }
- else
- {
- $directories{$path} = 1;
- }
- }
- elsif ($command eq "compress")
- {
- my $filename = $operation->[1];
- if ( ! -f $filename && ! defined $files{$filename})
- {
- # File does not exist and will not be created by an earlier
operation.
- push @error_messages, sprintf("file %s does not exist and can
not be compressed", $filename);
- }
- }
- elsif ($command eq "uncompress")
- {
- my ($source_filename, $destination_filename) = ($operation->[1],
$operation->[2]);
- if ($CompressionMethod eq "bzip2")
- {
- $source_filename .= ".bz2";
- }
- if ( ! -f $source_filename && ! defined $files{$source_filename})
- {
- # File does not exist and will not be created by an earlier
operation.
- push @error_messages, sprintf("file %s does not exist and can
not be decompressed", $source_filename);
- }
- if ( -f $destination_filename && ! -w $destination_filename)
- {
- # Destination file already exists but can not be replaced.
- push @error_messages, sprintf("compress destination file %s
exists but can not be replaced", $destination_filename);
- }
- }
- else
- {
- push @error_messages, sprintf("unknown operation %s", $command);
- }
- }
-
- return @error_messages;
-}
-
-
-
-
-sub CheckAndExecute ($)
-{
- my ($self) = @_;
-
- my @error_messages = $self->Check();
- if (scalar @error_messages > 0)
- {
- $installer::logger::Lang->printf("can not execute all operations:\n");
- for my $message (@error_messages)
- {
- $installer::logger::Lang->printf("ERROR: %s\n", $message);
- }
- return 0;
- }
- else
- {
- return $self->Execute();
- }
-}
-
-
-
-
-sub Execute ($)
-{
- my ($self) = @_;
-
- foreach my $operation (@{$self->{'operations'}})
- {
- my $command = $operation->[0];
-
- if ($command eq "copy")
- {
- my ($source_name, $destination_name) = ($operation->[1],
$operation->[2]);
- $installer::logger::Lang->printf("copy from %s\n to %s\n",
$source_name, $destination_name);
- if ( ! $DryRun)
- {
- my $result = copy($source_name, $destination_name);
- if ( ! $result)
- {
- $installer::logger::Lang->printf("ERROR: copying from %s
to %s failed",
- $source_name, $destination_name);
- }
- }
- }
- elsif ($command eq "mkdir")
- {
- my $path = $operation->[1];
- if ( -d $path)
- {
- # Path exists already. Do nothing.
- }
- else
- {
- $installer::logger::Lang->printf("creating directory %s\n",
$path);
- if ( ! $DryRun)
- {
- if (File::Path::make_path($path, {'mode' => 0775}) == 0)
- {
- $installer::logger::Lang->printf("could not create
directory %s\n", $path);
- }
- }
- }
- }
- elsif ($command eq "compress")
- {
- my $filename = $operation->[1];
- $installer::logger::Lang->printf("compressing %s\n", $filename);
- if ( ! $DryRun)
- {
- my $result = 0;
- if ($CompressionMethod eq "bzip2")
- {
- $result = IO::Compress::Bzip2::bzip2($filename =>
$filename.".bz2");
- }
- if ($result == 0)
- {
- $installer::logger::Lang->printf("ERROR: could not
compress %s\n", $filename);
- }
- else
- {
- unlink($filename);
- }
- }
- }
- elsif ($command eq "uncompress")
- {
- my ($source_name, $destination_name) = ($operation->[1],
$operation->[2]);
- if ($CompressionMethod eq "bzip2")
- {
- $source_name .= ".bz2";
- }
- $installer::logger::Lang->printf("uncompressing %s to %s\n",
$source_name, $destination_name);
-
- my $destination_base_name = basename($destination_name);
-
- if ( ! $DryRun)
- {
- my $result = 0;
- if ($CompressionMethod eq "bzip2")
- {
- $result = IO::Uncompress::Bunzip2::bunzip2($source_name =>
$destination_name);
- }
- if ($result == 0)
- {
- $installer::logger::Lang->printf("ERROR: failed to extract
content of '%s' from '%s'\n",
- $destination_name, $source_name);
- return 0;
- }
- }
- }
-
- else
- {
- die "unknown operation $command\n";
- }
- }
-
- return 1;
-}
-
-
-
-sub GetOperationCount ($)
-{
- my ($self) = @_;
- return scalar @{$self->{'operations'}};
-}
-
-
-1;
+#**************************************************************
+#
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements. See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership. The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied. See the License for the
+# specific language governing permissions and limitations
+# under the License.
+#
+#**************************************************************
+
+package installer::patch::FileOperations;
+
+use File::Basename;
+use File::Copy;
+use IO::Compress::Bzip2;
+use IO::Uncompress::Bunzip2;
+
+my $CompressionMethod = "bzip2";
+
+
+=head1 NAME
+
+ package installer::patch::FileOperations - Class for collecting, checking
and executing file operations.
+
+=cut
+
+
+sub new ($)
+{
+ my ($class) = (@_);
+
+ my $self = {
+ 'operations' => []
+ };
+ bless($self, $class);
+
+ return $self;
+}
+
+
+
+
+sub AddCopyOperation ($$$)
+{
+ my ($self, $source_name, $target_name) = @_;
+
+ push
+ @{$self->{'operations'}},
+ [
+ 'copy',
+ $source_name,
+ $target_name
+ ];
+}
+
+
+
+
+sub AddMakeDirectoryOperation ($$)
+{
+ my ($self, $path) = @_;
+
+ push
+ @{$self->{'operations'}},
+ [
+ 'mkdir',
+ $path
+ ];
+}
+
+
+
+
+sub AddCompressOperation ($$)
+{
+ my ($self, $filename) = @_;
+
+ push
+ @{$self->{'operations'}},
+ [
+ 'compress',
+ $filename
+ ];
+}
+
+
+
+
+sub AddUncompressOperation ($$$)
+{
+ my ($self, $source_name, $target_name) = @_;
+
+ push
+ @{$self->{'operations'}},
+ [
+ 'uncompress',
+ $source_name,
+ $target_name
+ ];
+}
+
+
+
+
+sub Check ($)
+{
+ my ($self) = @_;
+
+ # Keep track of which directories or files would be created to check if
+ # operations that depend on these files will succeed.
+ my %files = ();
+ my %directories = ();
+
+ my @error_messages = ();
+ foreach my $operation (@{$self->{'operations'}})
+ {
+ my $command = $operation->[0];
+
+ if ($command eq "copy")
+ {
+ my ($source_name, $destination_name) = ($operation->[1],
$operation->[2]);
+ if ( ! -f $source_name)
+ {
+ push @error_messages, sprintf("%s is not a regular file and
can not be copied", $source_name);
+ }
+ my $destination_path = dirname($destination_name);
+ if ( ! -d $destination_path && ! defined
$directories{$destination_path})
+ {
+ push @error_messages, sprintf("destination path %s does not
exist", $destination_path);
+ }
+ if ( -f $destination_name)
+ {
+ # The destination file already exists. We have to overwrite it.
+ if ( ! -w $destination_name)
+ {
+ push @error_messges, sprintf("destination file %s exists
but can not be overwritten", $destination_name);
+ }
+ }
+ $files{$destination_name} = 1;
+ }
+ elsif ($command eq "mkdir")
+ {
+ my $path = $operation->[1];
+ if ( -d $path)
+ {
+ # Directory already exists. That is OK, the mkdir command
will be silently ignored.
+ }
+ else
+ {
+ $directories{$path} = 1;
+ }
+ }
+ elsif ($command eq "compress")
+ {
+ my $filename = $operation->[1];
+ if ( ! -f $filename && ! defined $files{$filename})
+ {
+ # File does not exist and will not be created by an earlier
operation.
+ push @error_messages, sprintf("file %s does not exist and can
not be compressed", $filename);
+ }
+ }
+ elsif ($command eq "uncompress")
+ {
+ my ($source_filename, $destination_filename) = ($operation->[1],
$operation->[2]);
+ if ($CompressionMethod eq "bzip2")
+ {
+ $source_filename .= ".bz2";
+ }
+ if ( ! -f $source_filename && ! defined $files{$source_filename})
+ {
+ # File does not exist and will not be created by an earlier
operation.
+ push @error_messages, sprintf("file %s does not exist and can
not be decompressed", $source_filename);
+ }
+ if ( -f $destination_filename && ! -w $destination_filename)
+ {
+ # Destination file already exists but can not be replaced.
+ push @error_messages, sprintf("compress destination file %s
exists but can not be replaced", $destination_filename);
+ }
+ }
+ else
+ {
+ push @error_messages, sprintf("unknown operation %s", $command);
+ }
+ }
+
+ return @error_messages;
+}
+
+
+
+
+sub CheckAndExecute ($)
+{
+ my ($self) = @_;
+
+ my @error_messages = $self->Check();
+ if (scalar @error_messages > 0)
+ {
+ $installer::logger::Lang->printf("can not execute all operations:\n");
+ for my $message (@error_messages)
+ {
+ $installer::logger::Lang->printf("ERROR: %s\n", $message);
+ }
+ return 0;
+ }
+ else
+ {
+ return $self->Execute();
+ }
+}
+
+
+
+
+sub Execute ($)
+{
+ my ($self) = @_;
+
+ foreach my $operation (@{$self->{'operations'}})
+ {
+ my $command = $operation->[0];
+
+ if ($command eq "copy")
+ {
+ my ($source_name, $destination_name) = ($operation->[1],
$operation->[2]);
+ $installer::logger::Lang->printf("copy from %s\n to %s\n",
$source_name, $destination_name);
+ if ( ! $DryRun)
+ {
+ my $result = copy($source_name, $destination_name);
+ if ( ! $result)
+ {
+ $installer::logger::Lang->printf("ERROR: copying from %s
to %s failed",
+ $source_name, $destination_name);
+ }
+ }
+ }
+ elsif ($command eq "mkdir")
+ {
+ my $path = $operation->[1];
+ if ( -d $path)
+ {
+ # Path exists already. Do nothing.
+ }
+ else
+ {
+ $installer::logger::Lang->printf("creating directory %s\n",
$path);
+ if ( ! $DryRun)
+ {
+ if (File::Path::make_path($path, {'mode' => 0775}) == 0)
+ {
+ $installer::logger::Lang->printf("could not create
directory %s\n", $path);
+ }
+ }
+ }
+ }
+ elsif ($command eq "compress")
+ {
+ my $filename = $operation->[1];
+ $installer::logger::Lang->printf("compressing %s\n", $filename);
+ if ( ! $DryRun)
+ {
+ my $result = 0;
+ if ($CompressionMethod eq "bzip2")
+ {
+ $result = IO::Compress::Bzip2::bzip2($filename =>
$filename.".bz2");
+ }
+ if ($result == 0)
+ {
+ $installer::logger::Lang->printf("ERROR: could not
compress %s\n", $filename);
+ }
+ else
+ {
+ unlink($filename);
+ }
+ }
+ }
+ elsif ($command eq "uncompress")
+ {
+ my ($source_name, $destination_name) = ($operation->[1],
$operation->[2]);
+ if ($CompressionMethod eq "bzip2")
+ {
+ $source_name .= ".bz2";
+ }
+ $installer::logger::Lang->printf("uncompressing %s to %s\n",
$source_name, $destination_name);
+
+ my $destination_base_name = basename($destination_name);
+
+ if ( ! $DryRun)
+ {
+ my $result = 0;
+ if ($CompressionMethod eq "bzip2")
+ {
+ $result = IO::Uncompress::Bunzip2::bunzip2($source_name =>
$destination_name);
+ }
+ if ($result == 0)
+ {
+ $installer::logger::Lang->printf("ERROR: failed to extract
content of '%s' from '%s'\n",
+ $destination_name, $source_name);
+ return 0;
+ }
+ }
+ }
+
+ else
+ {
+ die "unknown operation $command\n";
+ }
+ }
+
+ return 1;
+}
+
+
+
+sub GetOperationCount ($)
+{
+ my ($self) = @_;
+ return scalar @{$self->{'operations'}};
+}
+
+
+1;
diff --git a/main/solenv/bin/patch_make_releases_xml.pl
b/main/solenv/bin/patch_make_releases_xml.pl
index 292e0c0749..ea7178922a 100644
--- a/main/solenv/bin/patch_make_releases_xml.pl
+++ b/main/solenv/bin/patch_make_releases_xml.pl
@@ -1,197 +1,197 @@
-#!/usr/bin/perl -w
-
-#**************************************************************
-#
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements. See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership. The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing,
-# software distributed under the License is distributed on an
-# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-# KIND, either express or implied. See the License for the
-# specific language governing permissions and limitations
-# under the License.
-#
-#**************************************************************
-
-use LWP::UserAgent;
-
-use strict;
-
-=head1 NAME
-
- patch_make_releases_xml.pl - Create a section for the
instsetoo_native/data/releases.xml file.
-
-=head1 SYNOPSIS
-
- patch_make_releases_xml.pl <version-number>
-
- version-number is the version number (eg 4.0.1) for which to create
the releases.xml file.
-
-=head1 DESCRIPTION
-
- Will contact
http://archive.apache.org/dist/openoffice/<version-number>/binaries/ and
- a) determine the set of languages
- b) collect sizes and sha256 check sums for all Windows installation sets.
-
- The result is printed to the console. It has to be added manually to
releases.xml.
-
-=cut
-
-
-if (scalar @ARGV != 1)
-{
- print STDERR "usage: $0 <version-number>\n";
- die;
-}
-
-my $version = $ARGV[0];
-
-print <<EOT;
-<?xml version='1.0' encoding='UTF-8'?>
-<!--***********************************************************
- *
- * Licensed to the Apache Software Foundation (ASF) under one
- * or more contributor license agreements. See the NOTICE file
- * distributed with this work for additional information
- * regarding copyright ownership. The ASF licenses this file
- * to you under the Apache License, Version 2.0 (the
- * "License"); you may not use this file except in compliance
- * with the License. You may obtain a copy of the License at
- *
- * http://www.apache.org/licenses/LICENSE-2.0
- *
- * Unless required by applicable law or agreed to in writing,
- * software distributed under the License is distributed on an
- * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
- * KIND, either express or implied. See the License for the
- * specific language governing permissions and limitations
- * under the License.
- *
- ***********************************************************-->
-EOT
-
-sub DownloadFile ($)
-{
- my $url = shift;
-
- my $agent = LWP::UserAgent->new();
- $agent->timeout(120);
- $agent->show_progress(0);
-
- my $file_content = "";
- my $last_was_redirect = 0;
- my $bytes_read = 0;
- $agent->add_handler('response_redirect'
- => sub{
- $last_was_redirect = 1;
- return;
- });
- $agent->add_handler('response_data'
- => sub{
- if ($last_was_redirect)
- {
- $last_was_redirect = 0;
- # Throw away the data we got so far.
- $file_content = "";
- }
- my($response,$agent,$h,$data)=@_;
- $file_content .= $data;
- });
- $agent->get($url);
-
- return $file_content;
-}
-
-
-
-
-sub GetResponse ($)
-{
- my $url = shift;
-
- my $agent = LWP::UserAgent->new();
- $agent->timeout(120);
- $agent->show_progress(0);
-
- my $file_content = "";
- my $last_was_redirect = 0;
- my $bytes_read = 0;
- $agent->add_handler('response_redirect'
- => sub{
- $last_was_redirect = 1;
- return;
- });
- $agent->add_handler('response_data'
- => sub{
- if ($last_was_redirect)
- {
- $last_was_redirect = 0;
- # Throw away the data we got so far.
- $file_content = "";
- }
- my($response,$agent,$h,$data)=@_;
- $file_content .= $data;
- });
- return $agent->get($url, 'Range' => "bytes=0-0");
-}
-
-my @languages = ();
-my @lines = split(/\n/,
DownloadFile("http://archive.apache.org/dist/openoffice/".$version."/binaries/";));
-foreach my $line (@lines)
-{
- next unless $line =~ /folder.gif/;
- if ($line =~ /a href=\"([^\"\/]+)\/\"/)
- {
- my $language = $1;
- next if $language eq "SDK";
- next if $language =~ /^[A-Z]/;
- push @languages, $language;
- }
-}
-
-print "<releases>\n";
-print " <release>\n";
-printf " <version>%s</version>\n", $version;
-print " <download>\n";
-print " <package-format>msi</package-format>\n";
-print " <url-template>\n";
-printf "
http://archive.apache.org/dist/openoffice/%s/binaries/%%L/Apache_OpenOffice_%s_Win_x86_install_%%L.exe\n",$version,
$version;
-print " </url-template>\n";
-foreach my $language (sort @languages)
-{
- print " <item>\n";
- printf " <language>%s</language>\n", $language;
- my $name = sprintf(
- "Apache_OpenOffice_%s_Win_x86_install_%s.exe",
- $version,
- $language,
- $version,
- $language);
-
- my $content = DownloadFile(
-
sprintf("http://archive.apache.org/dist/openoffice/%s/binaries/%s/%s.sha256";,
$version, $language, $name));
- if ($content =~ /^([a-f0-9]+)/)
- {
- printf(" <checksum type=\"sha256\">%s</checksum>\n", $1);
- }
- my $response = GetResponse(
- sprintf("http://archive.apache.org/dist/openoffice/%s/binaries/%s/%s";,
$version, $language, $name));
- my $content_range = $response->{'_headers'}->{'content-range'};
- if ($content_range =~ /bytes 0-0\/(\d+)/)
- {
- printf(" <size>%s</size>\n", $1);
- }
- print " </item>\n";
-}
-
-print " </download>\n";
-print " </release>\n";
-print "</releases>\n";
+#!/usr/bin/perl -w
+
+#**************************************************************
+#
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements. See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership. The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied. See the License for the
+# specific language governing permissions and limitations
+# under the License.
+#
+#**************************************************************
+
+use LWP::UserAgent;
+
+use strict;
+
+=head1 NAME
+
+ patch_make_releases_xml.pl - Create a section for the
instsetoo_native/data/releases.xml file.
+
+=head1 SYNOPSIS
+
+ patch_make_releases_xml.pl <version-number>
+
+ version-number is the version number (eg 4.0.1) for which to create
the releases.xml file.
+
+=head1 DESCRIPTION
+
+ Will contact
http://archive.apache.org/dist/openoffice/<version-number>/binaries/ and
+ a) determine the set of languages
+ b) collect sizes and sha256 check sums for all Windows installation sets.
+
+ The result is printed to the console. It has to be added manually to
releases.xml.
+
+=cut
+
+
+if (scalar @ARGV != 1)
+{
+ print STDERR "usage: $0 <version-number>\n";
+ die;
+}
+
+my $version = $ARGV[0];
+
+print <<EOT;
+<?xml version='1.0' encoding='UTF-8'?>
+<!--***********************************************************
+ *
+ * Licensed to the Apache Software Foundation (ASF) under one
+ * or more contributor license agreements. See the NOTICE file
+ * distributed with this work for additional information
+ * regarding copyright ownership. The ASF licenses this file
+ * to you under the Apache License, Version 2.0 (the
+ * "License"); you may not use this file except in compliance
+ * with the License. You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing,
+ * software distributed under the License is distributed on an
+ * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+ * KIND, either express or implied. See the License for the
+ * specific language governing permissions and limitations
+ * under the License.
+ *
+ ***********************************************************-->
+EOT
+
+sub DownloadFile ($)
+{
+ my $url = shift;
+
+ my $agent = LWP::UserAgent->new();
+ $agent->timeout(120);
+ $agent->show_progress(0);
+
+ my $file_content = "";
+ my $last_was_redirect = 0;
+ my $bytes_read = 0;
+ $agent->add_handler('response_redirect'
+ => sub{
+ $last_was_redirect = 1;
+ return;
+ });
+ $agent->add_handler('response_data'
+ => sub{
+ if ($last_was_redirect)
+ {
+ $last_was_redirect = 0;
+ # Throw away the data we got so far.
+ $file_content = "";
+ }
+ my($response,$agent,$h,$data)=@_;
+ $file_content .= $data;
+ });
+ $agent->get($url);
+
+ return $file_content;
+}
+
+
+
+
+sub GetResponse ($)
+{
+ my $url = shift;
+
+ my $agent = LWP::UserAgent->new();
+ $agent->timeout(120);
+ $agent->show_progress(0);
+
+ my $file_content = "";
+ my $last_was_redirect = 0;
+ my $bytes_read = 0;
+ $agent->add_handler('response_redirect'
+ => sub{
+ $last_was_redirect = 1;
+ return;
+ });
+ $agent->add_handler('response_data'
+ => sub{
+ if ($last_was_redirect)
+ {
+ $last_was_redirect = 0;
+ # Throw away the data we got so far.
+ $file_content = "";
+ }
+ my($response,$agent,$h,$data)=@_;
+ $file_content .= $data;
+ });
+ return $agent->get($url, 'Range' => "bytes=0-0");
+}
+
+my @languages = ();
+my @lines = split(/\n/,
DownloadFile("http://archive.apache.org/dist/openoffice/".$version."/binaries/";));
+foreach my $line (@lines)
+{
+ next unless $line =~ /folder.gif/;
+ if ($line =~ /a href=\"([^\"\/]+)\/\"/)
+ {
+ my $language = $1;
+ next if $language eq "SDK";
+ next if $language =~ /^[A-Z]/;
+ push @languages, $language;
+ }
+}
+
+print "<releases>\n";
+print " <release>\n";
+printf " <version>%s</version>\n", $version;
+print " <download>\n";
+print " <package-format>msi</package-format>\n";
+print " <url-template>\n";
+printf "
http://archive.apache.org/dist/openoffice/%s/binaries/%%L/Apache_OpenOffice_%s_Win_x86_install_%%L.exe\n",$version,
$version;
+print " </url-template>\n";
+foreach my $language (sort @languages)
+{
+ print " <item>\n";
+ printf " <language>%s</language>\n", $language;
+ my $name = sprintf(
+ "Apache_OpenOffice_%s_Win_x86_install_%s.exe",
+ $version,
+ $language,
+ $version,
+ $language);
+
+ my $content = DownloadFile(
+
sprintf("http://archive.apache.org/dist/openoffice/%s/binaries/%s/%s.sha256";,
$version, $language, $name));
+ if ($content =~ /^([a-f0-9]+)/)
+ {
+ printf(" <checksum type=\"sha256\">%s</checksum>\n", $1);
+ }
+ my $response = GetResponse(
+ sprintf("http://archive.apache.org/dist/openoffice/%s/binaries/%s/%s";,
$version, $language, $name));
+ my $content_range = $response->{'_headers'}->{'content-range'};
+ if ($content_range =~ /bytes 0-0\/(\d+)/)
+ {
+ printf(" <size>%s</size>\n", $1);
+ }
+ print " </item>\n";
+}
+
+print " </download>\n";
+print " </release>\n";
+print "</releases>\n";
diff --git a/test/testuno/data/limit_cfg.ini b/test/testuno/data/limit_cfg.ini
index c7af215f8b..a01b9b5d64 100644
--- a/test/testuno/data/limit_cfg.ini
+++ b/test/testuno/data/limit_cfg.ini
@@ -1,23 +1,23 @@
-/*the record rule: <level info>.<SettingsName>=<SettingsValue>*/
-/*Level info: starts from 1, 0 means no need for limitation check*/
-/*SettingsName: should not contain "."*/
-/*SettingsValue: the type should be int*/
-/*All the notes or comments in this configure file should be in /**/ in each
line*/
-
-[TEXT]
-/*Max pages in the file*/
-1.MAXPAGE=100
-2.MAXPAGE=500
-
-[PRES]
-/*Max pages in the file, including master/layout/normal/notes*/
-1.MAXPAGE=75
-2.MAXPAGE=1500
-/*Max objects in the file, including all editable object on
master/layout/normal/notes*/
-1.MAXOBJECT=500
-2.MAXOBJECT=500
-
-[SHEET]
-/*Max row in worksheet*/
-1.MAXROW=5000
+/*the record rule: <level info>.<SettingsName>=<SettingsValue>*/
+/*Level info: starts from 1, 0 means no need for limitation check*/
+/*SettingsName: should not contain "."*/
+/*SettingsValue: the type should be int*/
+/*All the notes or comments in this configure file should be in /**/ in each
line*/
+
+[TEXT]
+/*Max pages in the file*/
+1.MAXPAGE=100
+2.MAXPAGE=500
+
+[PRES]
+/*Max pages in the file, including master/layout/normal/notes*/
+1.MAXPAGE=75
+2.MAXPAGE=1500
+/*Max objects in the file, including all editable object on
master/layout/normal/notes*/
+1.MAXOBJECT=500
+2.MAXOBJECT=500
+
+[SHEET]
+/*Max row in worksheet*/
+1.MAXROW=5000
2.MAXROW=5000
