Changeset 350 for obsdata/trunk/bin

Timestamp:

06/23/23 13:32:00 (12 months ago)

Author:

nanardon

Message:

ajout de l'option --list-obs

File:

• obsdata/trunk/bin/obsdata (modified) (3 diffs)

obsdata/trunk/bin/obsdata

@@ -36 +36 @@
     'not-done' => \my $not_done,
     'o|obs=s' => \my @obs,
+    'list-obs' => \my $listobs,
 ) or pod2usage();
 
@@ -86 +87 @@
 
 Also check plugin in dir
+
+=item --list-obs
+
+List obsvervatories and exit
 
 =item -o|--obs OBS
@@ -154 +159 @@
 exit(0) if ($check_only);
 
+if ( $listobs ) {
+    foreach my $o ( sort $obsdata->list_obs ) {
+        print "Obs: $o\n";
+        my %datadir = $obsdata->list_obsdatadir($o);
+        foreach ( sort keys %datadir ) {
+            print "  - " . ( $_ || '(none)' ) . ": " . $datadir{$_} .  "\n";
+        }
+    }
+
+    exit(0);
+}
 
 @obs = $obsdata->list_obs unless( @obs );