#!/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;


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

#do jobstats

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

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


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