LoginHelp/GuideAbout TracPreferences
WikiTimelineRoadmapBrowse SourceView TicketsNew TicketSearchDownloads

Changeset 1018


Ignore:
Timestamp:
06/03/2008 11:13:49 AM (6 years ago)
Author:
corti
Message:

pod2usage removed (ePN problems)

Location:
check_updates
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • check_updates/Makefile.PL

    r1016 r1018  
    2323requires 'Number::Format'            => 0; 
    2424requires 'POSIX'                     => 0; 
    25 requires 'Pod::Usage'                => 0; 
    2625requires 'Sort::Versions'            => 0; 
    2726requires 'version'                   => 0; 
  • check_updates/check_updates

    r1016 r1018  
    3636use Number::Format qw(format_number); 
    3737use POSIX qw(uname); 
    38 use Pod::Usage qw(pod2usage); 
    3938use Sort::Versions; 
    4039 
     
    5857############################################################################## 
    5958# subroutines 
     59 
     60############################################################################## 
     61# Usage     : usage( -message => 'some text', -exitval => 1 ) 
     62# Purpose   : prints a usage message 
     63# Returns   : n/a 
     64# Arguments : -message : an optional error message 
     65#             -exitval : the exit code (defaults to 0) 
     66# Throws    : n/a 
     67# Comments  : n/a 
     68# See also  : n/a 
     69sub usage { 
     70 
     71    my %args = @_; 
     72 
     73    my $exitval = 0; 
     74    if ($args{-exitval}) { 
     75        $exitval = $args{-exitval}; 
     76    } 
     77     
     78    if ($args{-message}) { 
     79        print $args{-message}; 
     80    } 
     81 
     82    print<<'EOT'; 
     83check_updates [--help] [--verbose] [--version] 
     84 
     85Options     
     86  --help,-h,-?                  this help message 
     87  --verbose,-v                  verbose output 
     88  --version,-V                  print version 
     89EOT 
     90 
     91    exit $exitval; 
     92     
     93} 
    6094 
    6195############################################################################## 
     
    335369 
    336370if ( !$result || $help ) { 
    337     pod2usage(); 
     371    usage(); 
    338372} 
    339373 
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