Lines Matching refs:option
10 my %option;
11 getopts('a:e:i:l:p:hk',\%option);
13 die "usage: keyconv.pl [-a alg] [-k (to indicate KSK)] -e engine -l label [-p (path to store key)] -i filename domainname\n" if $option{h} || (not defined $option{i}) || (not defined $option{e}) || (not defined $option{l});
16 $option{p} || ($option{p}="./");
19 $option{a} || ($option{a}=5);
21 $option{k} || ($option{k}=0);
24 $option{a}==5 || $option{a}==133 || die "algorithm must be 5 or 133\n";
27 my $flags=(256 + $option{k});
29 open(PFILE, $option{i});
40 my $keystr = $ARGV[0]. ". IN DNSKEY $flags 3 $option{a} ".encode_base64($rrkey,"");
43 open(PFILE, "> $option{p}/K".$ARGV[0].".+".sprintf("%03d",$option{a})."+".$keyrr->keytag.".key");
44 print PFILE $ARGV[0], ". IN DNSKEY $flags 3 $option{a} ",encode_base64($rrkey,"")."\n";
47 open(PFILE, "> $option{p}/K".$ARGV[0].".+".sprintf("%03d",$option{a})."+".$keyrr->keytag.".private");
49 print PFILE "Algorithm: ", $option{a}, " (RSASHA1)\n";
53 $engine=encode_base64($option{e}."\0","");
56 $option{k}==0 && ($label=encode_base64($option{e}.":".$option{l}."\0",""));
57 $option{k}!=0 && ($label=encode_base64($option{e}.":".$option{l}."\0",""));