core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Scripts: Connect to DB for sanity check

This commit is contained in:
Shahram Najm 2021-11-17 12:25:57 +00:00
parent eff3e2fb15
commit 463fe7d420
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
definitions/add_params_from_tsv.pl
View File

@ -84,7 +84,8 @@ if ($WRITE_TO_FILES) {
create_or_append(\*OUT_UNITS, "$UNITS_FILENAME"); create_or_append(\*OUT_UNITS, "$UNITS_FILENAME");
create_or_append(\*OUT_CFVARNAME, "$CFVARNAME_FILENAME"); create_or_append(\*OUT_CFVARNAME, "$CFVARNAME_FILENAME");
} }
if ($WRITE_TO_PARAMDB) { if ($WRITE_TO_PARAMDB || $SANITY_CHECK) {
print "Connecting to database ...\n";
$dbh = DBI->connect("dbi:mysql(RaiseError=>1):database=$db;host=$host",$user,$pass) or die $DBI::errstr; $dbh = DBI->connect("dbi:mysql(RaiseError=>1):database=$db;host=$host",$user,$pass) or die $DBI::errstr;
} }
@ -107,7 +108,7 @@ if ($SANITY_CHECK) {
$x = $dbh->selectrow_array("select shortName from param.param where shortName = ?",undef,$shortName); $x = $dbh->selectrow_array("select shortName from param.param where shortName = ?",undef,$shortName);
die "Error: shortName=$x already exists (line ", $lcount+1, ")\n" if (defined $x); die "Error: shortName=$x already exists (line ", $lcount+1, ")\n" if (defined $x);
} }
print "Sanity checking completed. $lcount rows checked. No errors\n"; print "Sanity checking completed. $lcount rows checked. No errors. Exiting.\n";
exit 0; exit 0;
} }