Changeset 16

Timestamp:

09/26/05 17:39:12 (19 years ago)

Author:

thauvin

Message:

• add help

File:

• trunk/soft/ObsData/examples/obsarchive (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/examples/obsarchive

@@ -2 +2 @@
 
 # Olivier Thauvin <olivier.thauvin@aerov.jussieu.fr>
+# CNRS Service d'Aeronomie
+
 # $Id$
 
@@ -11 +13 @@
 GetOptions();
 
+sub help {
+    print qq(
+Usage $0 ARCHIVE [FILE]
+List an archive or extract FILE from archive into current directory
+)
+}
+
 my ($archive, $files) = @ARGV;
+
+$archive or do {
+    help();
+    exit(1);
+}
 
 my $ar = ObsData::Archive->new($archive) or die "Can't read archive\n";