solenv/bin/modules/packager/files.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: files.pm,v $
  10 #
  11 # $Revision: 1.8 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32
  33 package packager::files;
  34
  35 use packager::exiter;
  36
  37 ############################################
  38 # File Operations
  39 ############################################
  40
  41 sub check_file
  42 {
  43     my ($arg) = @_;
  44
  45     if(!( -f $arg ))
  46     {
  47         packager::exiter::exit_program("ERROR: Cannot find file $arg", "check_file");
  48     }
  49 }
  50
  51 sub read_file
  52 {
  53     my ($localfile) = @_;
  54
  55     if ( ! open( IN, $localfile ) ) {
  56         # try again - sometimes we get errors caused by race conditions in parallel builds
  57         sleep 5;
  58         open( IN, $localfile ) or packager::exiter::exit_program("ERROR: Cannot open file: $localfile", "read_file");
  59     }
  60     my @localfile = <IN>;
  61     close( IN );
  62
  63     return \@localfile;
  64 }
  65
  66 ###########################################
  67 # Saving files
  68 ###########################################
  69
  70 sub save_file
  71 {
  72     my ($savefile, $savecontent) = @_;
  73     open( OUT, ">$savefile" );
  74     print OUT @{$savecontent};
  75     close( OUT);
  76     if (! -f $savefile) { packager::exiter::exit_program("ERROR: Cannot write file: $savefile", "save_file"); }
  77 }
  78
  79 ######################################################
  80 # Creating a new direcotory
  81 ######################################################
  82
  83 sub create_directory
  84 {
  85     my ($directory) = @_;
  86
  87     my $returnvalue = 1;
  88
  89     if (!(-d $directory))
  90     {
  91         $returnvalue = mkdir($directory, 0775);
  92
  93         if ($returnvalue)
  94         {
  95             $infoline = "\nCreated directory: $directory\n";
  96             push(@packager::globals::logfileinfo, $infoline);
  97
  98             if ($packager::globals::isunix)
  99             {
 100                 my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
 101                 system($localcall);
 102             }
 103         }
 104         else
 105         {
 106             packager::exiter::exit_program("ERROR: Could not create directory: $directory", "create_directory");
 107         }
 108     }
 109 }
 110
 111 ######################################################
 112 # Creating a unique directory with number extension
 113 ######################################################
 114
 115 sub create_unique_directory
 116 {
 117     my ($directory) = @_;
 118
 119     $directory =~ s/\Q$packager::globals::separator\E\s*$//;
 120     $directory = $directory . "_INCREASINGNUMBER";
 121
 122     my $counter = 1;
 123     my $created = 0;
 124     my $localdirectory = "";
 125
 126     do
 127     {
 128         $localdirectory = $directory;
 129         $localdirectory =~ s/INCREASINGNUMBER/$counter/;
 130         $counter++;
 131
 132         if ( ! -d $localdirectory )
 133         {
 134             create_directory($localdirectory);
 135             $created = 1;
 136         }
 137     }
 138     while ( ! $created );
 139
 140     return $localdirectory;
 141 }
 142
 143 ######################################################
 144 # Removing a complete directory with subdirectories
 145 ######################################################
 146
 147 sub remove_complete_directory
 148 {
 149     my ($directory) = @_;
 150
 151     my @content = ();
 152
 153     $directory =~ s/\Q$packager::globals::separator\E\s*$//;
 154
 155     if ( -d $directory )
 156     {
 157         opendir(DIR, $directory);
 158         @content = readdir(DIR);
 159         closedir(DIR);
 160
 161         my $oneitem;
 162
 163         foreach $oneitem (@content)
 164         {
 165             if ((!($oneitem eq ".")) && (!($oneitem eq "..")))
 166             {
 167                 my $item = $directory . $packager::globals::separator . $oneitem;
 168
 169                 if ( -f $item )         # deleting files
 170                 {
 171                     unlink($item);
 172                 }
 173
 174                 if ( -d $item )         # recursive
 175                 {
 176                     remove_complete_directory($item, 0);
 177                 }
 178             }
 179         }
 180
 181         # try to remove empty directory
 182
 183         rmdir $directory;
 184
 185     }
 186 }
 187
 188 1;