1*cdf0e10cSrcweir#************************************************************************* 2*cdf0e10cSrcweir# 3*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir# 5*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir# 7*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir# 9*cdf0e10cSrcweir# This file is part of OpenOffice.org. 10*cdf0e10cSrcweir# 11*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir# only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir# 15*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir# 21*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir# version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir# <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir# for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir# 26*cdf0e10cSrcweir#************************************************************************* 27*cdf0e10cSrcweir 28*cdf0e10cSrcweirpackage pre2par::files; 29*cdf0e10cSrcweir 30*cdf0e10cSrcweiruse pre2par::exiter; 31*cdf0e10cSrcweir 32*cdf0e10cSrcweir############################################ 33*cdf0e10cSrcweir# File Operations 34*cdf0e10cSrcweir############################################ 35*cdf0e10cSrcweir 36*cdf0e10cSrcweirsub check_file 37*cdf0e10cSrcweir{ 38*cdf0e10cSrcweir my ($arg) = @_; 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir if(!( -f $arg )) 41*cdf0e10cSrcweir { 42*cdf0e10cSrcweir pre2par::exiter::exit_program("ERROR: Cannot find file $arg", "check_file"); 43*cdf0e10cSrcweir } 44*cdf0e10cSrcweir} 45*cdf0e10cSrcweir 46*cdf0e10cSrcweirsub read_file 47*cdf0e10cSrcweir{ 48*cdf0e10cSrcweir my ($localfile) = @_; 49*cdf0e10cSrcweir 50*cdf0e10cSrcweir my @localfile = (); 51*cdf0e10cSrcweir 52*cdf0e10cSrcweir open( IN, "<$localfile" ) || pre2par::exiter::exit_program("ERROR: Cannot open file: $localfile", "read_file"); 53*cdf0e10cSrcweir while ( <IN> ) { push(@localfile, $_); } 54*cdf0e10cSrcweir close( IN ); 55*cdf0e10cSrcweir 56*cdf0e10cSrcweir return \@localfile; 57*cdf0e10cSrcweir} 58*cdf0e10cSrcweir 59*cdf0e10cSrcweir########################################### 60*cdf0e10cSrcweir# Saving files, arrays and hashes 61*cdf0e10cSrcweir########################################### 62*cdf0e10cSrcweir 63*cdf0e10cSrcweirsub save_file 64*cdf0e10cSrcweir{ 65*cdf0e10cSrcweir my ($savefile, $savecontent) = @_; 66*cdf0e10cSrcweir if (-f $savefile) { unlink $savefile }; 67*cdf0e10cSrcweir if (-f $savefile) { pre2par::exiter::exit_program("ERROR: Cannot delete existing file: $savefile", "save_file"); }; 68*cdf0e10cSrcweir open( OUT, ">$savefile" ); 69*cdf0e10cSrcweir print OUT @{$savecontent}; 70*cdf0e10cSrcweir close( OUT); 71*cdf0e10cSrcweir if (! -f $savefile) { pre2par::exiter::exit_program("ERROR: Cannot write file: $savefile", "save_file"); } 72*cdf0e10cSrcweir} 73*cdf0e10cSrcweir 74*cdf0e10cSrcweirsub save_hash 75*cdf0e10cSrcweir{ 76*cdf0e10cSrcweir my ($savefile, $hashref) = @_; 77*cdf0e10cSrcweir 78*cdf0e10cSrcweir my @printcontent = (); 79*cdf0e10cSrcweir 80*cdf0e10cSrcweir my ($itemkey, $itemvalue, $line); 81*cdf0e10cSrcweir 82*cdf0e10cSrcweir foreach $itemkey ( keys %{$hashref} ) 83*cdf0e10cSrcweir { 84*cdf0e10cSrcweir $line = ""; 85*cdf0e10cSrcweir $itemvalue = $hashref->{$itemkey}; 86*cdf0e10cSrcweir $line = $itemkey . "=" . $itemvalue . "\n"; 87*cdf0e10cSrcweir push(@printcontent, $line); 88*cdf0e10cSrcweir } 89*cdf0e10cSrcweir 90*cdf0e10cSrcweir open( OUT, ">$savefile" ); 91*cdf0e10cSrcweir print OUT @printcontent; 92*cdf0e10cSrcweir close( OUT); 93*cdf0e10cSrcweir} 94*cdf0e10cSrcweir 95*cdf0e10cSrcweirsub save_array_of_hashes 96*cdf0e10cSrcweir{ 97*cdf0e10cSrcweir my ($savefile, $arrayref) = @_; 98*cdf0e10cSrcweir 99*cdf0e10cSrcweir my @printcontent = (); 100*cdf0e10cSrcweir 101*cdf0e10cSrcweir my ($itemkey, $itemvalue, $line, $hashref); 102*cdf0e10cSrcweir 103*cdf0e10cSrcweir for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) 104*cdf0e10cSrcweir { 105*cdf0e10cSrcweir $line = ""; 106*cdf0e10cSrcweir $hashref = ${$arrayref}[$i]; 107*cdf0e10cSrcweir 108*cdf0e10cSrcweir foreach $itemkey ( keys %{$hashref} ) 109*cdf0e10cSrcweir { 110*cdf0e10cSrcweir $itemvalue = $hashref->{$itemkey}; 111*cdf0e10cSrcweir 112*cdf0e10cSrcweir $line = $line . $itemkey . "=" . $itemvalue . "\t"; 113*cdf0e10cSrcweir } 114*cdf0e10cSrcweir 115*cdf0e10cSrcweir $line = $line . "\n"; 116*cdf0e10cSrcweir 117*cdf0e10cSrcweir push(@printcontent, $line); 118*cdf0e10cSrcweir } 119*cdf0e10cSrcweir 120*cdf0e10cSrcweir open( OUT, ">$savefile" ); 121*cdf0e10cSrcweir print OUT @printcontent; 122*cdf0e10cSrcweir close( OUT); 123*cdf0e10cSrcweir} 124*cdf0e10cSrcweir 125*cdf0e10cSrcweir1; 126