diff options
author | Matúš Kukan <matus.kukan@gmail.com> | 2012-11-14 19:02:51 +0100 |
---|---|---|
committer | Fridrich Strba <fridrich@documentfoundation.org> | 2012-12-15 21:20:27 +0000 |
commit | e37eb6345dcc09620889a9b8622ea0b7b57da0e0 (patch) | |
tree | e6d7835a4cc94705041497fb44c23eb5e1b3055b /postprocess/checkxml/checkxml.pl | |
parent | AVERAGEIFS with FUNCFLAG_PARAMPAIRS (diff) | |
download | core-e37eb6345dcc09620889a9b8622ea0b7b57da0e0.tar.gz core-e37eb6345dcc09620889a9b8622ea0b7b57da0e0.zip |
postprocess: convert to gbuild
Change-Id: I6c81fa0f1b8d7273541d5d9883b5fc96a5091bbd
Reviewed-on: https://gerrit.libreoffice.org/1080
Reviewed-by: Fridrich Strba <fridrich@documentfoundation.org>
Tested-by: Fridrich Strba <fridrich@documentfoundation.org>
Diffstat (limited to 'postprocess/checkxml/checkxml.pl')
-rw-r--r-- | postprocess/checkxml/checkxml.pl | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/postprocess/checkxml/checkxml.pl b/postprocess/checkxml/checkxml.pl deleted file mode 100644 index ca75ed7ab9cd..000000000000 --- a/postprocess/checkxml/checkxml.pl +++ /dev/null @@ -1,131 +0,0 @@ -: -eval 'exec perl -wS $0 ${1+"$@"}' - if 0; -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# 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 . -# -# -# -# check_xml.pl - check ui,xml,xcs,xcu files size, NULL character -# - -my -$is_debug=0; -my $err = 0; -my $path = $ENV{'SOLARVERSION'} . '/' . $ENV{'INPATH'} . '/xml' . "$ENV{'UPDMINOREXT'}/"; -my $pck_path = $ENV{'SOLARVERSION'} . '/' . $ENV{'INPATH'} . '/pck' . "$ENV{'UPDMINOREXT'}/"; -my $unzipexe="unzip"; - -#Path of the directory from which the recursion starts (must have ending '/'). -print "Checking:$path\n"; -# Initiate the recursion -&RecurseDirs($path); -$err += &check_registry_zips($pck_path); -if ($err > 0) -{ - print "Error: $err damaged files encountered\n"; - exit(1); # stop dmake -} else -{ - print "ok.\n"; -} -exit; - -#### SUBROUTINES SECTION #### - -# Function that recurses through the directory tree calling FileFunction on all files -sub RecurseDirs { - my ($path) = @_; - my $file; #Variable for a file - - opendir (DIRECTORY, $path) or - die "Can't read $path\n"; - my @all_files = grep (!/^\.\.?$/, readdir (DIRECTORY)); #Read all the files except for '.' and '..' - closedir (DIRECTORY); - - foreach $file (@all_files) { - if (-d "$path$file/") { - &RecurseDirs("$path$file/"); - } else { - &check($path, $file); - } - } -} - -############################################################################ -sub check #04.02.2005 13:40 -############################################################################ - { - my $path = shift; - my $file = shift; - print "$path$file\n" if ((-e "$path$file") && $is_debug); - return if ( $file !~ /.+\.(ui|xcu|xml|xcs)/ ); #check ui, xml and xcu files only - if ( -z "$path$file" ) { - print "Error: $path$file 0 Bytes!\n"; - $err++; - } else - { - open( FH, "<$path$file" ); - while ( $line = <FH> ) { - #print $line; - if ( $line =~ /\000+/ ) { - print "Error: NULL characters detected in $path$file\n"; - $err++; - } - } - close(FH); - } - } - - ############################################################################ - sub check_registry_zips #20.04.2005 18:47 - ############################################################################ - { - my $path = shift; - my $error = 0; - my $commandargs; - opendir (DIRECTORY, $path) or - die "Can't read $path\n"; - my @all_files = grep (!/^\.\.?$/, readdir (DIRECTORY)); #Read all the files except for '.' and '..' - closedir (DIRECTORY); - foreach $file (@all_files) { - if ( $file =~ /registry_.+\.zip$/ ) { - $commandargs="$path$file"; - # Cygwin's perl needs escaped \ in system() and open( COMMAND ... ) - if ( "$^O" eq "cygwin" ) { $commandargs =~ s/\\/\\\\/g; } - print "file=$commandargs\n" if ($is_debug); - open(UNZIP,"$unzipexe -l $commandargs |"); - my $ferror = 0; - while ( $line = <UNZIP> ) { - #print $line; - my @param = split(" ",$line); - if ( $param[0] =~ /\d+/ ) { - if ( $param[0] == 0 && $param[3] =~ /.+\.xcu$/) - { - $error++; $ferror=1; - } - } - } - if ( $ferror ) { - print "Error: $commandargs contains files with 0 byte size\n"; - } - close(UNZIP); - } - } - - ($error); - } ##check_registry_zips |