aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGunter Knauf <gk@gknw.de>2008-02-08 02:38:12 +0000
committerGunter Knauf <gk@gknw.de>2008-02-08 02:38:12 +0000
commitc764331dd9ff198383496e92bbeecab9238e2097 (patch)
tree59a9739c7024d6d9094c060285ecef0f1115de95
parent586444b6b85b685b258af6e974a8261af6313f7d (diff)
use argument to specify output filename if present.
-rwxr-xr-xlib/mk-ca-bundle.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/mk-ca-bundle.pl b/lib/mk-ca-bundle.pl
index bbfe32c0c..9357e3c3d 100755
--- a/lib/mk-ca-bundle.pl
+++ b/lib/mk-ca-bundle.pl
@@ -36,8 +36,6 @@ use MIME::Base64;
use LWP::UserAgent;
my $url = 'http://lxr.mozilla.org/seamonkey/source/security/nss/lib/ckfw/builtins/certdata.txt?raw=1';
-my $crt = 'ca-bundle.crt';
-my $tmp = 'mytmpfile.txt';
# If the OpenSSL commandline is not in search path you can configure it here!
my $openssl = 'openssl';
@@ -45,7 +43,7 @@ getopts('hilnuv');
if ($opt_h) {
$0 =~ s/\\/\//g;
- printf("Usage:\t%s [-i] [-l] [-n] [-u] [-v]\n", substr($0, rindex($0, '/') + 1));
+ printf("Usage:\t%s [-i] [-l] [-n] [-u] [-v] [<outputfile>]\n", substr($0, rindex($0, '/') + 1));
print "\t-i\tprint version info about used modules\n";
print "\t-l\tprint license info about certdata.txt\n";
print "\t-n\tno download of certdata.txt (to use existing)\n";
@@ -62,6 +60,8 @@ if ($opt_i) {
print ("=" x 78 . "\n");
}
+my $crt = $ARGV[0] || 'ca-bundle.crt';
+my $tmp = 'mytmpfile.txt';
my $txt = substr($url, rindex($url, '/') + 1);
$txt =~ s/\?.*//;
if (!$opt_n) {