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

Scripts: Better error messages

This commit is contained in:
Shahram Najm 2021-11-17 17:37:03 +00:00
parent cc4467025c
commit 4b96ada5f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
definitions/add_params_from_tsv.pl
View File

@ -120,9 +120,9 @@ if ($SANITY_CHECK) {
die "Error: paramId=$paramId is not an integer (line ", $lcount+1, ")\n" if (!is_integer($paramId)); die "Error: paramId=$paramId is not an integer (line ", $lcount+1, ")\n" if (!is_integer($paramId));
my $x = $dbh->selectrow_array("select * from param.param where id = ?",undef,$paramId); my $x = $dbh->selectrow_array("select * from param.param where id = ?",undef,$paramId);
die "Error: paramId=$x already exists (line ", $lcount+1, ")\n" if (defined $x); die "Error: paramId=$x exists in the database (line ", $lcount+1, ")\n" if (defined $x);
$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 exists in the database (line ", $lcount+1, ")\n" if (defined $x);
} }
print "\nSanity checking completed. $lcount rows checked. No errors.\nExiting.\n"; print "\nSanity checking completed. $lcount rows checked. No errors.\nExiting.\n";
exit 0; exit 0;