statsd: add a chance to set hostname and port in hydra.conf

Co-authored-by: Graham Christensen <graham@grahamc.com>
This commit is contained in:
Matej Cotman
2016-02-06 03:44:16 +01:00
committed by Graham Christensen
parent 1f4183e05f
commit a551fba346
5 changed files with 101 additions and 2 deletions

View File

@ -15,7 +15,7 @@ use IPC::Run;
our @ISA = qw(Exporter);
our @EXPORT = qw(
getHydraHome getHydraConfig getBaseUrl
getSCMCacheDir
getSCMCacheDir getStatsdConfig
registerRoot getGCRootsDir gcRootFor
jobsetOverview jobsetOverview_
getDrvLogPath findLog
@ -55,6 +55,23 @@ sub getHydraConfig {
}
# Return hash of statsd configuration of the following shape:
# (
# host => string,
# port => digit
# )
sub getStatsdConfig {
my ($config) = @_;
my $cfg = $config->{statsd};
my %statsd = defined $cfg ? ref $cfg eq "HASH" ? %$cfg : ($cfg) : ();
return {
"host" => %statsd{'host'} // 'localhost',
"port" => %statsd{'port'} // 8125,
}
}
sub getBaseUrl {
my ($config) = @_;
return $config->{'base_uri'} // "http://" . hostname_long . ":3000";