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

Remove name of database from comment in generated files

This commit is contained in:
Shahram Najm 2015-12-11 18:08:30 +00:00
parent 4c3a0dcd5f
commit 4b1927ff1a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
definitions/create_def.pl
View File

@ -9,7 +9,7 @@ use DBI;
my $basedir = dirname($0); my $basedir = dirname($0);
my $db="param"; my $db="param";
my $host="grib-param-db-prod.ecmwf.int"; my $host="grib-param-db-test.ecmwf.int";
my $user="ecmwf_ro"; my $user="ecmwf_ro";
my $pass="ecmwf_ro"; my $pass="ecmwf_ro";
my $filename; my $filebase; my $out; my $conceptDir; my $filename; my $filebase; my $out; my $conceptDir;
@ -70,7 +70,7 @@ EOF
#system("p4 edit $filebase/$key.def"); #system("p4 edit $filebase/$key.def");
open($out,"> $filebase/$key.def") open($out,"> $filebase/$key.def")
or die "unable to open $filebase/$key.def"; or die "unable to open $filebase/$key.def";
print $out "# Automatically generated by $0 from database $db\@$host, do not edit\n"; print $out "# Automatically generated by $0, do not edit\n";
$p=(); $p=();
} }
if ($p ne $paramId || exists($seen{$attribute}) ) { if ($p ne $paramId || exists($seen{$attribute}) ) {
@ -126,7 +126,7 @@ sub create_paramId_def {
system("p4 edit $filebase/paramId.def"); system("p4 edit $filebase/paramId.def");
open($out,"> $filebase/paramId.def") open($out,"> $filebase/paramId.def")
or die "unable to open $filebase/paramId.def"; or die "unable to open $filebase/paramId.def";
print $out "# Automatically generated by $0 from database $db\@$host, do not edit\n"; print $out "# Automatically generated by $0, do not edit\n";
$p=(); $p=();
} }
if ($p ne $paramId || exists($seen{$attribute}) ) { if ($p ne $paramId || exists($seen{$attribute}) ) {
@ -169,7 +169,7 @@ sub create_def_old {
system("p4 edit $filebase/$key.def"); system("p4 edit $filebase/$key.def");
open($out,"> $filebase/$key.def") open($out,"> $filebase/$key.def")
or die "unable to open $filebase/$key.def"; or die "unable to open $filebase/$key.def";
print $out "# Automatically generated by $0 from database $db\@$host, do not edit\n"; print $out "# Automatically generated by $0, do not edit\n";
} }
print $out "\'$value\' \t= { paramId=$paramId; }\n"; print $out "\'$value\' \t= { paramId=$paramId; }\n";
} }