2 # This file is part of the LibreOffice project.
4 # This Source Code Form is subject to the terms of the Mozilla Public
5 # License, v. 2.0. If a copy of the MPL was not distributed with this
6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 # This file incorporates work covered by the following license notice:
10 # Licensed to the Apache Software Foundation (ASF) under one or more
11 # contributor license agreements. See the NOTICE file distributed
12 # with this work for additional information regarding copyright
13 # ownership. The ASF licenses this file to you under the Apache
14 # License, Version 2.0 (the "License"); you may not use this file
15 # except in compliance with the License. You may obtain a copy of
16 # the License at http://www.apache.org/licenses/LICENSE-2.0 .
19 package pre2par
::files
;
23 ############################################
25 ############################################
33 open( IN
, "<$localfile" ) || pre2par
::exiter
::exit_program
("ERROR: Cannot open file: $localfile", "read_file");
34 while ( <IN
> ) { push(@localfile, $_); }
40 ###########################################
42 ###########################################
46 my ($savefile, $savecontent) = @_;
47 if (-f
$savefile) { unlink $savefile };
48 if (-f
$savefile) { pre2par
::exiter
::exit_program
("ERROR: Cannot delete existing file: $savefile", "save_file"); };
49 open( OUT
, ">$savefile" );
50 print OUT @
{$savecontent};
52 if (! -f
$savefile) { pre2par
::exiter
::exit_program
("ERROR: Cannot write file: $savefile", "save_file"); }