Changeset 101

Timestamp:

12/10/05 17:00:23 (18 years ago)

Author:

thauvin

Message:

• start documentation
• functions to show documentation

File:

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

trunk/soft/ObsData/bin/obsdata

@@ -2 +2 @@
 
 # $Id$
+
+=head1 NAME
+
+obsdata - Find, sort and dispatch data files
+
+=head1 VERSION
+
+CVS: $Revision$
+
+=cut
 
 use strict;
@@ -7 +17 @@
 use ObsData;
 use Getopt::Long;
+use Pod::Usage;
 
 my $verbose = 2;
@@ -15 +26 @@
     'debug' => sub { $verbose = 0 },
     'v' => sub { $verbose-- },
-);
+    'h|help' => sub { pod2usage(-exitval => 0) },
+) or pod2usage();
+
+=head1 SYNOPSIS
+
+obsdata -c config_file [...]
+
+=head1 OPTIONS
+
+=cut
 
 my $obsdata = ObsData->new(
@@ -25 +45 @@
         printf("%-9s %s\n", sprintf("[%s]", ObsData::loglevel($_[0])), $_[1]);
     },
-) or die "Can't create obsdata obj";
-
+) or do {
+    warn "Can't create obsdata object\n";
+    pod2usage()
+};
 
 $obsdata->load or die "Can load osbdata";
@@ -43 +65 @@
     }
 }
+
+=head1 AUTHOR
+
+Olivier Thauvin <olivier.thauvin@aerov.jussieu.fr>
+
+=cut