[monitoring-plugins] check_flexlm: remove trailing whitespace
Sven Nierlein
git at monitoring-plugins.org
Thu Oct 1 15:10:19 CEST 2026
Module: monitoring-plugins
Branch: master
Commit: b0c46b609b375c7766ada9610e02176183d07a34
Author: Sven Nierlein <Sven.Nierlein at consol.de>
Committer: Sven Nierlein <sven at nierlein.org>
Date: Thu Oct 1 14:10:59 2026 +0200
URL: https://www.monitoring-plugins.org/repositories/monitoring-plugins/commit/?id=b0c46b60
check_flexlm: remove trailing whitespace
---
plugins-scripts/check_flexlm.pl | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/plugins-scripts/check_flexlm.pl b/plugins-scripts/check_flexlm.pl
index e3fe296f..659a3c53 100755
--- a/plugins-scripts/check_flexlm.pl
+++ b/plugins-scripts/check_flexlm.pl
@@ -1,6 +1,6 @@
#!@PERL@ -w
#
-# usage:
+# usage:
# check_flexlm.pl license_file
#
# Check available flexlm license managers.
@@ -45,7 +45,7 @@ sub print_help ();
sub print_usage ();
$ENV{'PATH'}='@TRUSTED_PATH@';
-$ENV{'BASH_ENV'}='';
+$ENV{'BASH_ENV'}='';
$ENV{'ENV'}='';
Getopt::Long::Configure('bundling');
@@ -98,12 +98,12 @@ if ( ! open(CMD,"$lmstat -c $licfile |") ) {
}
my $serverup = 0;
-my @upsrv;
+my @upsrv;
my @downsrv; # list of servers up and down
#my ($ls1,$ls2,$ls3,$lf1,$lf2,$lf3,$servers);
-
-# key off of the term "license server" and
+
+# key off of the term "license server" and
# grab the status. Keep going until "Vendor" is found
#
@@ -116,7 +116,7 @@ while ( <CMD> ) {
next if (/^Flexible/); # ignore 2nd line - timestamp
(/^Vendor/) && last; # ignore Vendor daemon status
print $_ if $verbose;
-
+
if ($_ =~ /license server /) { # matched 1 (of possibly 3) license server
s/^\s*//; #some servers start at col 1, other have whitespace
# strip staring whitespace if any
@@ -125,13 +125,13 @@ while ( <CMD> ) {
push(@upsrv, $1);
print "up:$1:\n" if $verbose;
} else {
- $_ =~ /^(.*):/;
+ $_ =~ /^(.*):/;
push(@downsrv, $1);
print "down:$1:\n" if $verbose;
}
-
+
}
-
+
# if ( /^License server status: [0-9]*@([-0-9a-zA-Z_]*),[0-9]*@([-0-9a-zA-Z_]*),[0-9]*@([-0-9a-zA-Z_]*)/ ) {
# $ls1 = $1;
@@ -162,7 +162,7 @@ while ( <CMD> ) {
#if ( $serverup == 0 ) {
# print " license server not running\n";
-# exit 2;
+# exit 2;
#}
close CMD;
@@ -179,7 +179,7 @@ if ($verbose) {
}
#
-# print list of servers which are up.
+# print list of servers which are up.
#
if (scalar(@upsrv) > 0) {
print "License Servers running:";
More information about the Commits
mailing list