#!/usr/bin/perl

#BEGIN { push @INC, '/usr/local/tc-scripts/lustrestats' }
use lib '/usr/local/tc-scripts/lustrestats';

use strict;
use Switch;
use warnings;
use Lustrestats qw(parse_jobstats);

my $i;
my $namespace="lustre";
my $lustre_type="mds"; #or oss, or client, or router
my $server_name=`hostname`;
chomp $server_name;

my $fsname=`/usr/sbin/lctl get_param devices| awk '{if (\$3 == "mdt") print \$4}'`;
chomp $fsname;
$fsname =~ s/-.*//g;




$i=1;
print("0 lustre_jobstats ");

#do jobstats

my @jobstat_dump = `/usr/sbin/lctl get_param mdt.*.job_stats`;

my $formatted_jobstats = parse_jobstats(\@jobstat_dump);
foreach my $line (@$formatted_jobstats) {
  if ($i != 1) { print "|"; }
  my @linearray = split (" ",$line);
  print("$linearray[0].$linearray[1].$linearray[2]=$linearray[3]");
  $i = $i + 1;
}


#close up the stats line
print "- Lustre Job Statistics\n";