LoginHelp/GuideAbout TracPreferences
WikiTimelineRoadmapBrowse SourceView TicketsNew TicketSearchDownloads

Changeset 987


Ignore:
Timestamp:
03/21/2008 11:04:12 AM (6 years ago)
Author:
corti
Message:

usage

Location:
check_afs_rpc
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • check_afs_rpc/Changes

    r872 r987  
     12008-03-21  Matteo Corti  <matteo.corti@id.ethz.ch> 
     2 
     3    * check_afs_rpc: POD in a separate file because of ePN compatibility 
     4 
    152007-11-13  Matteo Corti  <matteo.corti@id.ethz.ch> 
    26 
  • check_afs_rpc/META.yml

    r872 r987  
    1 --- 
     1---  
    22abstract: Check AFS servers for blocked connections in Nagios 
    3 author: 'Matteo Corti <matteo.corti@id.ethz.ch>' 
     3author: Matteo Corti <matteo.corti@id.ethz.ch> 
    44distribution_type: module 
    5 generated_by: Module::Install version 0.67 
     5generated_by: Module::Install version 0.670 
    66license: gpl 
    7 meta-spec: 
     7meta-spec:  
    88  url: http://module-build.sourceforge.net/META-spec-v1.3.html 
    99  version: 1.3 
    1010name: check_afs_rpc 
    11 no_index: 
    12   directory: 
     11no_index:  
     12  directory:  
    1313    - inc 
    1414    - t 
    15 requires: 
     15requires:  
    1616  Carp: 0 
    1717  English: 0 
     
    1919  Nagios::Plugin: 0 
    2020  Nagios::Plugin::Threshold: 0 
    21   Pod::Usage: 0 
    22   perl: 5.8.0 
    2321  version: 0 
    24 version: 1.0.0 
     22version: 1.0.2 
  • check_afs_rpc/Makefile.PL

    r981 r987  
    2020requires 'Nagios::Plugin'            => 0; 
    2121requires 'Nagios::Plugin::Threshold' => 0; 
    22 requires 'Pod::Usage'                => 0; 
    2322requires 'version'                   => 0; 
    2423 
  • check_afs_rpc/VERSION

    r981 r987  
    1 1.0.1 
     11.0.2 
  • check_afs_rpc/check_afs_rpc

    r981 r987  
    2828use Carp; 
    2929 
    30 use version; our $VERSION = '1.0.1'; 
     30use version; our $VERSION = '1.0.2'; 
    3131 
    3232use English qw(-no_match_vars); 
     
    3535use Nagios::Plugin; 
    3636use POSIX qw(uname); 
    37 use Pod::Usage qw(pod2usage); 
    3837 
    3938# IMPORTANT: Nagios plugins could be executed using embedded perl in this case 
     
    6261 
    6362############################################################################## 
     63# Usage     : usage() 
     64# Purpose   : prints a usage message 
     65# Returns   : n/a 
     66# Arguments : -message : an optional error message 
     67# Throws    : n/a 
     68# Comments  : n/a 
     69# See also  : n/a 
     70sub usage { 
     71 
     72    my %args = @_; 
     73 
     74    my $exitval = 0; 
     75    if ($args{-exitval}) { 
     76        $exitval = $args{-exitval}; 
     77    } 
     78     
     79    if ($args{-message}) { 
     80        print $args{-message}; 
     81    } 
     82 
     83    print<<'EOT'; 
     84 
     85        check_rxdebug [OPTIONS] --hostname hostname 
     86 
     87        Mandatory arguments: 
     88         --hostname,-H   hostname   name of the AFS server 
     89 
     90        Options: 
     91         --critical,-c   critical   specify the critical number of blocked 
     92                                    connections (default 8) 
     93         --help,-h,-?               usage info 
     94         --port,p        port       connection port (default 7000) 
     95         --version,V                print version number 
     96         --warning,-w    warning    specify warning threshold for the number 
     97                                    blocked connections (default 2) 
     98 
     99EOT 
     100 
     101    exit $exitval; 
     102     
     103} 
     104 
     105############################################################################## 
    64106# Usage     : verbose("some message string", $optional_verbosity_level); 
    65107# Purpose   : write a message if the verbosity level is high enough 
     
    161203    'critical|c=i' => \$critical, 
    162204    'hostname|H=s' => \$hostname, 
    163     'help|h|?'     => sub { pod2usage(); }, 
     205    'help|h|?'     => sub { 
     206        usage( 
     207            -exitval => UNKNOWN, 
     208        ); 
     209        exit UNKNOWN, }, 
    164210    'port|p=i',    => \$port, 
    165211    'timeout|t=i'  => \$timeout, 
     
    173219 
    174220if ( !defined $hostname ) { 
    175     pod2usage( -message => 
    176           'Error: please specify an AFS server with the --hostname option' ); 
     221    usage( -message => 
     222          'Error: please specify an AFS server with the --hostname option' 
     223      ); 
    177224} 
    178225if ( !defined $rxdebug_bin ) { 
    179     pod2usage( -message => 
     226    usage( -message => 
    180227'Cannot find the rxdebug binary: please specify it with the --rxdebug option' 
    181228    ); 
    182229} 
    183230if ( !-x $rxdebug_bin ) { 
    184     pod2usage( -message => "$rxdebug_bin is not executable" ); 
     231    usage( -message => "$rxdebug_bin is not executable" ); 
    185232} 
    186233 
  • check_afs_rpc/check_afs_rpc.pod

    r981 r987  
    1212=head1 VERSION 
    1313 
    14 Version 1.0.1 
     14Version 1.0.2 
    1515 
    1616=head1 SYNOPSIS 
  • check_afs_rpc/check_afs_rpc.spec

    r981 r987  
    1 %define version 1.0.1 
     1%define version 1.0.2 
    22%define release 0 
    33%define name    check_afs_rpc 
     
    4848 
    4949%changelog 
     50* Fri Mar 21 2008 Matteo Corti <matteo.corti@id.ethz.ch> - 1.0.2-0 
     51- usage no longer using POD (which is now in a separate file) 
     52 
    5053* Thu Mar 20 2008 Matteo Corti <matteo.corti@id.ethz.ch> - 1.0.1-0 
    5154- ePN compatibility 
Note: See TracChangeset for help on using the changeset viewer.
 

Wichtiger Hinweis:
Diese Website wird in älteren Versionen von Netscape ohne graphische Elemente dargestellt. Die Funktionalität der Website ist aber trotzdem gewährleistet. Wenn Sie diese Website regelmässig benutzen, empfehlen wir Ihnen, auf Ihrem Computer einen aktuellen Browser zu installieren. Weitere Informationen finden Sie auf
folgender Seite.

Important Note:
The content in this site is accessible to any browser or Internet device, however, some graphics will display correctly only in the newer versions of Netscape. To get the most out of our site we suggest you upgrade to the newer browser.
More information

 
© 2005 ETH Zürich | Imprint | 26.09.2007 | Version 0.12
top