moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

Added support for --help and --version options.

Browse Source
This commit is contained in:
Guenter Knauf 2013-04-04 00:21:10 +02:00
parent 8efd74de46
commit c3fa3aaf2c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/mk-ca-bundle.pl
View File

@ -44,6 +44,7 @@ my $version = '1.18';
$opt_w = 76; # default base64 encoded lines length $opt_w = 76; # default base64 encoded lines length
$Getopt::Std::STANDARD_HELP_VERSION = 1;
getopts('bfhilnqtuvw:'); getopts('bfhilnqtuvw:');
if ($opt_i) { if ($opt_i) {
@ -59,7 +60,7 @@ if ($opt_i) {
} }
$0 =~ s@.*(/|\\)@@; $0 =~ s@.*(/|\\)@@;
if ($opt_h) { sub HELP_MESSAGE() {
print "Usage:\t${0} [-b] [-f] [-i] [-l] [-n] [-q] [-t] [-u] [-v] [-w<l>] [<outputfile>]\n"; print "Usage:\t${0} [-b] [-f] [-i] [-l] [-n] [-q] [-t] [-u] [-v] [-w<l>] [<outputfile>]\n";
print "\t-b\tbackup an existing version of ca-bundle.crt\n"; print "\t-b\tbackup an existing version of ca-bundle.crt\n";
print "\t-f\tforce rebuild even if certdata.txt is current\n"; print "\t-f\tforce rebuild even if certdata.txt is current\n";
@ -74,6 +75,12 @@ if ($opt_h) {
exit; exit;
} }
sub VERSION_MESSAGE() {
print "${0} version ${version} running on Perl ${]} on ${^O}\n";
}
HELP_MESSAGE() if ($opt_h);
my $crt = $ARGV[0] || 'ca-bundle.crt'; my $crt = $ARGV[0] || 'ca-bundle.crt';
(my $txt = $url) =~ s@(.*/|\?.*)@@g; (my $txt = $url) =~ s@(.*/|\?.*)@@g;