Warning, /EventFilter/Utilities/scripts/edmConfDBDiff is written in an unsupported language. File is not indexed.
0001 #!/usr/bin/env perl
0002
0003 ################################################################################
0004 #
0005 # edmConfDBDiff
0006 # -------------
0007 #
0008 # 01/17/2008 Philipp Schieferdecker <philipp.schieferdecker@cern.ch>
0009 ################################################################################
0010
0011 my $usage =
0012 "USAGE:\nedmConfDBDiff\n" .
0013 "\t--configs <cfg1,cfg2> (compare configuration cfg1 and cfg2)\n" .
0014 "\t--search p:<name>[,newname] (compare specified path)\n" .
0015 "\t--search s:<name>[,newname] (compare specified sequence)\n" .
0016 "\t--search m:<name>[,newname] (compare specified module)\n" .
0017 "\n";
0018
0019 die $usage if @ARGV<2;
0020
0021 my $log_file = "/dev/null";
0022 my $configs = "";
0023 my $search = "";
0024
0025 while (@ARGV) {
0026 my $arg = shift @ARGV;
0027
0028 if ($arg eq "--configs") {
0029 $configs = shift @ARGV;
0030 }
0031 elsif ($arg eq "--search") {
0032 $search = shift @ARGV;
0033 }
0034 else {
0035 die "ERROR: invalid option $arg\n";
0036 }
0037 }
0038
0039 die "--configs <cfg1,cfg2> *must* be specified!" if ($configs eq "");
0040
0041 my $url =
0042 "http://cms-project-confdb-hltdev.web.cern.ch/" .
0043 "cms-project-confdb-hltdev/diff.jsp?configs=$configs";
0044 if (!$search eq "") { $url = $url . "&search=$search"; }
0045
0046 system("wget \"$url\" -O- -o $log_file");
0047
0048 exit 0;
