packages: nagios-plugin-check_redis/check_redis.pl - whitespace cleanup

[glen]

Author: glen                         Date: Tue Dec 20 10:51:14 2011 GMT
Module: packages                      Tag: HEAD
---- Log message:
- whitespace cleanup

---- Files affected:
packages/nagios-plugin-check_redis:
   check_redis.pl (1.2 -> 1.3) 

---- Diffs:

================================================================
Index: packages/nagios-plugin-check_redis/check_redis.pl
diff -u packages/nagios-plugin-check_redis/check_redis.pl:1.2 
packages/nagios-plugin-check_redis/check_redis.pl:1.3
--- packages/nagios-plugin-check_redis/check_redis.pl:1.2       Tue Dec 20 
11:50:45 2011
+++ packages/nagios-plugin-check_redis/check_redis.pl   Tue Dec 20 11:51:09 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 # nagios: -epn
 
@@ -23,7 +23,7 @@
 use Redis;
 use File::Basename;
 use lib '/usr/lib/nagios/plugins';
-use utils qw($TIMEOUT %ERRORS &print_revision &support); 
+use utils qw($TIMEOUT %ERRORS &print_revision &support);
 use Time::Local;
 use vars qw($opt_h); # Redis ����
 use vars qw($opt_p); # Redis �˿�
@@ -75,65 +75,65 @@
 my $run = $stop - $start;
 
 if ( $run > $opt_c ) {
-       
+
        print "CRITICAL - redis server(" . $opt_h . ") run for " . $run . " 
seconds!";
        exit $ERRORS{"CRITICAL"};
-       
+
 } elsif ( $run > $opt_w ) {
-       
+
        print "WARNING - redis server(" . $opt_h . ") run for " . $run . " 
seconds!";
        exit $ERRORS{"WARNING"};
-       
+
 } else {
-       
+
        redis_info();
        redis_quit();
        exit $ERRORS{"OK"};
-       
+
 }
 
 
 sub help{
-       
+
        die "Usage:\n" , basename( $0 ) ,  " -h hostname -p port -w warning 
time -c critical time -d down time\n"
-       
+
 }
 
 sub redis_connect{
-       
+
        my $redis_hp = $opt_h . ":" . $opt_p;
-       
+
        eval{ $r = Redis->new( server => $redis_hp ); };
-       
+
 }
 
 sub redis_set{
-       
+
        $r->set( redis_nagios_key => 'test' ) || return 1;
-       
+
        return 0;
 }
 
 sub redis_get{
-       
+
        my $value = $r->get( 'redis_nagios_key' ) || return 1;
-       
+
        return 0;
 }
 
 sub redis_del{
-       
+
        $r->del( 'redis_nagios_key' ) || return 1;
-       
+
        return 0;
 }
 
 sub redis_info{
-       
+
        my $info_hash = $r->info;
-       
+
        print "OK - redis server(" . $opt_h . ") info:";
-       
+
        while ( my ($key, $value) = each(%$info_hash) ) {
            print "$key => $value, ";
        }
@@ -141,7 +141,7 @@
 }
 
 sub redis_quit{
-       
+
        $r->quit();
-       
-}
\ No newline at end of file
+
+}
================================================================

---- CVS-web:
    
http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/nagios-plugin-check_redis/check_redis.pl?r1=1.2&r2=1.3&f=u


_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit