Update Traffic Ops to cast A and AAAA to string for Deliveryservices in CrConfig to keep consistency. This fixed TC-190
Project: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/repo Commit: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/commit/72e7d911 Tree: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/tree/72e7d911 Diff: http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/diff/72e7d911 Branch: refs/heads/master Commit: 72e7d911b186606232cc4492ef1bb2ea810ffcfd Parents: 87305c9 Author: David Neuman <david.neuma...@gmail.com> Authored: Tue Mar 14 13:46:57 2017 -0600 Committer: Jeremy Mitchell <mitchell...@gmail.com> Committed: Wed Mar 15 09:21:47 2017 -0600 ---------------------------------------------------------------------- traffic_ops/app/lib/UI/Topology.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/incubator-trafficcontrol/blob/72e7d911/traffic_ops/app/lib/UI/Topology.pm ---------------------------------------------------------------------- diff --git a/traffic_ops/app/lib/UI/Topology.pm b/traffic_ops/app/lib/UI/Topology.pm index f76e49c..eaac3b0 100644 --- a/traffic_ops/app/lib/UI/Topology.pm +++ b/traffic_ops/app/lib/UI/Topology.pm @@ -511,10 +511,11 @@ sub gen_crconfig_json { $data_obj->{'deliveryServices'}->{ $row->xml_id }->{'missLocation'}->{'long'} = $row->miss_long + 0; } + my $ds_ttl = $row->ccr_dns_ttl; $data_obj->{'deliveryServices'}->{ $row->xml_id }->{'ttls'} = { - 'A' => $row->ccr_dns_ttl, - 'AAAA' => $row->ccr_dns_ttl, - 'NS' => $tld_ttls_ns, + 'A' => "$ds_ttl", + 'AAAA' => "$ds_ttl", + 'NS' => $tld_ttls_ns, 'SOA' => $tld_ttls_soa }; $data_obj->{'deliveryServices'}->{ $row->xml_id }->{'soa'}->{'minimum'} = $cdn_soa_minimum;