| … | |
… | |
| 702 | |
702 | |
| 703 | setcert => sub { |
703 | setcert => sub { |
| 704 | @ARGV >= 1 |
704 | @ARGV >= 1 |
| 705 | or die "key+certificate pem filename missing\n"; |
705 | or die "key+certificate pem filename missing\n"; |
| 706 | |
706 | |
|
|
707 | my $certfile = shift @ARGV; |
|
|
708 | |
| 707 | open my $fh, "<", $ARGV[0] |
709 | open my $fh, "<", $certfile |
| 708 | or die "$ARGV[0]: $!"; |
710 | or die "$certfile: $!"; |
| 709 | |
711 | |
| 710 | local $/; |
712 | local $/; |
| 711 | $profile->{cert} = <$fh>; |
713 | $profile->{cert} = <$fh>; |
| 712 | ++$cfg->{dirty}; |
714 | ++$cfg->{dirty}; |
| 713 | }, |
715 | }, |
