44 lines
1.4 KiB
Perl
Executable File
44 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
#####################################
|
|
#####################################
|
|
### ______ _ =) ###
|
|
### | ___ \ | | ###
|
|
### | |_/ / __ _ _ __ | | ###
|
|
### | / / _` || '_ \ | | ###
|
|
### | |\ \| (_| || | | || |____ ###
|
|
### \_| \_|\__,_||_| |_|\_____/ ###
|
|
#####################################
|
|
#####################################
|
|
|
|
# Info
|
|
# This script is mainly for performance graph using pnp the usage of the license
|
|
|
|
use strict;
|
|
|
|
sub FSyntaxError {
|
|
print "Syntax Error !\n";
|
|
print "$0 [absolute path to lmutil] [absolute path to license file] [feature full name (from lmstat)]\n";
|
|
exit(1);
|
|
}
|
|
|
|
if($#ARGV != 3) {
|
|
FSyntaxError;
|
|
}
|
|
|
|
# General Settings
|
|
my $lmutil = "$ARGV[0]"; chomp($lmutil);
|
|
my $lm_file = "$ARGV[1]"; chomp($lm_file);
|
|
my $feature = "$ARGV[2]"; chomp($feature);
|
|
my $daemon = "$ARGV[3]";
|
|
my $vendor = `basename $lm_file | sed 's/.lic//g'`; chomp($vendor);
|
|
|
|
my @lmstat_out = split(";",`$lmutil lmstat -c $lm_file -S $daemon | grep ^Users\\ of\\ $feature: | sed -e 's/:/;/g' -e 's/ (Total of //g' -e 's/ Total of //g' -e 's/ licenses issued//g' -e 's/ licenses in use)\$//g' -e 's/ license issued//g' -e 's/ license in use)\$//g' -e 's/^Users of //g'`);
|
|
if($#lmstat_out < 1) {
|
|
print "$vendor $daemon Is Down\n";
|
|
exit(2);
|
|
}
|
|
|
|
print "$vendor $daemon $feature | total=$lmstat_out[1] used=$lmstat_out[2]\n";
|
|
exit(0);
|