From 4c423c3389f37180c4ca118deecbc1bb86457631 Mon Sep 17 00:00:00 2001 From: Martin Mares <mj@ucw.cz> Date: Thu, 2 Apr 2015 18:30:49 +0200 Subject: [PATCH] Access: parse_op uz neni potreba --- access/parse_op | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100755 access/parse_op diff --git a/access/parse_op b/access/parse_op deleted file mode 100755 index 3345e45..0000000 --- a/access/parse_op +++ /dev/null @@ -1,33 +0,0 @@ -#!/usr/bin/perl -# Parse XML output of opreport - -use strict; -use warnings; - -use XML::Simple; -# use Data::Dumper; - -my $x = XMLin($ARGV[0], ForceArray => 1); - -# print STDERR Dumper($x); - -my $events = $x->{'setup'}->[0]->{'eventsetup'}; -my $classes = $x->{'classes'}->[0]->{'class'}; -my %class_to_event; -for my $c (keys %$classes) { - my $d = $classes->{$c}; - my $e = $events->{$d->{'event'}}->{'eventname'}; - # print "$c: $e\n"; - $class_to_event{$c} = $e; -} - -my $bin = $x->{'binary'}; -my $thisbin = (values %{$bin})[0]; -for my $c (@{$thisbin->{'count'}}) { - # print Dumper($c); - if (ref($c) eq "HASH") { - print $class_to_event{$c->{'class'}}, " ", $c->{'content'}+0, "\n"; - } else { - print $events->{0}->{'eventname'}, " ", $c+0, "\n"; - } -} -- GitLab