languagepack.pm (b274bc22) languagepack.pm (0374af79)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 148 unchanged lines hidden (view full) ---

157
158sub create_tar_gz_file
159{
160 my ($installdir, $packagename, $packagestring) = @_;
161
162 $packagename =~ s/\.rpm\s*$//;
163 my $targzname = $packagename . ".tar.gz";
164 $systemcall = "cd $installdir; tar -cf - $packagestring | gzip > $targzname";
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 148 unchanged lines hidden (view full) ---

157
158sub create_tar_gz_file
159{
160 my ($installdir, $packagename, $packagestring) = @_;
161
162 $packagename =~ s/\.rpm\s*$//;
163 my $targzname = $packagename . ".tar.gz";
164 $systemcall = "cd $installdir; tar -cf - $packagestring | gzip > $targzname";
165 installer::logger::print_message( "... $systemcall ...\n" );
165 $installer::logger::Info->printf("... %s ...\n", $systemcall);
166
167 my $returnvalue = system($systemcall);
168
169 my $infoline = "Systemcall: $systemcall\n";
170 $installer::logger::Lang->print($infoline);
171
172 if ($returnvalue)
173 {

--- 320 unchanged lines hidden (view full) ---

494# multilingual installation sets, need a
495# shell script installer
496####################################################
497
498sub build_installer_for_languagepack
499{
500 my ($installdir, $allvariableshashref, $includepatharrayref, $languagesarrayref, $languagestringref) = @_;
501
166
167 my $returnvalue = system($systemcall);
168
169 my $infoline = "Systemcall: $systemcall\n";
170 $installer::logger::Lang->print($infoline);
171
172 if ($returnvalue)
173 {

--- 320 unchanged lines hidden (view full) ---

494# multilingual installation sets, need a
495# shell script installer
496####################################################
497
498sub build_installer_for_languagepack
499{
500 my ($installdir, $allvariableshashref, $includepatharrayref, $languagesarrayref, $languagestringref) = @_;
501
502 installer::logger::print_message( "... creating shell script installer ...\n" );
502 $installer::logger::Info->print("... creating shell script installer ...\n");
503
504 installer::logger::include_header_into_logfile("Creating shell script installer:");
505
506 # find and read setup script template
507
508 my $scriptfilename = "langpackscript.sh";
509 my $scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$scriptfilename, $includepatharrayref, 0);
510 if ($$scriptref eq "") { installer::exiter::exit_program("ERROR: Could not find script file $scriptfilename!", "build_installer_for_languagepack"); }

--- 51 unchanged lines hidden --- 		503
504 installer::logger::include_header_into_logfile("Creating shell script installer:");
505
506 # find and read setup script template
507
508 my $scriptfilename = "langpackscript.sh";
509 my $scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$scriptfilename, $includepatharrayref, 0);
510 if ($$scriptref eq "") { installer::exiter::exit_program("ERROR: Could not find script file $scriptfilename!", "build_installer_for_languagepack"); }

--- 51 unchanged lines hidden ---