summaryrefslogtreecommitdiff
path: root/sysui/util/checksize.pl
diff options
context:
space:
mode:
authorOliver Bolte <obo@openoffice.org>2006-01-20 13:02:04 +0000
committerOliver Bolte <obo@openoffice.org>2006-01-20 13:02:04 +0000
commit3e9996b2ebb2eb8408f11fd2cda13e2e065a9cf3 (patch)
treefdf416c789d58c327f08bd44b6244159d8afad86 /sysui/util/checksize.pl
parent1dfd9be9c0999091de855972d45882ae92b8abd2 (diff)
INTEGRATION: CWS obo03 (1.1.2); FILE ADDED
2006/01/19 16:43:13 obo 1.1.2.2: Error: added to die call 2006/01/19 14:25:03 obo 1.1.2.1: #i56125# check file size
Diffstat (limited to 'sysui/util/checksize.pl')
-rw-r--r--sysui/util/checksize.pl95
1 files changed, 95 insertions, 0 deletions
diff --git a/sysui/util/checksize.pl b/sysui/util/checksize.pl
new file mode 100644
index 000000000000..4b153a426ce7
--- /dev/null
+++ b/sysui/util/checksize.pl
@@ -0,0 +1,95 @@
+:
+eval 'exec perl -wS $0 ${1+"$@"}'
+ if 0;
+#*************************************************************************
+#
+# OpenOffice.org - a multi-platform office productivity suite
+#
+# $RCSfile: checksize.pl,v $
+#
+# $Revision: 1.2 $
+#
+# last change: $Author: obo $ $Date: 2006-01-20 14:02:04 $
+#
+# The Contents of this file are made available subject to
+# the terms of GNU Lesser General Public License Version 2.1.
+#
+#
+# GNU Lesser General Public License Version 2.1
+# =============================================
+# Copyright 2005 by Sun Microsystems, Inc.
+# 901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License version 2.1, as published by the Free Software Foundation.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+# MA 02111-1307 USA
+#
+#*************************************************************************
+#
+#
+#
+
+my
+$is_debug=0;
+my $err = 0;
+my $path = "../" . $ENV{'INPATH'} . "/";
+
+#Path of the directory from which the recursion starts (must have ending '/').
+print "Checking:$path\n";
+# Initiate the recursion
+&RecurseDirs($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 "Error: 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);
+ # don't check dpc,flag,rpmflag, [obj for UNX] files, or etc subdirectory
+ return if ( ($file =~ /.+\.(dpc|flag|rpmflag)/) || ($file =~ /.+\.obj/ && $ENV{GUI} eq 'UNX') || ($path =~ /.+etc/) );
+ if ( -z "$path$file" ) {
+ print "Error: $path$file 0 Bytes!\n";
+ $err++;
+ }
+ }