From 3e9996b2ebb2eb8408f11fd2cda13e2e065a9cf3 Mon Sep 17 00:00:00 2001
From: Oliver Bolte <obo@openoffice.org>
Date: Fri, 20 Jan 2006 13:02:04 +0000
Subject: 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

---
 sysui/util/checksize.pl | 95 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)
 create mode 100644 sysui/util/checksize.pl

(limited to 'sysui/util')

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++;
+    }
+ }
-- 
cgit v1.2.3