/[pdpsoft]/nl.nikhef.pdp.fetchcrl/trunk/fetch-crl3.pl.cin
ViewVC logotype

Diff of /nl.nikhef.pdp.fetchcrl/trunk/fetch-crl3.pl.cin

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

nl.nikhef.pdp.fetchcrl/trunk/fetch-crl3.pl revision 2604 by davidg, Mon Feb 25 11:59:39 2013 UTC nl.nikhef.pdp.fetchcrl/trunk/fetch-crl3.pl.cin revision 2649 by davidg, Tue Jul 2 18:55:45 2013 UTC
# Line 25  use Getopt::Long qw(:config no_ignore_ca Line 25  use Getopt::Long qw(:config no_ignore_ca
25  use POSIX;  use POSIX;
26  eval { require LWP or die; }; $@ and die "Please install libwww-perl (LWP)\n";  eval { require LWP or die; }; $@ and die "Please install libwww-perl (LWP)\n";
27    
28    my $sccsid = '@(#)$Id$';
29    
30  # import modules that are needed but still external  # import modules that are needed but still external
31  # (the installed version may have these packages embedded in-line)  # (the installed version may have these packages embedded in-line)
32  #  #
# Line 48  use vars qw/ $log $cnf /; Line 50  use vars qw/ $log $cnf /;
50    
51  # use Net::INET6Glue if so requested (is not a default module)  # use Net::INET6Glue if so requested (is not a default module)
52  if ( $cnf->{_}->{inet6glue} ) {  if ( $cnf->{_}->{inet6glue} ) {
53    eval { require Net::INET6Glue or die; };    eval { require Net::INET6Glue::INET_is_INET6 or die; };
54    $@ and die "Please install Net::INET6Glue before enabling inet6glue config\n";    $@ and die "Please install Net::INET6Glue before enabling inet6glue config\n";
55  }  }
56    
# Line 115  sub init_configuration() { Line 117  sub init_configuration() {
117    my $verbosity;    my $verbosity;
118    my $quiet=0;    my $quiet=0;
119    my $help=0;    my $help=0;
120      my $showversion=0;
121    my $debuglevel;    my $debuglevel;
122    my $parallelism=0;    my $parallelism=0;
123    my $randomwait;    my $randomwait;
# Line 135  sub init_configuration() { Line 138  sub init_configuration() {
138      "format=s@" => \@formats,      "format=s@" => \@formats,
139      "v|verbose+" => \$verbosity,      "v|verbose+" => \$verbosity,
140      "h|help+" => \$help,      "h|help+" => \$help,
141        "V|version+" => \$showversion,
142      "q|quiet+" => \$quiet,      "q|quiet+" => \$quiet,
143      "d|debug+" => \$debuglevel,      "d|debug+" => \$debuglevel,
144      "p|parallelism=i" => \$parallelism,      "p|parallelism=i" => \$parallelism,
# Line 145  sub init_configuration() { Line 149  sub init_configuration() {
149      ) or &help and exit(1);      ) or &help and exit(1);
150    
151    $help and &help and exit(0);    $help and &help and exit(0);
152      $showversion and &showversion and exit(0);
153    
154    $configfile ||= ( -e "/etc/fetch-crl.conf" and "/etc/fetch-crl.conf" );    $configfile ||= ( -e "/etc/fetch-crl.conf" and "/etc/fetch-crl.conf" );
155    $configfile ||= ( -e "/etc/fetch-crl.cnf" and "/etc/fetch-crl.cnf" );    $configfile ||= ( -e "/etc/fetch-crl.cnf" and "/etc/fetch-crl.cnf" );
# Line 244  sub init_configuration() { Line 249  sub init_configuration() {
249  # ###########################################################################  # ###########################################################################
250  #  #
251  #  #
252    sub showversion() {
253      (my $name = $0) =~ s/.*\///;
254      print "$name version @VERSION@\n";
255      return 1;
256    }
257    
258  sub help() {  sub help() {
259    (my $name = $0) =~ s/.*\///;    (my $name = $0) =~ s/.*\///;
260  print <<EOHELP;  print <<EOHELP;
# Line 290  Options: Line 301  Options:
301   -h | --help   -h | --help
302          This help text          This help text
303    
304    Version: @VERSION@
305  EOHELP  EOHELP
306    
307    return 1;    return 1;

Legend:
Removed from v.2604  
changed lines
  Added in v.2649

grid.support@nikhef.nl
ViewVC Help
Powered by ViewVC 1.1.28