EcalCondDB/perl/define-channels.pl

0001 #!/usr/bin/perl
0002
0003 use lib "./lib";
0004
0005 use warnings;
0006 use strict;
0007 $|++;
0008
0009 use CondDB::channelView;
0010 use ConnectionFile;
0011 use Getopt::Long;
0012
0013 my $all = 0;
0014 GetOptions( 'all' => \$all );
0015
0016 unless ($all || @ARGV) {
0017   die "Nothing to define.\n";
0018 }
0019
0020 print "Connecting to DB...";
0021 my $condDB = ConnectionFile::connect();
0022 print "Done.\n";
0023
0024 my $cv = CondDB::channelView->new($condDB);
0025
0026 if ($all) {
0027   $cv->define_all();
0028 } else {
0029   foreach (@ARGV) {
0030     $cv->define($_);
0031   }
0032 }