GRIB-791: Remove sensitive data like user names and passwords from scripts

This commit is contained in:
Shahram Najm 2015-07-09 15:52:31 +01:00
parent 759fb11017
commit 078f615c3f
1 changed files with 2 additions and 4 deletions

View File

@ -7,8 +7,8 @@ use Data::Dumper;
my $db="param";
my $host="grib-param-db-prod.ecmwf.int";
my $user="ecmwf";
my $pass="";
my $user="ecmwf_ro";
my $pass="ecmwf_ro";
my $filename; my $filebase; my $out; my $conceptDir;
my $query; my $q; my $qh;
@ -64,7 +64,6 @@ while (my ($paramId,$shortName)=$qh->fetchrow_array )
}
}
system("p4 edit mars_param.table");
open(my $mars_param_out,"> mars_param.table")
or die "unable to open mars_param.table: $!";
@ -76,7 +75,6 @@ foreach my $k ( sort keys %values ) {
close $mars_param_out or die " mars_param.table: $!";
system("p4 edit param_id.table");
open(my $param_id_out,"> param_id.table")
or die "unable to open param_id.table: $!";