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*cdf0e10cSrcweir 29*cdf0e10cSrcweirpackage par2script::files; 30*cdf0e10cSrcweir 31*cdf0e10cSrcweiruse par2script::exiter; 32*cdf0e10cSrcweir 33*cdf0e10cSrcweir############################################ 34*cdf0e10cSrcweir# File Operations 35*cdf0e10cSrcweir############################################ 36*cdf0e10cSrcweir 37*cdf0e10cSrcweirsub check_file 38*cdf0e10cSrcweir{ 39*cdf0e10cSrcweir my ($arg) = @_; 40*cdf0e10cSrcweir 41*cdf0e10cSrcweir if(!( -f $arg )) 42*cdf0e10cSrcweir { 43*cdf0e10cSrcweir par2script::exiter::exit_program("ERROR: Cannot find file $arg", "check_file"); 44*cdf0e10cSrcweir } 45*cdf0e10cSrcweir} 46*cdf0e10cSrcweir 47*cdf0e10cSrcweirsub read_file 48*cdf0e10cSrcweir{ 49*cdf0e10cSrcweir my ($localfile) = @_; 50*cdf0e10cSrcweir 51*cdf0e10cSrcweir my @localfile = (); 52*cdf0e10cSrcweir 53*cdf0e10cSrcweir open( IN, "<$localfile" ) || par2script::exiter::exit_program("ERROR: Cannot open file: $localfile", "read_file"); 54*cdf0e10cSrcweir while ( <IN> ) { push(@localfile, $_); } 55*cdf0e10cSrcweir close( IN ); 56*cdf0e10cSrcweir 57*cdf0e10cSrcweir return \@localfile; 58*cdf0e10cSrcweir} 59*cdf0e10cSrcweir 60*cdf0e10cSrcweir########################################### 61*cdf0e10cSrcweir# Saving files, arrays and hashes 62*cdf0e10cSrcweir########################################### 63*cdf0e10cSrcweir 64*cdf0e10cSrcweirsub save_file 65*cdf0e10cSrcweir{ 66*cdf0e10cSrcweir my ($savefile, $savecontent) = @_; 67*cdf0e10cSrcweir open( OUT, ">$savefile" ); 68*cdf0e10cSrcweir print OUT @{$savecontent}; 69*cdf0e10cSrcweir close( OUT); 70*cdf0e10cSrcweir if (! -f $savefile) { pre2par::exiter::exit_program("ERROR: Cannot write file: $savefile", "save_file"); } 71*cdf0e10cSrcweir} 72*cdf0e10cSrcweir 73*cdf0e10cSrcweirsub save_hash 74*cdf0e10cSrcweir{ 75*cdf0e10cSrcweir my ($savefile, $hashref) = @_; 76*cdf0e10cSrcweir 77*cdf0e10cSrcweir my @printcontent = (); 78*cdf0e10cSrcweir 79*cdf0e10cSrcweir my ($itemkey, $itemvalue, $line); 80*cdf0e10cSrcweir 81*cdf0e10cSrcweir foreach $itemkey ( keys %{$hashref} ) 82*cdf0e10cSrcweir { 83*cdf0e10cSrcweir $line = ""; 84*cdf0e10cSrcweir $itemvalue = $hashref->{$itemkey}; 85*cdf0e10cSrcweir $line = $itemkey . "=" . $itemvalue . "\n"; 86*cdf0e10cSrcweir push(@printcontent, $line); 87*cdf0e10cSrcweir } 88*cdf0e10cSrcweir 89*cdf0e10cSrcweir open( OUT, ">$savefile" ); 90*cdf0e10cSrcweir print OUT @printcontent; 91*cdf0e10cSrcweir close( OUT); 92*cdf0e10cSrcweir} 93*cdf0e10cSrcweir 94*cdf0e10cSrcweirsub save_array_of_hashes 95*cdf0e10cSrcweir{ 96*cdf0e10cSrcweir my ($savefile, $arrayref) = @_; 97*cdf0e10cSrcweir 98*cdf0e10cSrcweir my @printcontent = (); 99*cdf0e10cSrcweir 100*cdf0e10cSrcweir my ($itemkey, $itemvalue, $line, $hashref); 101*cdf0e10cSrcweir 102*cdf0e10cSrcweir for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) 103*cdf0e10cSrcweir { 104*cdf0e10cSrcweir $line = ""; 105*cdf0e10cSrcweir $hashref = ${$arrayref}[$i]; 106*cdf0e10cSrcweir 107*cdf0e10cSrcweir foreach $itemkey ( keys %{$hashref} ) 108*cdf0e10cSrcweir { 109*cdf0e10cSrcweir $itemvalue = $hashref->{$itemkey}; 110*cdf0e10cSrcweir 111*cdf0e10cSrcweir $line = $line . $itemkey . "=" . $itemvalue . "\t"; 112*cdf0e10cSrcweir } 113*cdf0e10cSrcweir 114*cdf0e10cSrcweir $line = $line . "\n"; 115*cdf0e10cSrcweir 116*cdf0e10cSrcweir push(@printcontent, $line); 117*cdf0e10cSrcweir } 118*cdf0e10cSrcweir 119*cdf0e10cSrcweir open( OUT, ">$savefile" ); 120*cdf0e10cSrcweir print OUT @printcontent; 121*cdf0e10cSrcweir close( OUT); 122*cdf0e10cSrcweir} 123*cdf0e10cSrcweir 124*cdf0e10cSrcweir1; 125