Changeset 101
- Timestamp:
- 12/10/05 17:00:23 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/soft/ObsData/bin/obsdata
- Property cvs2svn:cvs-rev changed from 1.8 to 1.9
r96 r101 2 2 3 3 # $Id$ 4 5 =head1 NAME 6 7 obsdata - Find, sort and dispatch data files 8 9 =head1 VERSION 10 11 CVS: $Revision$ 12 13 =cut 4 14 5 15 use strict; … … 7 17 use ObsData; 8 18 use Getopt::Long; 19 use Pod::Usage; 9 20 10 21 my $verbose = 2; … … 15 26 'debug' => sub { $verbose = 0 }, 16 27 'v' => sub { $verbose-- }, 17 ); 28 'h|help' => sub { pod2usage(-exitval => 0) }, 29 ) or pod2usage(); 30 31 =head1 SYNOPSIS 32 33 obsdata -c config_file [...] 34 35 =head1 OPTIONS 36 37 =cut 18 38 19 39 my $obsdata = ObsData->new( … … 25 45 printf("%-9s %s\n", sprintf("[%s]", ObsData::loglevel($_[0])), $_[1]); 26 46 }, 27 ) or die "Can't create obsdata obj"; 28 47 ) or do { 48 warn "Can't create obsdata object\n"; 49 pod2usage() 50 }; 29 51 30 52 $obsdata->load or die "Can load osbdata"; … … 43 65 } 44 66 } 67 68 =head1 AUTHOR 69 70 Olivier Thauvin <olivier.thauvin@aerov.jussieu.fr> 71 72 =cut
Note: See TracChangeset
for help on using the changeset viewer.