From c764331dd9ff198383496e92bbeecab9238e2097 Mon Sep 17 00:00:00 2001 From: Gunter Knauf Date: Fri, 8 Feb 2008 02:38:12 +0000 Subject: use argument to specify output filename if present. --- lib/mk-ca-bundle.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib') 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] []\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) { -- cgit v1.2.3