/[pdpsoft]/nl.nikhef.pdp.fetchcrl/trunk/clean-crl.pl
ViewVC logotype

Diff of /nl.nikhef.pdp.fetchcrl/trunk/clean-crl.pl

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

revision 2640 by davidg, Tue Jul 2 18:23:51 2013 UTC revision 2641 by davidg, Tue Jul 2 18:26:31 2013 UTC
# Line 4  use strict; Line 4  use strict;
4  use Getopt::Long qw(:config no_ignore_case bundling);  use Getopt::Long qw(:config no_ignore_case bundling);
5  use POSIX;  use POSIX;
6    
7    my $versionid = "20130702.01";
8    
9  my $targetdir;  my $targetdir;
10  my $show_help;  my $show_help;
11  my $show_version;  my $show_version;
# Line 13  my $dryrun; Line 15  my $dryrun;
15  sub help() {  sub help() {
16    (my $name = $0) =~ s/.*\///;    (my $name = $0) =~ s/.*\///;
17    print <<EOHELP;    print <<EOHELP;
18  The $name utility will eradicate [0-9a-f]{8}.r\\d files from  The $name utility will eradicate [0-9a-f]{8}.r\\d+ files from
19  the directory given to the "-l" option if no matching [0-9a-f]{8}.info  the directory given to the "-l" option if no matching [0-9a-f]{8}.\d+
20  or [0-9a-f]{8}.crl_url file can be found in the same, which in most  file can be found in the same, which in most cases will wipe stale
21  cases will wipe stale historic CRLs from the X509 CERTDIR directory.  historic CRLs from an X509_CERT_DIR like directory.
   
22  Use at your own risk. It may be wiping files that you would have  Use at your own risk. It may be wiping files that you would have
23  liked to keep, or it may kill your pet.  liked to keep, or it may kill your pet.
24    
# Line 45  EOHELP Line 46  EOHELP
46    
47  sub showversion() {  sub showversion() {
48    (my $name = $0) =~ s/.*\///;    (my $name = $0) =~ s/.*\///;
49    print "$name version 20130702.01\n";    print "$name version $versionid\n";
50    return 1;    return 1;
51  }  }
52    
Legend:
Removed from v.2640  
changed lines
  Added in v.2641
grid.support@nikhef.nl
 ViewVC Help
Powered by ViewVC 1.1.28