Changeset 125

Timestamp:

12/13/05 17:21:47 (19 years ago)

Author:

thauvin

Message:

• add --check

File:

• trunk/soft/ObsData/bin/obsdata (modified) (4 diffs, 1 prop)

trunk/soft/ObsData/bin/obsdata

@@ -23 +23 @@
 GetOptions(
     'c|config=s' => \my $configfile,
+    'check' => \my $check_only,
     'l|logfile=s' => \my $log,
     'debug' => sub { $verbose = 0 },
@@ -31 +32 @@
 =head1 SYNOPSIS
 
-    obsdata -c config_file [[-l logfile] [-d] [-v|--debug]]
+    obsdata -c config_file [[-l logfile] [-d] [-v|--debug]] [--check]
     obsdata [-h|-help]
 
@@ -41 +42 @@
 
 Use this configuration file
+
+=item --check
+
+Only check config file and exit
 
 =item -l|--logfile logfile
@@ -76 +81 @@
 
 $obsdata->load or die "Can load osbdata";
-$obsdata->checkconfig or die "Error while checking configuration";
+my $checkres = $obsdata->checkconfig or die "Error while checking configuration";
+exit(0) if ($check_only);
 
 my @obs = $obsdata->list_obs;