LANGENJO / CAD-Firemen-0.7.2 / bin / fm_check_config 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
—
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167

              
#!/usr/bin/perl
######################
#
#    Copyright (C) 2011 - 2015 TU Clausthal, Institut fuer Maschinenwesen, Joachim Langenbach
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
######################
# Pod::Weaver infos
# PODNAME: fm_check_config
# ABSTRACT: Runs some tests on the given config file.
use strict;
use POSIX;
use warnings;
use Getopt::Long;
use Pod::Usage;
use CAD::Firemen;
use CAD::Firemen::Analyze qw(checkConfig);
use CAD::Firemen::Common qw(getInstallationPath getInstallationConfigCdb dbConnect);
my $showVersion = 0;
my $verbose = 1;
my $caseInsensitive = 0;
my $description = 0;
Getopt::Long::Configure ("bundling", "auto_help");
if(!GetOptions(
  'version' => \$showVersion,
  'verbose|v:i' => \$verbose,
  'case-insensitive|i' => \$caseInsensitive,
  'description|d' => \$description
)){
  pod2usage(2);
}
if($showVersion){
  CAD::Firemen::printVersion();
}
my $structUrl = "";
my $dbh = undef;
my $cdbUrl = shift;
my $cfgUrl = shift;
if(!defined($cfgUrl)){
  $cfgUrl = $cdbUrl;
  # if no cdb given, first try to use an existing database
  $structUrl = getInstallationPath();
  $dbh = dbConnect($structUrl, $verbose);
  if(!$dbh){
    # if $structUrl is empty, getInstallationConfigCdb let the user
    # choose a path
    $cdbUrl = getInstallationConfigCdb($structUrl);
  }
  else{
    $cdbUrl = "";
  }
}
if(!defined($dbh) && (!defined($cdbUrl) || $cdbUrl eq "")){
  pod2usage(2);
}
if(!defined($cfgUrl) || $cfgUrl eq ""){
  pod2usage(2);
}
# CAD::Firemen::Analyze::checkConfig requires an verbose level + 1
# to get any output.
$verbose++;
my $result = checkConfig(
  "databaseHandle" => $dbh,
  "cdbUrl" => $cdbUrl,
  "cfgUrl" => $cfgUrl,
  "caseInsensitive" => $caseInsensitive,
  "description" => $description,
  "verbose" => $verbose
);
END {
  if(defined($dbh) && ($dbh != 0) && !$dbh->disconnect){
    print "Could not disconnect from database!\n";
    print "Error: ". $DBI::errstr;
    exit 1;
  }
}
if($result){
  exit 0;
}
exit 1;
__END__
=pod
=head1 NAME
fm_check_config - Runs some tests on the given config file.
=head1 VERSION
version 0.7.2
=head1 SYNOPSIS
fm_check_config [options] [PATH_TO_CONFIG.CDB] PATH_TO_CONFIG.PRO
This script compares a given config.pro file with the loaded options within
print "the given cdb file. The config.pro file is also checked against duplicate
print "entries of options.
Options:
  --help             -?   Prints this help.
  --version               Prints current version.
  --verbose          -v   The verbose level. 0 - least output, 2 most output (Default: 1).
  --case-insensitive -i   Ignores all differences, with existing value, but different cases (e.g. YES and yes)
                          The default is to print those differences in cyan. The count of ignored
                          values is displayed.
  --description      -d   Displays the description of each printed option.
                          Only available, if a database can be queried.
Normally you won't specify a cdb file. Just run fm_create_help before you run this script
to create a database. If you do not want or cannot create a database for the installtion
you want to use, specify a cdb file.
If no cdb file is given, it tries to figure out the correct installation with help of $ENV{PATH}.
Example:
  fm_check_config c:\proeWildfire5\text\config.cdb c:\proeWildfire5\text\config.pro
=head1 DESCRIPTION
C<fm_check_config> checks the given config file against the given cdb file.
Therefore it can check whether all given options and there specified values
are supported. It also checks whether options are duplicated within the config
file.
=head1 AUTHOR
Joachim Langenbach <langenbach@imw.tu-clausthal.de>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2015 by TU Clausthal, Institut fuer Maschinenwesen.
This is free software, licensed under:
  The GNU General Public License, Version 2, June 1991
=cut