getListOfReleases

#!/usr/bin/env perl

################################################################################
#
# getListOfReleases
# -----------------
#
################################################################################


my $db_host = "";
my $db_name = "";
my $db_user = "";
my $db_pwrd = "";

if (@ARGV==0) {
    print "provide one of: --hltdev, --rcms, --int2r, --int9r, or --test2r!\n";
    exit(0);
}

while (@ARGV)
{
    my $arg = shift @ARGV;
    if ($arg eq "--hltdev") {
	$db_host = "cmsr1-v.cern.ch";
	$db_name = "cms_cond.cern.ch";
	$db_user = "cms_hltdev_reader";
	$db_pwrd = "convertme!";
    }
    elsif ($arg eq "--rcms") {
	$db_host = "localhost";
	$db_name = "cms_rcms.cern.ch";
	$db_user = "cms_hlt_r";
	$db_pwrd = "convertme!";
    }
    elsif ($arg eq "--int2r") {
	$db_host = "int2r1-v.cern.ch";
	$db_name = "int2r_nolb.cern.ch";
	$db_user = "cms_hlt_reader";
	$db_pwrd = "convertme!";
    }
    elsif ($arg eq "--int9r") {
	$db_host = "int9r1-v.cern.ch";
	$db_name = "int9r_nolb.cern.ch";
	$db_user = "cms_hlt_reader";
	$db_pwrd = "convertme!";
    }
    elsif ($arg eq "--test2r") {
	$db_host = "int2r1-v.cern.ch";
	$db_name = "int2r_nolb.cern.ch";
	$db_user = "cms_hlt_test";
	$db_pwrd = "hltdevtest1";
    }
    else { die "unknown parameter $arg"; }
}


my $cmd =
    "java " .
    "-cp ../ext/ojdbc8.jar:../lib/cmssw-evf-confdb-gui.jar confdb.db.ConfDB " . 
    "-h $db_host -d $db_name -u $db_user -s $db_pwrd --listReleases";


print $cmd . "\n";
system($cmd);