sysui/util/checksize.pl

   1 :
   2 eval 'exec perl -wS $0 ${1+"$@"}'
   3     if 0;
   4 #*************************************************************************
   5 #
   6 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   7 #
   8 # Copyright 2008 by Sun Microsystems, Inc.
   9 #
  10 # OpenOffice.org - a multi-platform office productivity suite
  11 #
  12 # $RCSfile: checksize.pl,v $
  13 #
  14 # $Revision: 1.5 $
  15 #
  16 # This file is part of OpenOffice.org.
  17 #
  18 # OpenOffice.org is free software: you can redistribute it and/or modify
  19 # it under the terms of the GNU Lesser General Public License version 3
  20 # only, as published by the Free Software Foundation.
  21 #
  22 # OpenOffice.org is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU Lesser General Public License version 3 for more details
  26 # (a copy is included in the LICENSE file that accompanied this code).
  27 #
  28 # You should have received a copy of the GNU Lesser General Public License
  29 # version 3 along with OpenOffice.org.  If not, see
  30 # <http://www.openoffice.org/license.html>
  31 # for a copy of the LGPLv3 License.
  32 #
  33 #*************************************************************************
  34 #
  35 #
  36 #
  37
  38 my
  39 $is_debug=0;
  40 my $err = 0;
  41 my $path = "../" . $ENV{'INPATH'} . "/";
  42
  43 #Path of the directory from which the recursion starts (must have ending '/').
  44 print "Checking:$path\n";
  45 # Initiate the recursion
  46 &RecurseDirs($path);
  47 if ($err > 0)
  48 {
  49     print "Error: $err damaged files encountered\n";
  50     exit(1); # stop dmake
  51 } else
  52 {
  53     print "ok.\n";
  54 }
  55 exit;
  56
  57 #### SUBROUTINES SECTION ####
  58
  59 # Function that recurses through the directory tree calling FileFunction on all files
  60 sub RecurseDirs {
  61     my ($path) = @_;
  62     my $file;    #Variable for a file
  63
  64     opendir (DIRECTORY, $path) or
  65         die "Error: Can't read $path\n";
  66     my @all_files = grep (!/^\.\.?$/, readdir (DIRECTORY)); #Read all the files except for '.' and '..'
  67     closedir (DIRECTORY);
  68
  69     foreach $file (@all_files) {
  70         if (-d "$path$file/") {
  71             &RecurseDirs("$path$file/");
  72         } else {
  73             &check($path, $file);
  74         }
  75     }
  76 }
  77
  78 ############################################################################
  79 sub check       #04.02.2005 13:40
  80 ############################################################################
  81  {
  82     my $path = shift;
  83     my $file = shift;
  84     print "$path$file\n" if ((-e "$path$file") && $is_debug);
  85     # don't check dpc,flag,rpmflag,sdf [obj for UNX] files, or etc subdirectory
  86     return if ( ($file =~ /.+\.(dpc|\w*?flag)/) || ($file =~ /.+\.obj/ && $ENV{GUI} eq 'UNX') || ($path =~ /.+etc/) || ($path =~ /.+logs/) || ($path =~ /.+sdf/) );
  87     if ( -z "$path$file" ) {
  88         print "Error: $path$file 0 Bytes!\n";
  89         $err++;
  90     }
  91  }