xref: /trunk/main/solenv/bin/pre2par.pl (revision cdf0e10c)
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*cdf0e10cSrcweiruse lib ("$ENV{SOLARENV}/bin/modules");
29*cdf0e10cSrcweir
30*cdf0e10cSrcweiruse Cwd;
31*cdf0e10cSrcweiruse pre2par::directory;
32*cdf0e10cSrcweiruse pre2par::files;
33*cdf0e10cSrcweiruse pre2par::globals;
34*cdf0e10cSrcweiruse pre2par::language;
35*cdf0e10cSrcweiruse pre2par::parameter;
36*cdf0e10cSrcweiruse pre2par::work;
37*cdf0e10cSrcweir
38*cdf0e10cSrcweir####################################
39*cdf0e10cSrcweir# Main program
40*cdf0e10cSrcweir####################################
41*cdf0e10cSrcweir
42*cdf0e10cSrcweirpre2par::parameter::getparameter();
43*cdf0e10cSrcweirpre2par::parameter::control_parameter();
44*cdf0e10cSrcweir
45*cdf0e10cSrcweirpre2par::directory::check_directory($pre2par::globals::parfilename);
46*cdf0e10cSrcweir
47*cdf0e10cSrcweirmy $prefile = pre2par::files::read_file($pre2par::globals::prefilename);
48*cdf0e10cSrcweir
49*cdf0e10cSrcweirpre2par::work::check_content($prefile, $pre2par::globals::prefilename);
50*cdf0e10cSrcweir
51*cdf0e10cSrcweirmy $parfile = pre2par::work::convert($prefile);
52*cdf0e10cSrcweir
53*cdf0e10cSrcweirpre2par::work::formatter($parfile);
54*cdf0e10cSrcweir
55*cdf0e10cSrcweirmy $langfilename = pre2par::work::getlangfilename();
56*cdf0e10cSrcweirmy $ulffilename = pre2par::work::getulffilename($pre2par::globals::prefilename);
57*cdf0e10cSrcweir
58*cdf0e10cSrcweirmy $dolocalization = pre2par::work::check_existence_of_langfiles($langfilename, $ulffilename);
59*cdf0e10cSrcweir
60*cdf0e10cSrcweirif ( $dolocalization )
61*cdf0e10cSrcweir{
62*cdf0e10cSrcweir	my $langfile = pre2par::files::read_file($langfilename);
63*cdf0e10cSrcweir	pre2par::language::localize($parfile, $langfile);
64*cdf0e10cSrcweir}
65*cdf0e10cSrcweir
66*cdf0e10cSrcweirpre2par::files::save_file($pre2par::globals::parfilename, $parfile);
67*cdf0e10cSrcweir
68*cdf0e10cSrcweir# checking of par file was written correctly
69*cdf0e10cSrcweirmy $parfilecomp = pre2par::files::read_file($pre2par::globals::parfilename);
70*cdf0e10cSrcweirpre2par::work::diff_content($parfile, $parfilecomp, $pre2par::globals::parfilename);
71*cdf0e10cSrcweir
72*cdf0e10cSrcweir####################################
73*cdf0e10cSrcweir# End main program
74*cdf0e10cSrcweir####################################
75