/[echolot]/trunk/pingd
ViewVC logotype

Diff of /trunk/pingd

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 116 by weasel, Sat Jul 6 21:35:04 2002 UTC revision 117 by weasel, Sat Jul 6 23:22:25 2002 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -wT  #!/usr/bin/perl -wT
2    
3  # (c) 2002 Peter Palfrader <peter@palfrader.org>  # (c) 2002 Peter Palfrader <peter@palfrader.org>
4  # $Id: pingd,v 1.19 2002/07/06 21:35:04 weasel Exp $  # $Id: pingd,v 1.20 2002/07/06 23:22:25 weasel Exp $
5  #  #
6    
7  =pod  =pod
# Line 140  Verbose mode. Causes B<pingd> to print d Line 140  Verbose mode. Causes B<pingd> to print d
140    
141  Print a short help and exit sucessfully.  Print a short help and exit sucessfully.
142    
143    =item --version
144    
145    Print version number and exit sucessfully.
146    
147  =item --nohup  =item --nohup
148    
149  Usefull only when passwd with the B<add>, B<set>, B<setremailercaps>,  Usefull only when passwd with the B<add>, B<set>, B<setremailercaps>,
# Line 222  $ENV{'PATH'} = '/bin:/usr/bin'; Line 226  $ENV{'PATH'} = '/bin:/usr/bin';
226  delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};  delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
227    
228    
229    my $VERSION = '2.0beta1';
230    
231    
232  my $redirected_stdio = 0;  my $redirected_stdio = 0;
233    
234  sub setSigHandlers() {  sub setSigHandlers() {
# Line 441  my $params; Line 448  my $params;
448  Getopt::Long::config('bundling');  Getopt::Long::config('bundling');
449  if (!GetOptions (  if (!GetOptions (
450          'help'    =>  \$params->{'help'},          'help'    =>  \$params->{'help'},
451            'version' =>  \$params->{'version'},
452          'verbose' =>  \$params->{'verbose'},          'verbose' =>  \$params->{'verbose'},
453          'nohup'   =>  \$params->{'nohup'},          'nohup'   =>  \$params->{'nohup'},
454          'detach'  =>  \$params->{'detach'},          'detach'  =>  \$params->{'detach'},
# Line 450  if (!GetOptions ( Line 458  if (!GetOptions (
458  if ($params->{'help'}) {  if ($params->{'help'}) {
459      print ("Usage: $PROGRAM_NAME [options] command\n");      print ("Usage: $PROGRAM_NAME [options] command\n");
460      print ("See man pingd or perldoc pingd for more info.\n");      print ("See man pingd or perldoc pingd for more info.\n");
461        print ("echolot $VERSION - (c) 2002 Peter Palfrader <peter\@palfrader.org>\n");
462        print ("http://savannah.gnu.org/projects/echolot/\n");
463        exit 0;
464    };
465    if ($params->{'version'}) {
466        print ("echolot $VERSION\n");
467        print ("(c) 2002 Peter Palfrader <peter\@palfrader.org>\n");
468        print ("http://savannah.gnu.org/projects/echolot/\n");
469      exit 0;      exit 0;
470  };  };
471    
Legend:
Removed from v.116  
changed lines
  Added in v.117
  ViewVC Help
Powered by ViewVC 1.1.5