Home | History | Annotate | Line # | Download | only in statschannel 
      1 #!/usr/bin/perl
      2 
      3 # Copyright (C) Internet Systems Consortium, Inc. ("ISC")
      4 #
      5 # SPDX-License-Identifier: MPL-2.0
      6 #
      7 # This Source Code Form is subject to the terms of the Mozilla Public
      8 # License, v. 2.0.  If a copy of the MPL was not distributed with this
      9 # file, you can obtain one at https://mozilla.org/MPL/2.0/.
     10 #
     11 # See the COPYRIGHT file distributed with this work for additional
     12 # information regarding copyright ownership.
     13 
     14 # server-xml.pl:
     15 # Parses the XML version of the server stats into a normalized format.
     16 
     17 use XML::Simple;
     18 
     19 my $ref = XMLin("xml.stats");
     20 my $counters = $ref->{server}->{counters};
     21 foreach $group (@$counters) {
     22     foreach $key (keys %{$group->{counter}}) {
     23         print $group->{type} . " " . $key . ": ". $group->{counter}->{$key}->{content} . "\n";
     24     }
     25 }
     26