1#************************************************************************* 2# 3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4# 5# Copyright 2000, 2010 Oracle and/or its affiliates. 6# 7# OpenOffice.org - a multi-platform office productivity suite 8# 9# This file is part of OpenOffice.org. 10# 11# OpenOffice.org is free software: you can redistribute it and/or modify 12# it under the terms of the GNU Lesser General Public License version 3 13# only, as published by the Free Software Foundation. 14# 15# OpenOffice.org is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU Lesser General Public License version 3 for more details 19# (a copy is included in the LICENSE file that accompanied this code). 20# 21# You should have received a copy of the GNU Lesser General Public License 22# version 3 along with OpenOffice.org. If not, see 23# <http://www.openoffice.org/license.html> 24# for a copy of the LGPLv3 License. 25# 26#************************************************************************* 27 28use lib ("$ENV{SOLARENV}/bin/modules"); 29 30use Cwd; 31use packager::check; 32use packager::files; 33use packager::globals; 34use packager::work; 35 36#################################### 37# Main program 38#################################### 39 40packager::check::check_environment(); 41packager::check::check_packlist(); 42packager::check::check_parameter(); 43 44packager::work::set_global_variable(); 45 46my $packagelist = packager::files::read_file($packager::globals::packlistname); 47 48my $targets = packager::work::create_package_todos($packagelist); 49 50if ( $ENV{'BSCLIENT'} ) { packager::work::start_build_server($targets); } 51else { packager::work::execute_system_calls($targets); } 52 53if ( $packager::globals::logging ) 54{ 55 packager::files::save_file($packager::globals::logfilename, \@packager::globals::logfileinfo); 56 print "Log file written: $packager::globals::logfilename\n"; 57} 58 59#################################### 60# End main program 61#################################### 62