#!/usr/bin/perl
#
# JT-Info
#
# (C) 2013, 2022  ITEG IT-Engineers GmbH
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
# 
#   http://www.apache.org/licenses/LICENSE-2.0
# 
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#

use strict;

require "/usr/lib/jartools/jt-functions.pl";

$main::scriptName = "jt-info";

initFunctions();

initCommonOptions();

$main::helpMessage = '

 jt-info prints meta information about a bundle, parsing MANIFEST.MF
 and an eventual pom.properties file.

 Syntax:
  '.$main::scriptName.' [ObjectSpec] [CommonOptions]

'.$main::commonOptionsHelpText.'
';

$main::optionList = $main::commonOptionList . "";
getopts( $main::optionList, \%main::opts );

parseCommonOptions();

if ($main::processManifest) {
  readManifest();
}
if ($main::processPomFiles) {
  readPomFiles();
}

eraseTempDir();

print "\n";

if ($main::processManifest) {
  printManifestMetaInfos();
}
if ($main::processPomFiles) {
  printPomMetaInfos();
}

exit 0;

